(in-package :sf)
(use-package :OLI)
(sd-defdialog 'xbe
:dialog-title "Behaelter einblenden"
:dialog-type :interrupt
:dialog-control :sequential
:prompt-variable 'Objekte
:variables
  '(
    (Objekte	:preselection (get-matching-preselected-objects)
		:value-type :part-assembly
		:multiple-items t
		:prompt-text "Behaelter in Darstellungsliste einfuegen: Objekte, deren Behaelter eingeblendet werden sollen, angeben"
		:title "Objekte"
		:toggle-type :invisible
		:modifies nil
		:next-variable 'Objekte
		:after-input (dolist (Objekt Objekte) (sd-call-cmds (xesf-behaelter-einblenden Objekt)))
	)
    )
)
(defun xesf-behaelter-einblenden (selitem)
  (let (Kind Kinder)
	  (setf Kinder (sd-inq-obj-children selitem))
	  (dolist (Kind Kinder)
	    (if (sd-inq-container-p Kind) (add_to_vp_drawlist (sd-inq-current-vp) :without-wp Kind))
	    (xesf-behaelter-einblenden Kind)
	  )
   )
)