(use-package :OLI)

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

   :variables
     '(

     (Werkstueck   :value-type :part-assembly
                   :show-select-menu t
	             :modifies nil
	             :multiple-items t
	             :no-highlight t
	             :initial-value nil
	             :title "Teil/Baugr.:"
	             :prompt-text "Teil oder Baugruppe angeben.")
	
	(achse
		:value-type :measure-axis
		:title "Drehachse"
		:prompt-text "Achse auswaehlen")
	
	(Winkel
		:value-type :angle
		:title "Winkel"
		:prompt-text "Drehwinkel angeben")
		
	(Schrittwinkel
		:value-type :angle
		:title "Schrittwinkel"
		:prompt-text "Schrittwinkel eingeben"
            :after-input
            (setf schritte (/ Winkel Schrittwinkel)))

      (schritte :value-type :display-only
               :initial-value 0
               :title "Schritte:")

	(Naechste
		:push-action (los-gehts))
		
      ) ; end variables
   
   :ok-action '(los-gehts)

    :local-functions '(
	(los-gehts ()

(dotimes (Counter schritte)
  (sd-call-cmds (position_pa Werkstueck :rotate :axis (nth 0 achse) (nth 1 achse) :rotation_angle Schrittwinkel :done))
  (cancel_all)
  (redraw_vp "1")
);;dotimes

	) ;end los-gehts	           
     
  ) ;end local-functions
) ;end def dialog