(in-package :ALPMA)
(use-package '(:OLI :docu))



(sd-defdialog 'BEMASSUNG_DUR
  :dialog-title "Bem. Durchmesser"
  :toolbox-button t
  :variables '(

    (A_PART :selection (*sd-anno-circle-seltype* *sd-anno-arc-seltype*) 
            :title "Geometrie"
            :prompt-text "Bitte Kreis, Bogen oder Rundung anklicken"
            ;:after-input (kreistyp)
            :next-variable 'A_POS2)
           
    (A_POS2 :value-type  :docupntcnp
            :toggle-type :invisible
            :prompt-text "Bitte Position angeben"
            :next-variable 'A_PART
            :after-input (positionieren) )
   
 )   
  :local-functions '(
  
  
  (positionieren ()

    (setf POS_STR (sd-get-annotator-position :object A_PART))
    (setf X_TMP   (read-from-string (subseq POS_STR 0 (position #\, POS_STR))))
    (setf Y_TMP   (read-from-string (subseq POS_STR (+ 1 (position #\, POS_STR)))))
    (setf A_POS1  (make-gpnt2d :x X_TMP :y Y_TMP))

    (display (sd-call-cmds (am_create_dim_diamtr :centerline :on
                                        :prefix   "" 
                                        :postfix  ""
                                        :superfix ""
                                        :subfix   ""
                                        :tol_type :TOL_NONE
                                        A_POS1 A_POS2))
    )

  )
))