;;*** dialog.lsp

(in-package  :se_dialog)
(use-package :oli)

(sd-defdialog 'Namenszug
	:dialog-title "Namenszug"

 	:variables '(

		(Feld1
			:title		"Dein Name"
			:value-type	   :string
	        );;Feld1

  	);;variables

; :ok-action '(display Feld1)
 :ok-action '(progn 
             ;(display Feld1)
              (create_assembly :name "B1")
              (create_part :name "Namenszug" :owner "/B1")
              (create_workplane :new complete :name "A1")
              (create_geo_text :text Feld1 :pos 0,0  :size 10 :font "book_antiqua" complete)
              (create_part "Namenszug")
              (extrude
	               :auto_direction :yes
	               :keep_wp :no
                       ;:keep_profile :no
                       :part "/B1/Namenszug"
		       :distance 10
		       :wp "/A1"
	      );;extrude
                    
                    

             );;progn
 :help-action '(display "RTFM")  ;; display wird nicht angezeigt, da das Fenster nicht nach vorne kommt
 
);;se-defdialog