proc setClippingPlane {clippingPlane} {
set plane [$clippingPlane getCurrentValue]
if {"$plane" != ""} {
GuidoExecServer "SetClippingPlane" [subst {ClippingPlane = "$plane"} ]
}
}
proc setMinSlider {min_plane_value} {
set minValue [$min_plane_value getCurrentValue]
if {"$minValue" != ""} {
GuidoExecServer "SetMinSlider" [subst {Min = "$minValue"} ]
}
}
proc setMaxSlider {max_plane_value} {
set maxValue [$max_plane_value getCurrentValue]
if {"$maxValue" != ""} {
GuidoExecServer "SetMaxSlider" [subst {Max = "$maxValue"} ]
}
}
GuidoForm TrimByElevation {
-default_buttons
-label "Clip by plane"
-layout BoxLayout Y_AXIS
-tip CLIP_BY_PLANE_TIP_1
-help_id 1625
GuidoPanel ClipByElevation1 {
-layout CentreLineLayout Vertical Left
GuidoLabel swa_name_label {
-label "Layer name:"
}
GuidoLabel swa_name {
}
}
GuidoPanel ClipByElevation2 {
GuidoPanel ClipByElevation3 {
-layout BoxLayout Y_AXIS
GuidoPanel ClipByElevation7 {
-layout BoxLayout X_AXIS
-border etched true
-label "Select the clipping plane"
GuidoButtonGroupPanel clippingPlane {
-tip "Choose the clipping plane"
-layout BoxLayout Y_AXIS
-display_length 22
GuidoRadioButton elevationPlane {
-caption "Elevation plane"
-default true
-action mouseClicked {[setClippingPlane $clippingPlane]}
-selected_value Z
-height 1
}
GuidoRadioButton eastingPlane {
-caption "Easting plane"
-action mouseClicked {[setClippingPlane $clippingPlane]}
-selected_value X
-height 1
}
GuidoRadioButton northingPlane {
-caption "Northing plane"
-action mouseClicked {[setClippingPlane $clippingPlane]}
-selected_value Y
-height 1
}
}
}
GuidoFiller fill6 {
-height 0.5
}
GuidoPanel ClipByElevation33 {
-layout BoxLayout Y_AXIS
-border etched true
-label "Define the clipping plane extent"
GuidoPanel ClipByElevation4 {
-layout BoxLayout X_AXIS
GuidoLabel ClipByElevation5 {
-label "Min extent"
}
GuidoFiller fill0 {
-width 1.5
}
GuidoLabel sliderMinStartLabel {
-status_item "min_slider_min"
-width 4
}
GuidoSlider min_slider {
-maximum_width 12.0
-status_item "setMinSlider"
-update_method "SetMinPosition"
-minimum 0
-maximum 100
-increment 1
-tip "Select the minimum extent"
}
GuidoFiller fill1 {
-width .5
}
GuidoLabel sliderMinEndLabel {
-status_item "min_slider_max"
-width 4
}
GuidoFiller fill2 {
-width .5
}
GuidoField min_plane_value {
-display_length 8
-format double
-decimals 3
-null disallowed
-input allowed
-max_length 32
-translate none
-action valueChanged {[setMinSlider $min_plane_value]}
-status_item "min_value"
}
}
GuidoPanel ClipByElevation6 {
-layout BoxLayout X_AXIS
GuidoLabel ClipByElevation11 {
-label "Max extent"
}
GuidoFiller fill3 {
-width 1.2
}
GuidoLabel sliderMaxStartLabel {
-status_item "max_slider_min"
-width 4
}
GuidoSlider max_slider {
-maximum_width 12.0
-update_method "SetMaxPosition"
-minimum 0
-maximum 100
-status_item "setMaxSlider"
-increment 1
-tip "Select the maximum extent"
}
GuidoFiller fill4 {
-width .5
}
GuidoLabel sliderMaxEndLabel {
-status_item "max_slider_max"
-width 4
}
GuidoFiller fill5 {
-width .5
}
GuidoField max_plane_value {
-display_length 8
-format double
-decimals 3
-null disallowed
-input allowed
-max_length 32
-translate none
-action valueChanged {[setMaxSlider $max_plane_value]}
-status_item "max_value"
}
}
}
GuidoPanel ClipByElevation7 {
-layout BoxLayout X_AXIS
GuidoCheckBox retain {
-default true
-selected_value Y
-tip "Uncheck if data beyond the specified clipping planes are required to be retained."
-unselected_value N
}
GuidoFiller fill9 {
-width 0.5
}
GuidoLabel ClipByElevation8 {
-label "Retain inside"
}
}
GuidoPanel ClipByElevation9 {
-layout BoxLayout X_AXIS
GuidoCheckBox newlayerStorage {
-default false
-selected_value Y
-tip CLIP_BY_PLANE_TIP_2
-unselected_value N
}
GuidoFiller fill9 {
-width 0.5
}
GuidoLabel ClipByElevation10 {
-label "Result storage layer name"
}
GuidoFiller fill0 {
-width 1.0
}
GuidoField layerName {
-display_length 21
-format none
-null disallowed
-input allowed
-max_length 32
-translate none
-dependency {"[$newlayerStorage getCurrentValue]" == "Y"}
}
}
GuidoPanel ClipByElevation99 {
-layout BoxLayout X_AXIS
GuidoField pureStringData {
-visible false
}
GuidoCheckBox anySpotHeight {
-default false
-selected_value Y
-tip "Select the checkbox to enable the spot height string range data entry field which allows the spot height strings to be defined."
-dependency {"[$pureStringData getCurrentValue]" == "Y"}
-unselected_value N
}
GuidoFiller fill9 {
-width 0.5
}
GuidoLabel ClipByElevation100 {
-label "Spot height string range"
-dependency {"[$pureStringData getCurrentValue]" == "Y"}
}
GuidoFiller fill0 {
-width 2.0
}
GuidoField spotHeight {
-display_length 21
-tip CLIP_BY_PLANE_TIP_3
-format range
-null allowed
-input allowed
-max_length 32
-translate none
-dependency {"[$anySpotHeight getCurrentValue]" == "Y" && "[$pureStringData getCurrentValue]" == "Y"}
}
}
GuidoPanel ClipByElevation999 {
-layout BoxLayout X_AXIS
GuidoCheckBox saveContactString {
-default false
-selected_value Y
-tip "Select the checkbox to enable the contact string data entry field which allows the contact string number to be defined."
-dependency {"[$pureStringData getCurrentValue]" == "N"}
-unselected_value N
}
GuidoFiller fill99 {
-width 0.5
}
GuidoLabel ClipByElevation1000 {
-label "Contact string"
-dependency {"[$pureStringData getCurrentValue]" == "N"}
}
GuidoFiller fill0 {
-width 6.0
}
GuidoField contactString {
-display_length 21
-tip CLIP_BY_PLANE_TIP_4
-format integer
-null disallowed
-input allowed
-default 1
-low_bound 1
-high_bound 32000
-max_length 32
-translate none
-dependency {"[$saveContactString getCurrentValue]" == "Y" && "[$pureStringData getCurrentValue]" == "N"}
}
}
}
}
}
