;*********************************************************************************************
; Dateiname 	: 	SD_Einpassen.lsp
; Autor         : 	
; Erstellt      :	
; geändert    	:
;*********************************************************************************************
; Beschreibung:		- 	Passt ein Teil oder Baugruppe in Ansichtsfenster ein
;					-	
;*********************************************************************************************
; Änderungen
;
;*********************************************************************************************
(in-package  :Teo)
(use-package :OLI)


(sd-defdialog 'SD_Einpassen
:dialog-control :sequential
:dialog-type :interrupt
:toolbox-button t
:variables '(
	(prt	:value-type	:part-assembly
		:initial-value nil
		:multiple-items t
		:prompt-text (sd-multi-lang-string "To fit into current viewport - specify one part or assembly" :german "In Fenster einpassen  -  Teil oder Baugruppe angeben")
		:modifies nil
	)
	(zliste_orig)
	)
:ok-action '(l-show-part)

:help-action '	(progn    		
				        );;progn
		
:local-functions '(
(l-show-part ()
	(setf zliste_orig (SD-INQ-VP-DRAWLIST-OBJECTS (sd-inq-current-vp)))
	(sd-call-cmds (progn
		(set_vp_drawlist (sd-inq-current-vp) prt)
		(fit_vp (sd-inq-current-vp))
		(set_vp_drawlist (sd-inq-current-vp) zliste_orig)))
)

) ;; local-functions

) ;; sd-defdialog