属性框的编写
SclStartUndowhile {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 0set 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
