;;--------------------------------------------------------------------------*
;;  Copyright 2011  DC4 Technisches B? GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
(in-package  :chris-as)
(use-package :oli)
(use-package :docu)

(sd-defdialog 'dc4-am-geo-owner-dialog
	:dialog-title "3D-Besitzer"
	:toolbox-button t
	:variables
	'(
		(tpnt	:value-type		:docupntcnp
					:prompt-text	"Punkt auf Teil angeben"
					:title				"von 2D-Teil"
					:after-input	(after-tpnt-action)
		)
	)
	:local-functions
	'(
		(after-tpnt-action ()
			(let (mef teilpfad pfadlist owner3d)
				; string formatieren
				(setf comstring1 (format nil "~a" "INPUT 'D:/tmp/test.mak'"))
				; ME10-Makro laden
				(sd-execute-annotator-command :cmd comstring1)
				; Makroaufruf formatieren
				(setf mef (format nil "DC4_inq_teilpfad ~a,~a" (oli::gpntdocu_x tpnt) (oli::gpntdocu_y tpnt)))
				; ME10-Makro aufrufen
				(setf teilpfad (format nil "/~a" (sd-execute-annotator-function :fnc mef)))
				; Zwischenergebnis anzeigen
				(display teilpfad)
			) ; let
		) ; after ...
	) ; local
) ; sd-def...