;;------------------------------------------------------------------------------------- ;; gdm_a1_dim_toleranz.lsp ;; os / 05.11.2010 ;; Maß - mit +/- bzw. oben/unten Toleranz versehen und löschen ;; gdm_a2_dim_toleranz.lsp ;; Leerzeichen in den Proposals bei oben/unten (highway45 - 9.Jun2011) ;; Maß mit Prä- und Postfix versehen und löschen /Format Dezimalstellen hinzugeügt (Mibr - 30.01.16) ;;------------------------------------------------------------------------------------- (in-package :GDM) (use-package :OLI) (sd-defdialog 'gdm-dim-toleranz-dialog :dialog-title (sd-multi-lang-string "Tolerance" :german "Bemassung") :toolbox-button nil :variables '( (TOL_NEIN :value-type :boolean :toggle-type :wide-toggle :title (sd-multi-lang-string "Delete Tolerance" :german "Toleranz löschen") :after-input (if TOL_NEIN (progn (sd-set-variable-status 'TOL_PM :visible nil) (sd-set-variable-status 'TOL_U :visible nil) (sd-set-variable-status 'TOL_L :visible nil) (sd-set-variable-status 'Fix_P :visible nil) (sd-set-variable-status 'FIX_O :visible nil) (sd-set-variable-status 'FOR_WE :visible nil) (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) ("-") (FIX_NEIN :value-type :boolean :toggle-type :wide-toggle :title (sd-multi-lang-string "Delete prefix-postfix" :german "Prä- und Postfix löschen") :after-input (if FIX_NEIN (progn (sd-set-variable-status 'TOL_PM :visible nil) (sd-set-variable-status 'TOL_U :visible nil) (sd-set-variable-status 'TOL_L :visible nil) (sd-set-variable-status 'Fix_P :visible nil) (sd-set-variable-status 'FIX_O :visible nil) (sd-set-variable-status 'FOR_WE :visible nil) (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) (PRA_NEIN :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Delete prefix" :german "Präfix löschen") :after-input (if PRA_NEIN (progn (sd-set-variable-status 'TOL_PM :visible nil) (sd-set-variable-status 'TOL_U :visible nil) (sd-set-variable-status 'TOL_L :visible nil) (sd-set-variable-status 'Fix_P :visible nil) (sd-set-variable-status 'FIX_O :visible nil) (sd-set-variable-status 'FOR_WE :visible nil) (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) (POS_NEIN :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Delete postfix" :german "Postfix löschen") :after-input (if POS_NEIN (progn (sd-set-variable-status 'TOL_PM :visible nil) (sd-set-variable-status 'TOL_U :visible nil) (sd-set-variable-status 'TOL_L :visible nil) (sd-set-variable-status 'Fix_P :visible nil) (sd-set-variable-status 'FIX_O :visible nil) (sd-set-variable-status 'FOR_WE :visible nil) (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) ("Format") (TOL_TYPE_WE :value-type :boolean :toggle-type :wide-toggle :title (sd-multi-lang-string "Decimal places" :german "Dezimalstellen") :after-input (if TOL_TYPE_WE (progn (sd-set-variable-status 'TOL_PM :visible nil) (sd-set-variable-status 'TOL_U :visible nil) (sd-set-variable-status 'TOL_L :visible nil) (sd-set-variable-status 'Fix_P :visible nil) (sd-set-variable-status 'FIX_O :visible nil) (sd-set-variable-status 'FOR_WE :visible t) (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) (FOR_WE :title (sd-multi-lang-string "Number" :german "Anzahl") :value-type :number :proposals (0 1 2 3 4 5 6) :initial-value 1 :after-input (setf DIM_TOLERANZ nil) :initial-visible nil) ("Zur Bemassung hinzu/ändern") (TOL_TYPE_UL :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Upper-Lower" :german "Oben-Unten") :after-input (progn (sd-set-variable-status 'TOL_PM :visible nil) (sd-set-variable-status 'TOL_U :visible t) (sd-set-variable-status 'TOL_L :visible t) (sd-set-variable-status 'Fix_P :visible nil) (sd-set-variable-status 'FIX_O :visible nil) (sd-set-variable-status 'FOR_WE :visible nil) (setf DIM_TOLERANZ nil)) :initial-value t) (TOL_TYPE_PM :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Plus-minus" :german "Plus-Minus") :after-input (progn (sd-set-variable-status 'TOL_PM :visible t) (sd-set-variable-status 'TOL_U :visible nil) (sd-set-variable-status 'TOL_L :visible nil) (sd-set-variable-status 'Fix_P :visible nil) (sd-set-variable-status 'FIX_O :visible nil) (sd-set-variable-status 'FOR_WE :visible nil) (setf DIM_TOLERANZ nil)) :initial-value nil) (TOL_Type_FI :value-type :boolean :toggle-type :wide-toggle :title (sd-multi-lang-string "Prefix-postfix" :german "Präfix-Postfix") :after-input (progn (sd-set-variable-status 'TOL_PM :visible nil) (sd-set-variable-status 'TOL_U :visible nil) (sd-set-variable-status 'TOL_L :visible nil) (sd-set-variable-status 'Fix_P :visible t) (sd-set-variable-status 'FIX_O :visible t) (sd-set-variable-status 'FOR_WE :visible nil) (setf DIM_TOLERANZ nil)) :initial-value nil) ("-") (TOL_PM :title (sd-multi-lang-string "Tolerance" :german "Toleranz") :value-type :length :proposals (0.03 0.05 0.1 0.15 0.2) :initial-value 0.1 :after-input (setf DIM_TOLERANZ nil) :initial-visible nil) (TOL_U :title (sd-multi-lang-string "Upper" :german "Oben") :value-type :string :proposals ("+0.5" "+0.2" "+0.15" "+0.1" "+0.05" "" "-0.05" "-0.1" "-0.15" "-0.2" "-0.5") :initial-value "" :after-input (setf DIM_TOLERANZ nil) :initial-visible t) (TOL_L :title (sd-multi-lang-string "Lower" :german "Unten") :value-type :string :proposals ("+0.5" "+0.2" "+0.15" "+0.1" "+0.05" "" "-0.05" "-0.1" "-0.15" "-0.2" "-0.5") :initial-value "" :after-input (setf DIM_TOLERANZ nil) :initial-visible t) (FIX_P :title (sd-multi-lang-string "Prefix" :german "Präfix") :value-type :string :proposals ("(" "[" "ø") :initial-value "" :after-input (setf DIM_TOLERANZ nil) :initial-visible nil) (FIX_O :title (sd-multi-lang-string "Postfix" :german "Postfix") :value-type :string :proposals (")" "]" "15°" "x30°" "x45°" "x60°") :initial-value "" :after-input (setf DIM_TOLERANZ nil) :initial-visible nil) (DIM_TOLERANZ :selection (*sd-anno-dimension-seltype*) :title (sd-multi-lang-string "Dimension" :german "Bemassung") :toggle-type :invisible :prompt-text (sd-multi-lang-string "Pick Dimension." :german "Wähle Bemassung.") :after-input (if TOL_NEIN (sd-call-cmds (AM_DIM_PROPS :page :tolerance DIM_TOLERANZ :dim_list :TOL_TYPE :NONE)) (if TOL_TYPE_PM (sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :TOL_TYPE :PLUS_MINUS :tol_upper TOL_PM)) (if TOL_TYPE_UL (sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :TOL_TYPE :UPPER_LOWER :tol_upper TOL_U :tol_lower TOL_L)) (if TOL_TYPE_FI (sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :dim_postfix FIX_O :dim_prefix FIX_P)) (if FIX_NEIN (sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :dim_postfix "" :dim_prefix "")) (if POS_NEIN (sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :dim_postfix "")) (if PRA_NEIN (sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :dim_prefix "")) (if TOL_TYPE_WE (sd-call-cmds (am_dim_props :page :format DIM_TOLERANZ :main_value_precision FOR_WE :main_zero_suppression :off)) )))))))) :next-variable 'DIM_TOLERANZ) );;variables :mutual-exclusion '(TOL_NEIN FIX_NEIN TOL_TYPE_PM TOL_TYPE_UL TOL_Type_FI POS_NEIN PRA_NEIN TOL_TYPE_WE) :prompt-variable 'DIM_TOLERANZ :ok-action '(cancel) );; sd-defdialog