Topic: Need a little help

[Kate M]

I got this reactor off the Autodesk groups -- how do I change it to have the modelspace ltscale be equal to 1/2 the dimscale? I tried all sorts of combinations, but couldn't get it to work...the poor formatting isn't helping either.

Code: [Select]

(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)))))

Or, if you have a better way to do this, I'm open to suggestions.

[Mark]

I believe this is correct !

Code: [Select]


(defun ChangedLayout (reactor layout /)
   (if (= (nth 0 layout) "Model")
(setvar "ltscale"
(* (if (= (getvar "dimscale") 0)
 1
 ; else
 (getvar "dimscale")
 ); if
0.5
); *
)
(progn (setvar "ltscale" 0.5)
(setvar "psltscale" 1)
)
); if
   )


[Kate M]

I think I'm missing something -- how do I get it to run? I saved it as a lsp file and loaded it...

[Kate M]

Duh...nevermind...forgot my DIMSCALE was set to 1, and wondered why I didn't see any change...Thanks Mark!

[Kate M]

One more question -- is there a way to tack a REGENALL on to the end of it?

[Mark]

maybe like this

Code: [Select]


(defun   ChangedLayout (reactor layout /)
   (if (= (nth 0 layout) "Model")
    (setvar "ltscale"
          (*   (if   (= (getvar "dimscale") 0)
              1
              ; else
              (getvar "dimscale")
              ); if
            0.5
            ); *
          )
    (progn   (setvar "ltscale" 0.5)
         (setvar "psltscale" 1)
         )
    ); if
  (vla-regen
(vla-get-ActiveDocument
 (vlax-get-acad-object)
 )
acAllViewports
)
   )