;;--------------------------------------------------------------------------*
;; Dateiname: hk_2d_kontur_abfragen.lsp
;; Revision  : 1.0
;; Datum    : .2004
;; Author   : Tasche
;; Version   :13.01
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;;                                                                                                   
;;                                                                                                   
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen: 
(setf hk_satznummer 1)                  
;;--------------------------------------------------------------------------*
;;(setf hk_lfnr 1)        
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_testprog
		:toolbox-button t
   	:dialog-title "HK testprog"
   	:prompt-text "Kontur auswaehlen"
	   :dialog-type :terminate
   	:variables
   	'(
	      (hk_3d_punkt	
	      	:value-type :point-3d
	      	;;:selection (*sd-arc-3d-seltype*)
			   :title "3DPunkt"
			   :modifies nil
	         :prompt-text "Punkt auswählen"
	         :next-variable 'hk_3d_punkt
	         :after-input (hk-messe-3d-punkt)	
			);;hk_3d_punkt
			
			(hk_bogen_ep
	      	:selection (*sd-arc-3d-seltype*)
			   :title "Bogen EP"
			   :modifies nil
	         :prompt-text "3D Bogen Endpunkt"
	         :next-variable 'hk_bogen_ep
	         :after-input (hk-messe-3d-bogen-ep)	
			);;hk_bogen
			
			(hk_bogen_ap	
	      	:selection (*sd-arc-3d-seltype*)
			   :title "Bogen AP"
			   :modifies nil
	         :prompt-text "3D Bogen Anfangfspunkt"
	         :next-variable 'hk_bogen_ep
	         :after-input (hk-messe-3d-bogen-ap)	
			);;hk_bogen
			
		)
		:local-functions
   	'( 
   		(hk-messe-3d-punkt()
	       	(setf localwerte (sd-vec-xform hk_3d_punkt :source-space :global :dest-space :global))
	       	(setf x-wert (gpnt3d_x localwerte))
	       	(setf y-wert (gpnt3d_y localwerte))
	       	(setf z-wert (gpnt3d_z localwerte))
	         (display (format nil"N~A G1 X~,3F Y~,3F Z~,3F"hk_satznummer x-wert y-wert z-wert))
	         (setf hk_satznummer (+ hk_satznummer 1))
	      );;hk_messe_3d_punkt
	      
	      (hk-messe-3d-bogen-ep ()
	      	(setf x-ap-bogen (gpnt3d_x (sd-edge-start-pnt (sd-inq-edge-geo hk_bogen_ep :dest-space :global))))
   			(setf y-ap-bogen (gpnt3d_y (sd-edge-start-pnt (sd-inq-edge-geo hk_bogen_ep :dest-space :global))))
   			(setf z-ap-bogen (gpnt3d_z (sd-edge-start-pnt (sd-inq-edge-geo hk_bogen_ep :dest-space :global))))
   			(setf x-ep-bogen (gpnt3d_x (sd-edge-end-pnt (sd-inq-edge-geo hk_bogen_ep :dest-space :global))))
   			(setf y-ep-bogen (gpnt3d_y (sd-edge-end-pnt (sd-inq-edge-geo hk_bogen_ep :dest-space :global))))
   			(setf z-ep-bogen (gpnt3d_z (sd-edge-end-pnt (sd-inq-edge-geo hk_bogen_ep :dest-space :global))))
   			(setf x-mp-bogen (gpnt3d_x (sd-circle-center (sd-inq-geo-props hk_bogen_ep :dest-space :global))))
   			(setf y-mp-bogen (gpnt3d_y (sd-circle-center (sd-inq-geo-props hk_bogen_ep :dest-space :global))))
   			(setf z-mp-bogen (gpnt3d_z (sd-circle-center (sd-inq-geo-props hk_bogen_ep :dest-space :global))))
   			(display (format nil"N~A G3 X~,3F Y~,3F Z~,3F I~,3F J~,3F K~,3F"hk_satznummer x-ep-bogen y-ep-bogen z-ep-bogen x-mp-bogen y-mp-bogen z-mp-bogen))
   			(setf hk_satznummer (+ hk_satznummer 1))	
	    )
	    
	    (hk-messe-3d-bogen-ap ()
	      	(setf x-ap-bogen (gpnt3d_x (sd-edge-start-pnt (sd-inq-edge-geo hk_bogen_ap :dest-space :global))))
   			(setf y-ap-bogen (gpnt3d_y (sd-edge-start-pnt (sd-inq-edge-geo hk_bogen_ap :dest-space :global))))
   			(setf z-ap-bogen (gpnt3d_z (sd-edge-start-pnt (sd-inq-edge-geo hk_bogen_ap :dest-space :global))))
   			(setf x-ep-bogen (gpnt3d_x (sd-edge-end-pnt (sd-inq-edge-geo hk_bogen_ap :dest-space :global))))
   			(setf y-ep-bogen (gpnt3d_y (sd-edge-end-pnt (sd-inq-edge-geo hk_bogen_ap :dest-space :global))))
   			(setf z-ep-bogen (gpnt3d_z (sd-edge-end-pnt (sd-inq-edge-geo hk_bogen_ap :dest-space :global))))
   			(setf x-mp-bogen (gpnt3d_x (sd-circle-center (sd-inq-geo-props hk_bogen_ap :dest-space :global))))
   			(setf y-mp-bogen (gpnt3d_y (sd-circle-center (sd-inq-geo-props hk_bogen_ap :dest-space :global))))
   			(setf z-mp-bogen (gpnt3d_z (sd-circle-center (sd-inq-geo-props hk_bogen_ap :dest-space :global))))
   			(display (format nil"N~A G2 X~,3F Y~,3F Z~,3F I~,3F J~,3F K~,3F"hk_satznummer x-ap-bogen y-ap-bogen z-ap-bogen x-mp-bogen y-mp-bogen z-mp-bogen))
   			(setf hk_satznummer (+ hk_satznummer 1))	
		)
)
)