;;--------------------------------------------------------------------------*
;; Dateiname: hk_suche_nach_radien.lsp
;; Version  : 1.0
;; Datum    : 01.06.05
;; Author   : Tasche
;; Version   :13.01
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Listet alle Radien in einem Bauteil auf, und färbt bestimmte Radien                                                                                                  
;; ein.                                                                                                  
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; FLAECHE
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:                   
;;--------------------------------------------------------------------------*
;;(setf hk_lfnr 1)        
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_suche_nach_radien
  :dialog-title "HK suche nach Radien"
  :prompt-text "Select"
  :variables
  '(
  		("Zeige alle Radien im Teil") 
     (hk_teil :value-type :part 
           	  :title "Teil"
           	  :modifies nil 
           	  :prompt-text "Teil angeben"
              :after-input (hk_selektiere)
     );;hk_teil
    
	
	
   
   
   
   
   
    
   );variables
   

	:local-functions
    '(
       (hk_selektiere ()
       	(setf hk_radien_liste (list 1.0))
       	(sd-call-cmds (get_selection :focus_type *sd-blend-3d-seltype*
              								  :check_function #'(lambda (blend)
              															(setf hk_filter (getf (sd-inq-blend-face blend) :radius))
              															#'(lambda (hk_filter hk_radien_liste)
              																	(cond ((member hk_filter hk_radien_liste) hk_radien_liste)
              																	(T (push hk_filter hk_radien_liste))))
              															:ok
       		 														   :filter
       		 															);;lambda
               	    							:select 
                  	 							:in_part hk_teil));;sd-call-cmds
                  	 							
      (display hk_radien_liste)
      );hk_selektiere 
     );local-functions

	    
);;sd-defdialog