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

;###############################################################################

(sd-defdialog 'am-beispiel
              :dialog-title "Draw lines in sketch"
              :variables
              '(
                ("Nullpunkt")
                (Nullpunkt :value-type :docupoint :toggle-value-type :defundef)
                )
              
;###############################################################################
              
              :local-functions
              '(
                (draw-horizontal-line-in-sketch(sketchname x y len)
                 (let ((sketch (format nil "~A/~A"
                                       (sd-am-inq-curr-sheet-name)
                                       sketchname)))
                   (sd-am-create-geo-straight
                    :horizontal (list (gpnt2d x y) len)
                    :owner_type :sketch
                    :owner sketch)))
                )
              
              :ok-action
              '(progn
                (let ((2D_Skizze "2D_Skizze"))
                  (sd-am-create-sketch :name 2D_Skizze 
                                       :position Nullpunkt 
                                       :owner_type :current-sheet)
                  
                  ;; Horizontale Linie ab Nullpunkt, Laenge 100mm
                  (draw-horizontal-line-in-sketch 
                   2D_Skizze
                   (gpnt2d_x Nullpunkt) (gpnt2d_y Nullpunkt) 100)
                  
                  ;; Horizontale Linie 10mm ueber Nullpunkt, Laenge 100mm
                  (draw-horizontal-line-in-sketch 
                   2D_Skizze
                   (gpnt2d_x Nullpunkt) (+ 10 (gpnt2d_y Nullpunkt)) 100)
                  ))
              )