surpac 属性框的设置

最新推荐文章于 2020-08-02 01:54:32 发布

surpac

最新推荐文章于 2020-08-02 01:54:32 发布

阅读量893

点赞数

文章标签： string layer

本文链接：https://blog.csdn.net/surpac/article/details/1515091

版权

属性框的编写

SclStartUndo
while {1} {
set status [ SclSelectPoint PointHandle "请选择线段" layer string_id segment_no point_no x y z desc ]
if {$status != $SCL_OK} {
return 1 }
#取得线段第一个点的描述值#
$PointHandle SclGetParent SegmentHandle
$SegmentHandle SclGetItem Point1Handle 0
set d1 [$Point1Handle SclGetValueByName desc]
#puts "$d1"
set form {
GuidoForm aForm {
    -default_buttons
    -label "定义坡面角"
GuidoField slope_angle {
    -label "请定义坡面角"
    -format none
    -translate none
    -display_length 10
    -max_length 30
}
    }
      }
SclCreateGuidoForm formHandle $form {
   set slope_angle $d1
}
$formHandle SclRun {}
   if {"$_status" != "apply"} {
   return 1 }
$Point1Handle SclSetValueByName desc $slope_angle