;;--------------------------------------------------------------------------*
;; Dateiname: hk_flaeche_messen.lsp
;; Version  : 1.0
;; Datum    : 27.07.05
;; Author   : Tasche
;; Version   :13.20
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Flaeche messen                                                                                                
;;                                  
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:                   
;;--------------------------------------------------------------------------*
;;(setf hk_lfnr 1)        
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_flaeche_messen
  :dialog-title "HK Flaeche messen"
  :prompt-text "Select"
  :variables
  '(
     (hk_teil :value-type :part 
           	  :title "Teil"
           	  :modifies nil 
           	  :prompt-text "Teil angeben"
              ;;:after-input (hk_selektiere)
     );;hk_teil
     
     (hk_flaeche	:value-type :face
           	  		:title "Flaeche"
           	  		:modifies nil 
           	  		:prompt-text "Flaeche angeben"
              		:after-input (hk_selektiere)
     );;hk_teil
    
	
	
   
   
   
   
   
    
   );variables
   

	:local-functions
    '(
       (hk_selektiere ()
      	(display (get_vol_prop :for_face hk_flaeche "1" :area))
      );hk_selektiere 
     );local-functions

	    
);;sd-defdialog