PSLTSCALE

Does anyone know the lisp routine for switching psltscale from 0 to 1 when
switching from model to paper space?

Thanks.

Mike

 

This was posted recently. I'm not the author, and I'm sorry to say I didn't
make a record of who made the original post; but it works as advertised.:

;;loading activex functionality
(vl-load-com)
(vl-load-reactors)
;; Following 2 functions set up different ltscales for paper & model space,
then automatically
;; Switches betw them, according to the reactor's detecting paper or model
space.
(defun cMS ()
(setq PSLTS (getreal "\nEnter PaperSpace LTScale:"))
(setq MSLTS (getreal "\nEnter ModelSpace LTScale:"))
)
(defun ChangedLayout (reactor layout / )
(if (= (nth 0 layout) "Model")
(progn
(if MSLTS
(setvar "ltscale" MSLTS)
(setvar "ltscale" 1)
)
)
(progn
(setvar "psltscale" 1)
(if PSLTS
(setvar "ltscale" PSLTS)
(setvar "ltscale" 0.25)
)
(vla-Regen (vla-Get-ActiveDocument (vlax-Get-Acad-Object))
acAllViewports)
)
);if
);
(if
(not *LayoutLTS*)
(setq *LayoutLTS* (vlr-miscellaneous-reactor nil '(VLR-layoutSwitched .
ChangedLayout))))
)
___