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

(sd-defdialog 'hk_2d_kontur
		:toolbox-button t
   	:dialog-title "HK 2D kontur"
   	:prompt-text "Kontur auswaehlen"
	   :dialog-type :terminate
   	:variables
   	'(
	      (hk_kontur  
	   			  :selection (*sd-circle-2d-seltype* *sd-arc-2d-seltype*)
			        :title "Kreis"
			        :modifies nil
	              :prompt-text "Teil auswählen"
	              ;;:next-variable 'Teil
	              :after-input (hk_messe_kontur)
			)
			
				              
	   );variables
	      
	  :local-functions
   	'( 
   		(hk_messe_kontur()
   			(display (sd-circle-center (sd-inq-geo-props hk_kontur :dest-space (sd-inq-curr-wp))))
   			(display (sd-circle-normal (sd-inq-geo-props hk_kontur :dest-space (sd-inq-curr-wp))))
   			(display (sd-circle-radius (sd-inq-geo-props hk_kontur :dest-space (sd-inq-curr-wp))))
   			(display (sd-circle-start-dir (sd-inq-geo-props hk_kontur :dest-space (sd-inq-curr-wp))))
   			 
   		)
   		
		);local-function
);sd-defdialog