Surpac软件矿体剖面解译线按段高插入点

根据段高插入点后，相邻剖面形成矿体实体时，让标高相等的两个为一个三角形的边，根据矿体的实体剖切中段矿体时，使剖面之间矿体的切线为直线段。

在Surpac软件中，用SCL二次开发实现

proc distAB { XA YA ZA XB YB ZB } {
     set dist [expr sqrt (($XA-$XB) * ($XA-$XB) + ($YA-$YB) * ($YA-$YB) + ($ZA-$ZB) * ($ZA-$ZB)) ]
     return $dist

}

set tolerance 0.1
set form {
  GuidoForm section_info {
    -default_buttons
    -width 45
    -label "输入中段或台阶标高范围："
    -layout BoxLayout Y_AXIS


  GuidoPanel otherInputsPanel {
      -border etched true
      -layout BoxLayout X_AXIS


      GuidoField elevation_range {
      -label "输入采矿台阶或中段的标高点范围："
      -width 26
      -format none

      -null false

}

 }
}
}

SclCreateGuidoForm form_handle $form {
  set elevation_range 1520,2300,40
}
$form_handle SclRun {}

if {"$_status" != "apply"}  {
       return 1
      }

SclRangeExpand level_range_handle "$elevation_range"

set level_range_count [SclRangeGetCount $level_range_handle]


for {set pos 0} {$pos < $level_range_count} {incr pos} {
    SclRangeGet $level_range_handle $pos level_id
}

set i 0

SclGetActiveViewport ViewportHandle
$ViewportHandle SclGetActiveLayer SwaHandle


$SwaHandle SclGetStrings StringsHandle
$StringsHandle SclIterateFirst StringsIterator