(in-package :custom) (use-package :OLI) ;;--------------------------------------------------------------------------* (sd-defdialog 'dc4-sonderflaechen-kennzeichnen-dialog :dialog-title "3D Sonderflaechen markieren" ;;:dialog-control :sequential :variables '( (mark :value-type :boolean :toggle-type :grouped-toggle :title "Markieren" :initial-value t ) (remv :value-type :boolean :toggle-type :grouped-toggle :title "Entf." :initial-value nil ) (flist :selection (*sd-face-seltype*) :multiple-items t :show-select-menu t :prompt-text "Flaechen angeben" :title "Flaechen" :modifies :contents :initial-value nil ) (farbe :value-type :rgb-color :title "Farbe" :initial-optional t :initial-value nil ) (next :push-action (go-action) :toggle-type :wide-toggle :title "Weiter" ) ) :mutual-exclusion '(mark remv) :local-functions '( (go-action () (let (fl) (dolist (fl flist) (if mark (progn (when farbe (when (not (sd-inq-thread fl)) (sd-call-cmds (face_prop :the_face fl :color farbe)) );;when );;when (sd-attach-item-attribute fl "DC4-SONDERFLAECHE" :attachment :contents :on-copy :copy :on-merge :maintain :on-split :copy :on-xform :maintain :filing '(:sd-file :mi-file) :values `(:DC4-PRAEGEKANTE ,"SONDERFLAECHE") ) );;progn (progn (when (not (sd-inq-thread fl)) (sd-call-cmds (face_prop :the_face fl :color :off)) );;when (sd-detach-item-attribute fl "DC4-SONDERFLAECHE" :attachment :contents ) );;progn );;if );;dolist (setf flist nil) );;let ) ) :ok-action '(go-action) )