(in-package :test)
(use-package '(:oli))
(use-package :docu)		;muss bei ANNOTATION mit dazu


(sd-defdialog 'Einlesen
 :dialog-title "einlesen"
 :after-initialization
     (setf Skizzen_name "Ebene")
 
 :variables
  '(
     ;(Skizzen_name :initial-value "Ebene")
   )


 :local-functions
  '(
   ); end Local-functions
); end sd-defdialog

	 (display Skizzen_name)
	 (sd-call-cmds  (AM_SKETCH_CREATE
									:sketch_name Skizzen_name
									:owner       :current_sheet
									:ref_point   0,0
	 ))
;	; Skizze als aktuellen Besitzer der folgenden Geometrie festlegen
	(sd-am-set-default-owner :geo :sketch
	(format NIL "~A~A~A" (sd-am-inq-curr-sheet-name) "/" Skizzen_name)
	)
	(sd-call-cmds (AM_GEO_POINT (make-gpnt2d :x 100 :y 200)))
	;(sd-call-cmds (AM_GEO_LINE_2POS 10,12 50,150))
	;								(make-gpnt2d :x 10 :y 10)
	;								(make-gpnt2d :x 110 :y 210)))
	
     ;(sd-am-create-geo-point 0,0 :owner_type :sketch :owner :current_sketch)
     ;(sd-am-create-geo-point 100,0 :owner_type :sketch :owner :current_sketch)
     ;(sd-am-create-geo-point 0,200 :owner_type :sketch :owner :current_sketch)
	 (display "laeuft")