# Pick.tcl
#Example code for selecting point and returning coordinates etc of that point. 
set status [SclSelectPoint point1 "Select point" layer1 string1 seg1 pointnum1 xp1 yp1 zp1 desc1]
   puts "x: $xp1 y: $yp1 z:$zp1 Layer: $layer1 String No: $string1.$seg1 Desc: $desc1"
