GuidoScript scripts/dtmutilities.tcl
global dtm_layer1
global object1_num
global trisolation1_num
global dtm_layer2
global object2_num
global trisolation2_num
global numdtms
global obj1_name
global tri1_name
global obj2_name
global tri2_name
GuidoForm frm01320 {
-action initial {[fill_triobject_trisolation_details_for_layers $dtm_layer1 $object1_num $obj1_name $trisolation1_num $tri1_name]}
-action initial {[fill_triobject_trisolation_details_for_layers $dtm_layer2 $object2_num $obj2_name $trisolation2_num $tri2_name]}
-default_buttons
-label "Extract sections from DTMs"
-layout BoxLayout Y_AXIS
-tip "01320_TIP_001"
GuidoPanel frm01320_1 {
-layout BoxLayout Y_AXIS
GuidoPanel frm01320_2 {
-layout CentreLineLayout Vertical Left
GuidoButtonGroupPanel numdtms {
-layout BoxLayout Y_AXIS
-tip "01320_TIP_002"
-label "Create cross sections from"
GuidoRadioButton frm01320_3 {
-caption "An upper surface DTM only"
-default true
-selected_value 1
}
GuidoRadioButton frm01320_4 {
-caption "Upper and lower DTM surfaces"
-selected_value 2
}
}
}
GuidoPanel frm01320_3 {
-layout BoxLayout Y_AXIS
GuidoPanel frm01320_4 {
-border etched true
-label "Define the upper DTM"
-layout BoxLayout Y_AXIS
GuidoPanel frm01320_5 {
-layout CentreLineLayout Vertical Left
GuidoComboBox dtm_layer1 {
-action focusGained {[fill_triobject_trisolation_details_for_layers $dtm_layer1 $object1_num $obj1_name $trisolation1_num $tri1_name]}
-display_length 17.5
-format none
-label "Upper DTM"
-max_length 32
-null false
-tip "01320_TIP_002"
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel triobject1 {
-label "Object ID"
}
GuidoPanel frm01320_6 {
-layout BoxLayout X_AXIS
GuidoComboBox object1_num {
-display_length 5
-format integer
-max_length 32
-translate none
-exclusive false
-tip "04949_TIP_1"
-action valueChanged {[fill_triobject_details $dtm_layer1 $object1_num $obj1_name $trisolation1_num $tri1_name "false" "true"]}
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel obj1_name {
}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel trisol_panel {
-label "Trisolation ID"
}
GuidoPanel frm01320_7 {
-layout BoxLayout X_AXIS
GuidoComboBox trisolation1_num {
-display_length 5
-format integer
-max_length 32
-translate none
-exclusive false
-tip "04949_TIP_2"
-action valueChanged {[fill_trisolation_details $dtm_layer1 $object1_num $trisolation1_num $tri1_name "true" "true"]}
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel tri1_name {
}
}
}
}
GuidoPanel frm01320_8 {
-border etched true
-label "Define the lower DTM"
-layout BoxLayout Y_AXIS
GuidoPanel frm01320_9 {
-layout CentreLineLayout Vertical Left
GuidoComboBox dtm_layer2 {
-dependency {"[ $numdtms getCurrentValue]" == "2"}
-action focusGained {[fill_triobject_trisolation_details_for_layers $dtm_layer2 $object2_num $obj2_name $trisolation2_num $tri2_name]}
-display_length 17.5
-format none
-label "Lower DTM"
-max_length 32
-null false
-tip "01320_TIP_002"
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel triobject1 {
-label "Object ID"
-dependency {"[ $numdtms getCurrentValue]" == "2"}
}
GuidoPanel frm01320_10 {
-layout BoxLayout X_AXIS
GuidoComboBox object2_num {
-dependency {"[ $numdtms getCurrentValue]" == "2"}
-display_length 5
-format integer
-max_length 32
-translate none
-exclusive false
-tip "04949_TIP_1"
-action valueChanged {[fill_triobject_details $dtm_layer2 $object2_num $obj2_name $trisolation2_num $tri2_name "false" "true"]}
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel obj2_name {
}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel trisol_panel {
-label "Trisolation ID"
-dependency {"[ $numdtms getCurrentValue]" == "2"}
}
GuidoPanel frm01320_11 {
-layout BoxLayout X_AXIS
GuidoComboBox trisolation2_num {
-dependency {"[ $numdtms getCurrentValue]" == "2"}
-display_length 5
-format integer
-max_length 32
-translate none
-exclusive false
-tip "04949_TIP_2"
-action valueChanged {[fill_trisolation_details $dtm_layer2 $object2_num $trisolation2_num $tri2_name "true" "true"]}
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel tri2_name {
}
}
}
}
}
}
GuidoPanel frm01320_12 {
-border etched true
-label "Define the section method"
-layout CentreLineLayout
-display_length 27.5
GuidoPanel frm01320_13 {
-layout BoxLayout Y_AXIS
-tip "01320_TIP_005"
GuidoPanel frm01320_13 {
-layout CentreLineLayout Vertical Left
GuidoLabel sectype_label {
-label Section
}
GuidoButtonGroupPanel sectype {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm01320_11 {
-caption "By interval"
-default true
-selected_value Interval
}
GuidoRadioButton frm01320_12 {
-caption "By range"
-selected_value Range
}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField secint {
-display_length 14
-format range
-label "Section values"
-max_length 32
-null false
-tip "Sections will be taken at distances from the first axis point at multiples of this interval."
-translate none
}
}
}
}
GuidoPanel frm01320_15 {
-layout BoxLayout Y_AXIS
GuidoPanel frm01320_16 {
-layout CentreLineLayout Vertical Left
GuidoCheckBox usebdy {
-default false
-selected_value Y
-tip "01320_TIP_007"
-unselected_value N
}
GuidoLabel usebdy_label {
-label "Use a boundary string"
}
}
GuidoPanel frm01320_17 {
-layout CentreLineLayout Vertical Left
GuidoField new_sec_layer {
-display_length 18
-format none
-label "Define output layer"
-max_length 32
-null false
-tip "01320_TIP_008"
-translate none
}
}
}
}
