proc validateLayerNameRequiredIfNew {newRadio nameEntry} {
if {"[$newRadio getCurrentValue]" == "new"} {
if {"[$nameEntry getCurrentValue]" == ""} {
GuidoMessage warning "Enter the new layer to create"
return 0
}
}
return 1
}
GuidoForm solidSimplify {
-default_buttons
-label "MESHTOOLS_LABEL_SIMPLIFY"
-tip "SOL_SIMPLIFY_TIP"
-layout BoxLayout Y_AXIS
GuidoPanel objectPanel {
-layout BoxLayout X_AXIS
-border etched true
-label "Define objects to be simplified"
GuidoPanel leftPanel {
-layout CentrelineLayout
-alignmentY middle
GuidoLabel labelLayer {
-label "Active layer:"
-height 1
}
GuidoLabel layer {
-font_style bold
-height 1
}
GuidoField obj_range {
-label "Object Range"
-format range
-display_length 16
-max_length MAX_RNG_LENGTH
-tip "Enter the object range for processing"
}
GuidoField trisol_range {
-label "Trisolation Range"
-format range
-display_length 16
-max_length MAX_RNG_LENGTH
-tip "Enter the trisolation range for processing"
}
}
GuidoPanel buttonPanel {
-layout BoxLayout X_AXIS
-alignmentY middle
GuidoFiller space {
-width 0.5
}
GuidoButton select_button {
-caption "Select"
-legacy_button
-selected_value select
-tip SOLIDSEXPAND_2
}
}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel transPanel {
-layout BoxLayout X_AXIS
GuidoLabel simplifyLabel {
-alignmentY top
-label "Simplify by"
}
GuidoFiller space {
-width 0.5
}
GuidoLabel minLabel {
-alignmentY bottom
-font_style bold
-label Min
}
GuidoSlider aggressiveness {
-alignmentY top
-maximum_width 10.0
-minimum 0.0
-maximum 10.0
-resolution 1
-increment 1
-paint_ticks true
-major_ticks 5
-minor_ticks 1
-default 5.0
-tip SOLIDSEXPAND_10
}
GuidoLabel minLabel {
-alignmentY bottom
-font_style bold
-label Max
}
GuidoFiller space {
-width 0.5
}
GuidoButton preview_button {
-alignmentY top
-caption "Preview"
-legacy_button
-selected_value preview
-tip SOLIDSSIMPLIFY_1
}
}
GuidoFiller space {
-height 0.5
}
GuidoScrollPane frm00230_17 {
-height 6
GuidoTable results {
-instances 0 1 1000
-interactive false
GuidoLabel objectId {
-label "Object ID"
}
GuidoLabel trisolationId {
-label "Trisolation ID"
}
GuidoLabel status {
-label "Status"
}
GuidoLabel volumeChange {
-label "Volume change"
}
GuidoLabel triangleChange {
-label "Triangles change"
}
GuidoLabel surfaceAreaChange {
-label "Surface Area Change"
}
}
}
GuidoPanel outputPanel {
-layout BoxLayout X_AXIS
-border etched true
-label "Output"
-width 31
GuidoButtonGroupPanel outputOptions {
-layout BoxLayout Y_AXIS
-legacy_action
GuidoRadioButton b1 {
-caption "Overwrite existing objects"
-selected_value existing
}
GuidoRadioButton b2 {
-caption "New Layer"
-selected_value new
-default true
}
}
GuidoPanel otherOptionsPanel {
-layout BoxLayout Y_AXIS
GuidoPanel cleanDataPanel {
-layout BoxLayout X_AXIS
GuidoFiller space {
-width 1.1
}
GuidoCheckBox cleanDataCheckBox {
-caption "Delete redundant points"
-selected_value Y
-unselected_value N
-tip SOLIDSSIMPLIFY_2
-dependency {"[$outputOptions getCurrentValue]" == "existing"}
}
}
GuidoPanel layerNamePanel {
-layout BoxLayout X_AXIS
GuidoFiller space {
-width 1.1
}
GuidoField outputLayerName {
-display_length 14
-max_length MAX_RNG_LENGTH
-tip "Input layer name"
-dependency {"[$outputOptions getCurrentValue]" == "new"}
-validation {[validateLayerNameRequiredIfNew $outputOptions $outputLayerName]}
}
}
}
}
}
