;;--------------------------------------------------------------------------*
;; 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
			 :color red
			 :after-input (hk_selekt_kante)
	);;kante
	
  );;variables 
:local-functions
  '(
  	(hk_selekt_kante ()
  	(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))
  	(dolist ( i hk_kanten_liste)
  		(display i)
  	);;dolist
  	(setf nako_2 (format nil "Alle Kanten: ~A" nako_2))
  	(display (format nil nako_2 (sd-call-cmds (measure_dist :contour_length kante)))) 
  	
  		
  	);;hk_selekt_kanten

  );;local-function
     
:ok-action
   '()
);;sd-defdialog