(in-package :sw) (use-package :oli) (sd-defdialog 'SW-Messpunkt-erstellen :dialog-title '(sd-multi-lang-string "Create Measure Point" :german "SW-Messpunkt erstellen") :toolbox-button t ; nil :after-initialization '() ; :trace nil :variables '( (Flaeche ; :value-type :face :selection (*sd-face-seltype*) :multiple-items nil :incl-position :3d :store-pick-point t :title (sd-multi-lang-string "Face" :german "Fläche") :prompt-text (sd-multi-lang-string "Choose new Face" :german "Neue Fläche auswählen") :initial-value nil :initial-visible t :after-input (progn (sd-call-cmds (ui::uic_new_wp_on_face Flaeche)) (setq Flaeche nil) ) ) );;variables :ok-action '() :cancel-action '() :help-action '(sd-display-message " 2019-03-14 SW: erstellt von Wolfgang Seel " :title "SW-Messpunkt-erstellen.lsp" :push "Weiter") );;sd-defdialog