(in-package :custom)

(use-package :OLI)

(sd-defdialog 'Biegewerkzeuge
:dialog-title "Biegewerkzeuge setzen"
:variables
  '(
 
	(sel_Biegung
		:title "Biegung wählen"
		:selection  (*sd-cylinder-seltype*)
		:prompt-text "Bitte wählen Sie eine Biegung aus"
		:multiple-items nil
	)
);ende variables

:local-functions
  '(
   (next_action ()
  
		(SETQ KANTEN2 
			(sd-call-cmds(get_selection 
				:focus_type *sd-edge-3d-seltype* ; *sd-arc-3d-seltype* ;*sd-circle-3d-seltype* 
				:select :edge_3d :by_face sel_Biegung
			)))
			
			(edge_3d_prop :probe_select :edge_3d :all_3d :display_ui :the_edge :color :off :close) ;setzt die Kantenfarbe auf keine
			(edge_3d_prop :edge_3d :by_face sel_Biegung :color 255 :done :close) ; setzt die Kantenfarbe auf BLAU
			(SETQ STARTPUNKT1 (sd-circle-center (sd-inq-geo-props (first KANTEN2) :dest-space :global)))
			(SETQ ENDPUNKT1 (sd-circle-center (sd-inq-geo-props (nth 2 KANTEN2) :dest-space :global)))

			(dolist (ITEM KANTEN2)
				(setf KlaengeP (sd-vec-length (sd-vec-subtract
                                (sd-edge-end-pnt   (sd-inq-edge-geo ITEM ))
                                (sd-edge-start-pnt (sd-inq-edge-geo ITEM ))
                           )
                         )
				)
				(display KlaengeP)
			)

  ); Ende next_action
); ende local functions

:ok-action
   '(next_action)

); ende sd-defdialog