we have a linetype scale reactor that sets our ltscale and psltscale when we switch from model to paper and vise-versa. it works fine in 06, but it is not working at all in 08. i have it loaded the same exact way it loads in 06. i have this line of code placed in our acaddoc.lsp file "(load "ltscalereactor" "Linetypescale reactor load failed.")"
any help would be greatly appreciated.
here's the code (i did not write this, this is what they were using long before i got started worked here):
(defun ChangedLayout (reactor layout / )
(if (= (nth 0 layout) "Model")
(progn (setvar "ltscale" (abs (/ (getvar "dimscale") 1))))
;else
(progn (setvar "ltscale" 1.0) (setvar "psltscale" 1))
);if
);
(if(not *LayoutLTS*) (setq *LayoutLTS* (VLR-Miscellaneous-Reactor nil
'((:VLR-layoutSwitched . ChangedLayout))))
)
(DEFUN C:mslt ()
(if (= (getvar "ctab") "Model")
(progn(setvar "ltscale" (abs(getvar "dimlfac")))(command "regenall")
)
;else
(progn (setvar "ltscale" 1.0) (setvar "psltscale" 1) (command "regenall"))
);if
)