;;------------------------------------------------------------------------------------- ;; 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 hinzu/ändern") :toolbox-button nil :variables '( (Ueber :title (sd-multi-lang-string "Tolerance and Fix" :german "Toleranzen und Fixtexte")) (TOL_TYPE_UL :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Upper-Lower" :german "Obere-Untere") :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) (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) (setf DIM_TOLERANZ nil)) :initial-value nil) (TOL_Type_FI :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Prefix-postfix" :german "P-Fix") :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) (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 "Obere") :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 "Untere") :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 ("" "(" "(" "[" "M") :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 (")" "]" "x15°" "x30°" "x45°" "x60°") :initial-value "" :after-input (setf DIM_TOLERANZ nil) :initial-visible nil) (DELETE_TOL :title (sd-multi-lang-string "delete" :german "Löschen")) (TOL_NEIN :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Delete Tolerance" :german "Toleranz") :after-input (if TOL_NEIN (progn (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) (FIX_NEIN :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "Delete prefix-postfix" :german "Prä- & Postfix") :after-input (if FIX_NEIN (progn (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") :after-input (if PRA_NEIN (progn (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") :after-input (if POS_NEIN (progn (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) (Ueber2 :title (sd-multi-lang-string "Change Format" :german "Format ändern")) (STIL_KL :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "3.5 Style" :german "3.5 Stil") :after-input (if STIL_KL (progn (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) (STIL_GR :value-type :boolean :toggle-type :grouped-toggle :title (sd-multi-lang-string "5.0 Style" :german "5.0 Stil") :after-input (if STIL_GR (progn (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) ("-") (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 (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 3 :after-input (progn (setf DIM_TOLERANZ nil) (setf TOL_TYPE_WE t)) :initial-visible t) ("-") (STIL_BH :value-type :boolean :toggle-type :wide-toggle :title (sd-multi-lang-string "Decimal places" :german "Schriftbreite") :after-input (if STIL_BH (progn (setf DIM_TOLERANZ nil));;progn );;if :initial-value nil) (FOR_BH :title (sd-multi-lang-string "Breite/Höhe" :german "Breite/Höhe") :value-type :number :proposals (0.60 0.65 0.70 0.75 0.8) :initial-value 0.8 :after-input (progn (setf DIM_TOLERANZ nil) (setf STIL_BH t)) :initial-visible t) (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 :dim_list DIM_TOLERANZ :main_value_precision FOR_WE :main_zero_suppression :default)) (if STIL_KL (sd-call-cmds (am_dim_props :page :text_props DIM_TOLERANZ :text_color_setting :off :ARROW_FIRST_ABS_SIZE 3.5 :ARROW_SECOND_ABS_SIZE 3.5 :line_color_setting :off :TEXT_COLOR 16776960 :done :TEXT_ABS_SIZE 3.5 :TEXT_SCOPE :PREFIX :TEXT_COLOR 16776960 :done :TEXT_SCOPE :POSTFIX :TEXT_COLOR 16776960 :done :TEXT_SCOPE :ALL_TOL :TEXT_COLOR 16776960 :done)) (if STIL_GR (sd-call-cmds (am_dim_props :page :text_props DIM_TOLERANZ :text_color_setting :off :ARROW_FIRST_ABS_SIZE 5 :ARROW_SECOND_ABS_SIZE 5 :line_color_setting :off :TEXT_COLOR 65280 :done :TEXT_ABS_SIZE 5 :TEXT_SCOPE :PREFIX :TEXT_COLOR 65280 :done :TEXT_SCOPE :POSTFIX :TEXT_COLOR 65280 :done :TEXT_SCOPE :ALL_TOL :TEXT_COLOR 65280 :done)) (if STIL_BH (sd-call-cmds (am_dim_props :page :text_props DIM_TOLERANZ :page :text_props :TEXT_SCOPE :DIM_ALL :TEXT_RATIO FOR_BH)) ))))))))))) :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 STIL_KL STIL_GR STIL_BH) :prompt-variable 'DIM_TOLERANZ :ok-action '(cancel) );; sd-defdialog