;;--------------------------------------------------------------------------*
;; Dateiname: hk_selektiere_kanten.lsp
;; Revisio  : 1.0
;; Datum    : 19.04.2005
;; Author   : Tasche
;; Version  :13.01
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Selektiert Kanten die eine bestimmte laenge haben                                                                                                  
;;                                                                                                   
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:                   
;;--------------------------------------------------------------------------*
;;(setf hk_lfnr 1)        
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_selektiere_kanten
:dialog-title "HK selektiere Kanten"
:toolbox-button t
:variables
  '(
    (bauteil	:value-type :part
           		:prompt-text "Teil angeben"
           		:title "Teil"
           		:modifies nil
    );;baugruppen
    
    (radius :value-type :number
    			:prompt-text "Radius"
    );;radius
    
    (kante	:value-type :edge
    			:prompt-text "Kante angeben"
    			:title	"Kante"
    			:multiple-items t
    			:color red
            ;;:no-highlight t
    			:next-variable 'kante
    );;kante
    
  );;variables 
:local-functions
  '(
  	(hk_selekt_kante ()
  		(setf hk_kanten_laenge (sd-call-cmds (measure_dist :edge_length kante)))
  		(progn
   		(blend
   				:INIT_DEFAULTS
					:nocheck :nolabel_fdbk :CHAIN_ON :OFF :SHOW_PREVIEW_FB :OFF :ENABLE_DRAGGING :OFF :NEW_SELECTION
					:chain_on :on
					:const_rad radius
  			(sd-call-cmds 
      		(get_selection :focus_type *sd-edge-3d-seltype*
              				 	:check_function #'(lambda (liste)
              				 						(let ((hk_gefundene_kanten_laenge (sd-call-cmds (measure_dist :edge_length liste))))
              												(if (= hk_kanten_laenge hk_gefundene_kanten_laenge)
    																:ok 
    																:filter
       		 												);;if
       		 											);;let
       		 											);;lambda
       		 									:select
                  	 						:in_part bauteil))
         complete);;chamfer
       );;progn
       (frame2::put-buffer "hk_selektiere_kanten")
  	);;hk_selekt_kanten
  	
  	
  );;local-function
     
     
:ok-action
   '(hk_selekt_kante)
);;sd-defdialog