SclSelectPoint pnt1 "Select the setup point" \
               layer1 str_no1 seg_no1 pnt_no1 x1 y1 z1 desc1

SclSelectPoint pnt2 "Select the backsight point" \
               layer2 str_no2 seg_no2 pnt_no2 x2 y2 z2 desc2

set status [ SclFunction "BEARING AND DISTANCE" {
  select_point=table { objectx objecty objectz } {
    { "$x1" "$y1" "$z1" }
    { "$x2" "$y2" "$z2" }
  }
}]
