LtScale control

Is there a program like ltscale_switch that is free, with nag screens?
I would buy the thing, but they haven't responded to my emails.
Anyway, it seems like a simple task, to switch to a preset ltscale in
paperspace. Anyonw have an alternate?

 

You mean something like this ?

;LtScale Switch..
;www.bobscadshop.com
;
(defun C:LT+ ()
(setq lts (getvar "LTSCALE"))
(setq lts (+ lts 1.0))
(command "_LTSCALE" lts)
(princ)
); end function LT+
(defun C:LT- ()
(setq lts (getvar "LTSCALE"))
(if (> lts 1.0)
(progn
(setq lts (- lts 1.0))
(command "_LTSCALE" lts)
); end progn
); end if
(princ)
); end function

Bob

 

Or, for presets..

; LtScale Switch..with presets..
(defun C:SLT ( lts preset1 preset2 flag )
(setq preset1 5.0)
(setq preset2 3.0)
;
(setq flag 0)
(setq lts (getvar "LTSCALE"))
;
(if (and (/= lts preset1)(/= lts preset2))
(progn
(command "_LTSCALE" preset1)
(setq flag 1)
); end progn
); end if
(if (and (= flag 0)(= lts preset1))
(progn
(command "_LTSCALE" preset2)
(setq flag 1)
); end progn
); end if
(if (and (= flag 0)(= lts preset2))
(command "_LTSCALE" preset1)
); end if
(princ)
); end function

Bob

 

We use a reactor for LAYOUT/MODEL tabs. IF you switch to a layout tab it presets LTSCALE to 0.375 and PSLTSCALE to 1. If you switch to the model tab it sets ltscale to 40.

 

You want to post the code ?

Bob

 

I'm looking for something that reacts to the actual switching of MS and PS.

 

I like the reactor idea (which is what I need) but is there a way to make
the model LTS dynamic? I don't always want it 40 (or any preset value).
I want it to remember what lts I last used in model space, and reset it.

presets LTSCALE to 0.375 and PSLTSCALE to 1. If you switch to the model tab
it sets ltscale to 40.

 

<<You want to post the code ?>>

It's been posted here several times in the past

Try:

http://tinyurl.com/342mk

Then edit as required.

 

See the attached thread above for basic code.

Then you can modify it to read the current DIMSCALE and multiply that by a factor. Or set a variable for recall later.

 

Run withthis Forrest. run with this....

(defun ChangedLayout (reactor layout / )
(if (= (nth 0 layout) "Model")(setvar "ltscale" (* (if (= (getvar
"dimscale") 0) 1 (getvar "dimscale")) YOURFACTORHERE))(progn (setvar
"ltscale" YOURFACTORHERE) (setvar "psltscale" 1)))
)
(if(not *LayoutLTS*) (setq *LayoutLTS* (VLR-Miscellaneous-Reactor nil
'(VLR-layoutSwitched . ChangedLayout)))))

Jamie Duncan

 

Now we're talking!
thanks alot. Did you write this code?

 

Another Option:

Here is how I changed the ltscale for each of the layouts listed below using
this reactor.
layout = "Fullsize", "HalfSize" and "DWF"....I need a different ltscale
factor for each layout.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;; Ltscale and Psltscale Reactor
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;
(defun ARCH:ChangedLayout (reactor layout /)
(setq layout
(cdr
(cons 410 (vla-get-name
(vla-get-activelayout
(vla-get-activedocument
(vlax-get-acad-object))))
)
)
)
(cond
((= layout "FullSize")
(progn (setvar "ltscale" (abs (/ (getvar "dimscale") 2))))
(progn (setvar "ltscale" (/ (getvar "dimscale") 2))(setvar "psltscale"
0))
)
((= layout "HalfSize")
(progn (setvar "ltscale" (abs (/ (getvar "dimscale") 2))))
(progn (setvar "ltscale" 2)(setvar "psltscale" 0))
)
((= layout "DWF")
(progn (setvar "ltscale" (abs (/ (getvar "dimscale") 2))))
(progn (setvar "ltscale" 2)(setvar "psltscale" 0))
)
)
;;(C:MODE) ;modemacro function
)

(if (not *LayoutLTS*)
(setq *LayoutLTS*
(VLR-Miscellaneous-Reactor
nil
'(VLR-layoutSwitched . ARCH:ChangedLayout))
)
)
)

Gary

 

First time I saw it (2001), it was posted by Jason Piercey, and I think he got it from Rob Starz.

Remember you have to run (vl-load-com) for it to work.

 

It's a slightly modified version of an R. Robert Bell effort.


and you're very welcome!

Jamie Duncan

 

I should have guessed the Mr Bell had a hand in it somewhere along the line.