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

(sd-defdialog 'zyl_dehnen
:dialog-title "Kreiskante dehnen"
:toolbox-button t
:variables '(
(kreis_kante	:selection *sd-circle-3d-seltype*
				:title "Kreiskante"
				:prompt-text "Kreiskante"
				:after-input (do-it)
)
)
:ok-action '()
:local-functions '(
(do-it ()
		
	(let (kreis_strukt kreis_nullp kreis_achse)
			
			(setf kreis_strukt (sd-inq-geo-props kreis_kante :dest-space :global))
			(setf kreis_nullp (sd-circle-center kreis_strukt))
			(setf kreis_achse (sd-circle-normal kreis_strukt))

			(sd-call-cmds (stretch 	:edges kreis_kante
									:check_fix :on
									:keep_tangent :yes
									:blend_auto :yes
									:transform_objects :yes
									:update_rels :yes
									:other-method :linear
									:fix-axis-direction :on
									:direction3d kreis_achse :position3d kreis_nullp :done
									:current-length 10
							)
			)
	)
)
)
)