(in-package :custom)
(use-package :OLI)

(sd-defdialog 'iwg-kantenwinkel-berechnen-dialog
:dialog-title "Kantenwinkel"
:toolbox-button t
:variables
  '(
    (bezkt  :selection (*sd-line-3d-seltype* *sd-line-2d-seltype* *sd-c-line-2d-seltype* *sd-c-finite-line-2d-seltype*)
            :multiple-items nil
             :prompt-text "Bezugskante angeben"
            :title "Bezug"
            :initial-value nil
    )
    (messkt :selection (*sd-line-3d-seltype* *sd-line-2d-seltype* *sd-c-line-2d-seltype* *sd-c-finite-line-2d-seltype*)
            :multiple-items t
            :show-select-menu t
            :prompt-text "Kanten deren Winkel berechnet werden soll angeben"
            :title "Messen"
            :initial-value nil
            :after-input (go-action)
    )
   )
:local-functions
  '(
    (go-action ()
     (let (kt)
     (dolist (kt messkt)
       (display (/ (round (* (sd-rad-to-deg (sd-call-cmds (measure_angle :edge bezkt kt))) 100)) 100.0))
      );;dolist
						(setf messkt nil)
     );;let
    )
   )
:ok-action
   '()
)