;;--------------------------------------------------------------------------*
;; Dateiname: 	SD_gleiche_Kanten_verrunden.lsp
;; Datum    : 	19.04.2005
;; Author   : 	Tasche
;; Version  :	13.01
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Selektiert Kanten die eine bestimmte laenge haben                                                                                                  
;;                                                                                                   
;;--------------------------------------------------------------------------*
(in-package  :Teo)
(use-package :OLI)

;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:                   
;;--------------------------------------------------------------------------*
;;(setf hk_lfnr 1)        
;;--------------------------------------------------------------------------*

(sd-defdialog 'SD_gleiche_Kanten_verrunden
:dialog-title "Kanten verrunden"
:toolbox-button nil

:variables
  '(
    (bauteil	:value-type :part
           		:prompt-text "Teil angeben"
           		:title "Teil"
           		:modifies nil
    );;baugruppen
    
    (radius 	:value-type :number
    			:initial-value 0.5
    			:proposals ("0.1" "0.5" "0.8" "1.0" "2.0" "5.0")
    			:prompt-text "Verrundungsradius angeben"
    );;radius
    
	(kante 		:selection (*sd-edge-3d-seltype*)
				:prompt-text "Kante angeben"
				:title "Kante"
				:multiple-items nil
				:show-select-menu nil 					;;öffnet Auswahlmenü
				;:additional-token-string ":start" 		;;und startet auch gleich 	        	
				:color red
				:no-highlight t
				;:next-variable 'kante
	);;kante

    
  );;variables 
:local-functions
  '(
  	(hk_selektiere_kanten ()
  		(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
  	);;hk_selektiere_kanten
  	
  	
  );;local-function
     
     
:ok-action
   '(hk_selektiere_kanten)
   
  :help-action
    '	(progn
    	(sd-display-url ( Format NIL "~A/SD_gleiche_Kanten_verrunden.htm" (oli::sd-convert-filename-from-platform (oli::sd-sys-getenv "SCHILLERHELPDIR"))))
		); end progn
		  
);;sd-defdialog