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

本文链接：https://blog.csdn.net/peasea/article/details/78278978

本文介绍了如何在Surpac软件中进行矿体剖面解译，特别是如何按照段高插入标高点，使得相邻剖面形成矿体实体时，相等标高的两点构成三角形边，并确保在剖面间矿体的切线呈现直线段。通过SCL二次开发技术，实现了这一高效的工作流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

在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