GuidoLabel newid {}
proc displayCuttingPlanes {range} {
set sliceRange [$range getCurrentValue]
if {"$sliceRange" != ""} {
GuidoExecServer "DisplayCuttingPlanes" [subst {SliceRange = "$sliceRange"} ]
}
}
proc displayCuttingPlanes1 {formHandle} {
set sliceRange [$formHandle getField slicerng]
if {"$sliceRange" != ""} {
GuidoExecServer "DisplayCuttingPlanes" [subst {SliceRange = "$sliceRange"} ]
}
}
proc displayCuttingPlanes2 {formHandle} {
set sliceRange ""
lappend sliceRange "[$formHandle getField start]"
lappend sliceRange ","
lappend sliceRange "[$formHandle getField end]"
lappend sliceRange ","
lappend sliceRange "[$formHandle getField spacing]"
GuidoExecServer "DisplayCuttingPlanes" [subst {SliceRange = "$sliceRange"} ]
}
proc setSectionStartSlider {start} {
set startValue [$start getCurrentValue]
if {"$startValue" != ""} {
GuidoExecServer "SetSectionStartSlider" [subst {Start = "$startValue"} ]
}
}
proc setSectionEndSlider {end} {
set endValue [$end getCurrentValue]
if {"$endValue" != ""} {
GuidoExecServer "SetSectionEndSlider" [subst {End = "$endValue"} ]
}
}
proc setSectionIntervalSlider {spacing} {
set spacingValue [$spacing getCurrentValue]
if {"$spacingValue" != ""} {
GuidoExecServer "SetSectionIntervalSlider" [subst {Spacing = "$spacingValue"} ]
}
}
GuidoForm frm00458 {
-default_buttons
-label "Extract slices through objects"
-layout BoxLayout Y_AXIS
-tip "00458_TIP_001"
GuidoPanel frm00458_11 {
-layout CentreLineLayout Vertical Left
GuidoLabel swa_name_label {
-label "Layer name"
}
GuidoLabel swa_name {
}
}
GuidoPanel frm00458_13 {
-border etched true
-label "Define the objects to be sliced and the new layer name"
-layout CentreLineLayout Vertical Left
GuidoField slice_lyr {
-display_length 28
-format none
-label "Slice Layer"
-max_length 32
-null false
-tip "00458_TIP_002"
-translate lower
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField objrng {
-display_length 28
-format range
-label "Object range"
-max_length 32
-tip "00458_TIP_003"
-translate none
}
}
GuidoPanel frm00458_15 {
-border etched true
-label "Define the files to be created which contain the slices"
-layout CentreLineLayout Vertical Left
GuidoFileBrowserField outloc {
-display_length 30
-file_mask *.str
-link newid
-format none
-null false
-label Location
-max_length FIO_MAX_LOCATION_LENGTH
-tip "00458_TIP_004"
-translate lower
}
}
GuidoPanel p2 {
-layout CentreLineLayout Vertical Left
-border etched true
-label "Section definition method"
GuidoButtonGroupPanel sectionDefinitionMethod {
-tip "Choose the section definition method."
-layout BoxLayout Y_AXIS
-display_length 33.7
GuidoRadioButton rangeMethod {
-caption "Define sections using a range"
-default true
-action mouseClicked {[displayCuttingPlanes1 $frm00458]}
-action initial {[displayCuttingPlanes1 $frm00458]}
-selected_value range
-height 1
}
GuidoRadioButton interactiveSliderMethod {
-caption "Define sections using interactive slider controls"
-action mouseClicked {[displayCuttingPlanes2 $frm00458]}
-selected_value slider
-height 1
}
}
}
GuidoPanel p2 {
-layout OverlayLayout
-border etched true
GuidoPanel frm00458_177 {
-border etched true
-label "Define the slices required by a distance range"
-layout CentreLineLayout Vertical Left
-dependency {"[ $sectionDefinitionMethod getCurrentValue]" == "range"}
GuidoField slicerng {
-display_length 26
-format range
-label Range
-action valueChanged {[displayCuttingPlanes $slicerng]}
-max_length 32
-null false
-tip "00458_TIP_005"
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField filerng {
-display_length 26
-format range
-label "Output file IDs"
-max_length 32
-tip "00458_TIP_006"
-translate none
}
}
GuidoPanel frm00458_188 {
-layout BoxLayout Y_AXIS
-border etched true
-label "Select the section start, end and interval"
-dependency {"[ $sectionDefinitionMethod getCurrentValue]" == "slider"}
GuidoPanel frm00458_19 {
-layout BoxLayout X_AXIS
GuidoLabel frm00458_20 {
-label "Start distance"
}
GuidoFiller fill0 {
-width 1.5
}
GuidoLabel section_start {
-status_item "section_start_min"
-width 3
}
GuidoSlider section_start_position_slider {
-maximum_width 12.0
-status_item "setSectionStartSlider"
-update_method "SetSectionStartPosition"
-minimum 0
-maximum 100
-increment 1
-tip "Select the section start distance"
}
GuidoFiller fill0 {
-width .5
}
GuidoLabel section_end {
-status_item "section_start_max"
-width 3
}
GuidoFiller fill0 {
-width .5
}
GuidoField start {
-display_length 5
-format integer
-null disallowed
-input allowed
-max_length 32
-translate none
-action valueChanged {[setSectionStartSlider $start]}
-status_item "section_start_value"
}
}
GuidoPanel frm00458_21 {
-layout BoxLayout X_AXIS
GuidoLabel frm00458_22 {
-label "End distance"
}
GuidoFiller fill0 {
-width 1.8
}
GuidoLabel section_start {
-status_item "section_end_min"
-width 3
}
GuidoSlider section_end_position_slider {
-maximum_width 12.0
-update_method "SetSectionEndPosition"
-minimum 0
-maximum 100
-status_item "setSectionEndSlider"
-increment 1
-tip "Select the section end distance"
}
GuidoFiller fill0 {
-width .5
}
GuidoLabel section_end {
-status_item "section_end_max"
-width 3
}
GuidoFiller fill0 {
-width .5
}
GuidoField end {
-display_length 5
-format integer
-null disallowed
-input allowed
-max_length 32
-translate none
-action valueChanged {[setSectionEndSlider $end]}
-status_item "section_end_value"
}
}
GuidoPanel frm00458_23 {
-layout BoxLayout X_AXIS
GuidoLabel frm00458_24 {
-label "Section spacing"
}
GuidoFiller fill0 {
-width 0.7
}
GuidoLabel section_start {
-status_item "section_interval_min"
-width 3
}
GuidoSlider section_interval_slider {
-maximum_width 12.0
-update_method "SetSectionInterval"
-status_item "setSectionIntervalSlider"
-minimum 0
-maximum 100
-increment 1
-tip "Select the section spacing"
}
GuidoFiller fill0 {
-width .5
}
GuidoLabel section_end {
-status_item "section_interval_max"
-width 3
}
GuidoFiller fill0 {
-width .5
}
GuidoField spacing {
-display_length 5
-format integer
-null disallowed
-input allowed
-max_length 32
-action valueChanged {[setSectionIntervalSlider $spacing]}
-translate none
-status_item "section_interval"
}
}
}
}
}
