######################################################################
#
# Macro Name    : g:/mining/surpac/survey/ug/prince/getseg.tcl
#
# Version       : Surpac Vision V5.0-J
#
# Creation Date : Wed Sep 22 11:34:57 2004
#
# Description   : 
#
######################################################################



set status [ SclFunction "RECALL FILE" {
  frm00236={
    {
      location="out"
      rid="1490"
      string_rng=""
      ftype="S"
      swa_desc="Y"
      append="R"
      styles_file=""
      rescale="Y"
      swa_name="main graphics layer"
    }
  }
}]
# get a handle to the active viewport and then the active layer
SclGetActiveViewport ViewportHandle
$ViewportHandle SclGetActiveLayer layerHandle

puts "Viewport name = [$ViewportHandle SclGetId]"
puts "Active layer name = [$layerHandle SclGetId]"

  $SegmentHandle SclGetParent StringHandle
 set status [SclSelectPoint PointHandle "Select segment to dissolve. Esc to cancel." layer stringid segmentnum pointnum xp yp zp pointdesc]


set point_count [$SegmentHandle SclCountItems]


  puts "Layer=$layer"
  puts "string=$stringid"
  puts "segment=$segmentnum"
  puts "pointnum=$pointnum, X=$xp, Y=$yp, z=$zp"
  puts "$point_count"


