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

(sd-defdialog 'iwg-coord-list-dialog
:dialog-title "Koordliste"
;;:dialog-control :sequential
:toolbox-button t
:variables
  '(
    (cosylist :selection
																	(*sd-coord-sys-object-seltype*)
														:multiple-items t
														:show-select-menu t
														:additional-token-string ":coord_system"
														:prompt-text "Koordinatensysteme angeben"
														:title "Koord."
    )
   )
:local-functions
  '(
    (doit ()
     (let (tor cosy teil)
						(dolist (cosy cosylist)
							(setf tor (sd-vec-xform (make-gpnt3d :x 0 :y 0 :z 0) :source-space cosy :dest-space :global))
							(setf globx (gpnt3d_x tor))
							(setf globy (gpnt3d_y tor))
							(setf globz (gpnt3d_z tor))
							(setf teil (sd-inq-obj-basename (sd-inq-parent-obj cosy)))
							(display (format nil "~a ~a,~a,~a" teil globx globy globz))
						);;dolist
     );;let
    )
   )
:ok-action '(doit)
:cancel-action '()
:helpAction '()
)