;;--------------------------------------------------------------------------*
;; Dateiname: hk_selektiere_kanten_mehrfach.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_mehrfach
:dialog-title "HK selektiere Kanten mehrfach"
:toolbox-button t
:variables
  '(
    (bauteil	:value-type :part
           		:prompt-text "Teil angeben"
           		:title "Teil"
           		:modifies nil
    );;baugruppen
    
    (nako	:value-type :number
           	:prompt-text "Nachkommastellen angeben"
        		:title "Nachkomma"
        		:initial-value 5
        		:modifies nil
    );;nako
    
    
 	(kante :selection (*sd-edge-3d-seltype*)
			 :prompt-text "Kante(n) angeben"
			 :title "Kante"
			 :multiple-items t
			 :show-select-menu t ;;öffnet Auswahlmenü
			 :incremental-selection t
			 :after-input (hk_selektiere_kanten_neu)
	);;kante
	
  );;variables 
:local-functions
  '(
	
	(hk_selektiere_kanten_neu ()
		(setf nako_2 "~,")
   	(setf nako_2(format nil "~A~AF" nako_2 nako))
		(setf hk_kanten_liste (mapcar #'(lambda (liste)(format nil nako_2(sd-call-cmds (measure_dist :edge_length liste)))) kante))
		(set_edge_color
		(sd-call-cmds 
      			(get_selection :focus_type *sd-edge-3d-seltype*
            					 	:check_function ????????????????
   		 					:select
                  	 	:in_part bauteil)
		);;sd-call-cmds
		:color 8525777 :done)
	);;(hk_selektiere_kanten_neu
	
  );;local-function
     
:ok-action
   '()
);;sd-defdialog