GuidoScript scripts/dtmutilities.tcl
global dtm_file
global dtm_obj_id
global dtm_trisol_id
global dtm_obj_name
global dtm_trisol_name
GuidoForm PointsAboveDTM {
-default_buttons
-label "Select / tag points above / below a surface"
-help_id 1609
-layout BoxLayout Y_AXIS
GuidoPanel PointsAboveDTM_01 {
-border etched true
-label "The DTM file"
-action initial {[fill_triobject_trisolation_details $dtm_file $dtm_obj_id $dtm_obj_name $dtm_trisol_id $dtm_trisol_name]}
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField dtm_file {
-display_length 17.2
-action valueChanged {[fill_triobject_trisolation_details $dtm_file $dtm_obj_id $dtm_obj_name $dtm_trisol_id $dtm_trisol_name]}
-file_mask *.dtm
-extension false
-format none
-label "File name"
-max_length FIO_MAX_LOCATION_LENGTH
-null false
-tip "POINTS_ABOVE_DTM_TIP_001"
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoLabel obj_label {
-label "Object ID"
}
GuidoPanel p1 {
-layout BoxLayout X_AXIS
GuidoComboBox dtm_obj_id {
-display_length 6
-action valueChanged {[fill_triobject_details $dtm_file $dtm_obj_id $dtm_obj_name $dtm_trisol_id $dtm_trisol_name "false" "false"]}
-high_bound 32000
-low_bound 1
-exclusive false
-format none
-max_length 6
-tip "Select the object identifier to process"
-translate upper
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel dtm_obj_name {}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel trisol_label {
-label "Trisolation ID"
}
GuidoPanel p2 {
-layout BoxLayout X_AXIS
GuidoComboBox dtm_trisol_id {
-display_length 6
-action valueChanged {[fill_trisolation_details $dtm_file $dtm_obj_id $dtm_trisol_id $dtm_trisol_name "true" "false"]}
-high_bound 32000
-low_bound 1
-exclusive false
-format none
-max_length 6
-tip "Select the trisolation identifier to process"
-translate upper
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel dtm_trisol_name {}
}
}
GuidoPanel PointsAboveDTM_02 {
-border etched true
-label "The string files to be processed"
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField input_file {
-display_length 17.5
-file_mask *.str
-format none
-label "File name"
-max_length FIO_MAX_LOCATION_LENGTH
-null false
-tip "POINTS_ABOVE_DTM_TIP_003"
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField string_range {
-display_length 17.5
-format range
-null true
-label "String range"
-max_length 16
-tip "POINTS_ABOVE_DTM_TIP_009"
}
}
GuidoPanel PointsAboveDTM_04 {
-border etched true
-label "Define the output file to be created"
-layout BoxLayout Y_AXIS
GuidoPanel PointsAboveDTM_03 {
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField output_file {
-display_length 16
-file_mask *.str
-format none
-label "File name"
-max_length FIO_MAX_LOCATION_LENGTH
-null false
-tip "POINTS_ABOVE_DTM_TIP_004"
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoButtonGroupPanel select_data {
-tip "POINTS_ABOVE_DTM_TIP_005"
-layout BoxLayout Y_AXIS
-label "Select data"
GuidoRadioButton above {
-caption "Above"
-selected_value above
}
GuidoRadioButton below {
-caption "Below"
-selected_value below
}
}
GuidoButtonGroupPanel operation {
-tip "POINTS_ABOVE_DTM_TIP_006"
-layout BoxLayout Y_AXIS
-label "Operation"
GuidoRadioButton select {
-caption "Select"
-selected_value select
}
GuidoRadioButton tag {
-caption "Tag"
-selected_value tag
}
}
GuidoComboBox desc_field {
-display_length 13.5
-format none
-default D1
-label "Description field"
-max_length 20
-null false
-dependency {"[ $operation getCurrentValue]" == "tag"}
-tip "POINTS_ABOVE_DTM_TIP_007"
-value_in D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31 D32 D33 D34 D35 D36 D37 D38 D39 D40 D41 D42 D43 D44 D45 D46 D47 D48 D49 D50 D51 D52 D53 D54 D55 D56 D57 D58 D59 D60 D61 D62 D63 D64 D65 D66 D67 D68 D69 D70 D71 D72 D73 D74 D75 D76 D77 D78 D79 D80 D81 D82 D83 D84 D85 D86 D87 D88 D89 D90 D91 D92 D93 D94 D95 D96 D97 D98 D99 D100
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField desc_value {
-display_length 16
-label "Value to assign"
-format none
-max_length 16
-dependency {"[ $operation getCurrentValue]" == "tag"}
-tip "POINTS_ABOVE_DTM_TIP_008"
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
}
GuidoPanel p2 {
-layout CentreLineLayout VERTICAL LEFT
GuidoCheckBox flush_desc {
-default false
-dependency {"[ $operation getCurrentValue]" == "tag"}
-selected_value Yes
-tip "POINTS_ABOVE_DTM_TIP_010"
-unselected_value No
}
GuidoLabel lbl {
-dependency {"[ $operation getCurrentValue]" == "tag"}
-label "Flush the D-field"
}
}
}
}
