;;--------------------------------------------------------------------------*
;; Dateiname: hk_ap_ep.lsp
;; Revision  : 1.0
;; Datum    : 30.05.06
;; Author   : Tasche
;; Version   :14
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Beschriftet einen Bogen, mit Anfangs. Endpunkt 
;;und seiner Richtung UZ oder GUZ.                                                                                                  
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:                   
;;--------------------------------------------------------------------------*
;;        
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_ap-ep
		:toolbox-button t
   	:dialog-title "HK AP EP"
   	:prompt-text "Kontur auswaehlen"
	   :dialog-type :terminate
   	:variables
   	'(
	      (hk_kontur  
	   			  :selection *sd-arc-2d-seltype* 
			      :title "Bogen"
			      :modifies nil
	          :prompt-text "Bogen auswählen"
	          :after-input (hk_messe_kontur)
	          :next-variable 'hk_kontur
			)
			
			
			
			
				             
	   );variables
	      
	  :local-functions
   	'( 
   		(hk_messe_kontur()
   			(setf x-ap-bogen 0)
   			(setf y-ap-bogen 0)
   			(setf x-ep-bogen 0)
   			(setf y-ap-bogen 0)
   			(setf xy-ap-bogen 0)
   			(setf xy-ep-bogen 0)
   			(setf xy-mp-bogen 0)
   			(setf radius-bogen 0)
   			(setf abstand-ap-ep-bogen 0)
   			(setf winkel-kompl-bogen 0)
   			(setf hk_bogen_uz_guz (gpnt3d_z (sd-circle-normal (sd-inq-geo-props hk_kontur :dest-space (sd-inq-curr-wp)))))
	     		(if (minusp hk_bogen_uz_guz)
 					 (progn
						(sd-call-cmds (COCREATE_3D_NOTE :action :create
						:items hk_kontur
						:note "Bogen im UZ"
						:category
						:MFG))
					);;progn
					;;if
					(progn
						(sd-call-cmds (COCREATE_3D_NOTE :action :create
						:items hk_kontur
						:note "Bogen im GUZ"
						:category
						:MFG))
					);;progn
				);;if
   			(setf x-ap-bogen (* -1(gpnt2d_x (sd-edge-start-pnt (sd-inq-edge-geo hk_kontur :dest-space (sd-inq-curr-wp))))))
   			(setf y-ap-bogen (* -1(gpnt2d_y (sd-edge-start-pnt (sd-inq-edge-geo hk_kontur :dest-space (sd-inq-curr-wp))))))
   			(setf x-ep-bogen (* -1(gpnt2d_x (sd-edge-end-pnt (sd-inq-edge-geo hk_kontur :dest-space (sd-inq-curr-wp))))))
   			(setf y-ep-bogen (* -1(gpnt2d_y (sd-edge-end-pnt (sd-inq-edge-geo hk_kontur :dest-space (sd-inq-curr-wp))))))
   			(setf x-mp-bogen (* -1(gpnt2d_x (sd-circle-center (sd-inq-geo-props hk_kontur :dest-space (sd-inq-curr-wp))))))
   			(setf y-mp-bogen (* -1(gpnt2d_y (sd-circle-center (sd-inq-geo-props hk_kontur :dest-space (sd-inq-curr-wp))))))
   			(setf xy-ap-bogen(gpnt2d (* -1 x-ap-bogen) (* -1 y-ap-bogen)))
   			(setf xy-ep-bogen(gpnt2d (* -1 x-ep-bogen) (* -1 y-ep-bogen)))
   			(setf xy-mp-bogen(gpnt2d (* -1 x-mp-bogen) (* -1 y-mp-bogen)))
				(sd-call-cmds
					(COCREATE_3D_NOTE :action :create
				 	  :items
						:CATEGORY :MFG
						:items xy-ap-bogen
						:note "AP")
				);;sd-call-cmds
				
				(sd-call-cmds
					(COCREATE_3D_NOTE :action :create
				 	  :items
						:CATEGORY :MFG
						:items xy-ep-bogen
						:note "EP")
				);;sd-call-cmds
  
   		);;hk_messe_kontur
		 );local-function
);sd-defdialog