GuidoScript scripts/dtmutilities.tcl
global dtm_layer
global object_id_lay
global obj_name_lay
global trisolation_id_lay
global tri_name_lay
GuidoForm frm01313 {
-action initial {[fill_triobject_trisolation_details_for_layers $dtm_layer $object_id_lay $obj_name_lay $trisolation_id_lay $tri_name_lay]}
-default_buttons
-label "String Over DTM"
-tip 01313_TIP_0
GuidoPanel Panel {
-layout CentreLineLayout VERTICAL LEFT
-border itched true
GuidoComboBox dtm_layer {
-label "DTM layer name"
-display_length 20
-format none
-max_length 64
-null false
-action valueChanged {[fill_triobject_trisolation_details_for_layers $dtm_layer $object_id_lay $obj_name_lay $trisolation_id_lay $tri_name_lay]}
-tip 01313_TIP_1
-translate lower
}
GuidoFiller frm01313_1 {
-height 0.05
}
GuidoFiller frm01313_2 {
-height 0.05
}
GuidoLabel obj_id_label {
-label "Object ID"
}
GuidoPanel frm01313_3 {
-layout CentreLineLayout VERTICAL LEFT
GuidoComboBox object_id_lay {
-display_length 5
-action valueChanged {[fill_triobject_details $dtm_layer $object_id_lay $obj_name_lay $trisolation_id_lay $tri_name_lay "false" "true"]}
-format integer
-max_length 32
-translate none
-tip "Select the object ID to process"
}
GuidoLabel obj_name_lay {
-height 1
}
}
GuidoFiller frm01313_4 {
-height 0.05
}
GuidoFiller frm01313_5 {
-height 0.05
}
GuidoLabel trisolation_id_lay_lab {
-label "Trisolation ID"
}
GuidoPanel frm01313_6 {
-layout CentreLineLayout VERTICAL LEFT
GuidoComboBox trisolation_id_lay {
-display_length 5
-format integer
-max_length 32
-translate none
-action valueChanged {[fill_trisolation_details $dtm_layer $object_id_lay $trisolation_id_lay $tri_name_lay "true" "true"]}
-tip "Select the trisolation ID to process"
}
GuidoLabel tri_name_lay {
}
}
GuidoFiller frm01313_7 {
-height 0.05
}
GuidoFiller frm01313_8 {
-height 0.05
}
GuidoFiller frm01313_9 {
-height 0.05
}
GuidoPanel interpP {
-layout CentreLineLayout VERTICAL LEFT
GuidoCheckBox interp {
-default true
-selected_value Y
-tip 01313_TIP_2
-unselected_value N
}
GuidoLabel interp_label {
-label "Interpolate new points"
}
}
}
}
