;;--------------------------------------------------------------------------*
;; Dateiname: hk_selektier_test.lsp
;; Revision : 1.0
;; Datum    : 17.01.2007
;; Author   : Tasche
;; Version   :14.50
;;--------------------------------------------------------------------------*

;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :oli)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:
;;--------------------------------------------------------------------------*
;;
;;--------------------------------------------------------------------------*
(sd-defdialog 'hk_selektier_test
	:toolbox-button t
	:dialog-title "HK selektier Test"
	:dialog-type :terminate
  :variables
  '(
	(hk_baugruppe
   	:value-type :assembly
   	:multiple-items t
   	:initial-optional T
  	:title "Baugruppen"
		:prompt-text "Baugruppen auswählen"
		:after-input (hk-bt-info)
	);;hk_bauteil
				              
	);variables
	:local-functions
	'(
	(hk-bt-info ()
		(dolist (hk_liste
			(sd-call-cmds (get_selection :focus_type *sd-part-seltype*
              								:allow_wire_part 
              								:allow_face_part
               	    					:select :recursive 
                  	 					:in_assembly hk_baugruppe)))
      	(display (sd-inq-obj-basename hk_liste))
      )
	);;hk-bt-info
	);local-function
);sd-defdialog