(in-package :custom)
(use-package :OLI)
(sd-defdialog 'Objekte_im_neuen_Fenster_anzeigen
:dialog-title "Teile im neuen Fenster anzeigen"
:toolbox-button t
:dialog-control :sequential
;:toolbox-button nil
:variables
  '(
    (Teil          
                   :selection (*sd-object-seltype*)
                   :face-part-allowed t
                   :show-select-menu nil
                   :multiple-items t
                   :title "Teile"
                   :prompt-text "Objekte waehlen, die in einem neuen Fenster angezeigt werden sollen"
                   :initial-value nil
                   :after-input  (Objekte_im_neuen_Fenster_darstellen Teil nil)
	)
  )
)
(sd-defdialog 'Objekte_im_neuen_Fenster_einpassen
:dialog-title "Teile im neuen Fenster einpassen"
:dialog-control :sequential
;:toolbox-button nil
:variables
  '(
    (Teil          
                   :selection (*sd-object-seltype*)
                   :face-part-allowed t
                   :show-select-menu nil
                   :multiple-items t
                   :title "Teile"
                   :prompt-text "Objekte waehlen, die in einem neuen Fenster eingepasst werden sollen"
                   :initial-value nil
                   :after-input   (Objekte_im_neuen_Fenster_darstellen Teil t)
	)
  )
)
(defun Objekte_im_neuen_Fenster_darstellen (Teile einpassen)
  (let ((Ansicht_merken_1 (sd-inq-vp-camera (sd-inq-current-vp))))
	(sd-call-cmds (draw_only_in_new_vport Teile))
	(if einpassen () (fit_vp (sd-inq-current-vp)))
	(sd-set-vp-camera (sd-inq-current-vp) Ansicht_merken_1 :smooth nil)
	(oli:sd-call-win-command-by-sysid #xE134)
  )
)