samifox Posted February 8, 2020 Share Posted February 8, 2020 hi i need to apply "psltscale=0" to all my 25 layouts. is there any way to do it at once? thanks s Quote Link to comment Share on other sites More sharing options...
BIGAL Posted February 9, 2020 Share Posted February 9, 2020 Here is a pretty simple way, there is probably a smarter way. (defun c:test ( / doc plotabs x tabname) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq oldctab (getvar 'ctab)) (vlax-for lay (vla-get-Layouts doc) (setq plotabs (cons (vla-get-name lay) plotabs)) ) (repeat (setq x (length plotabs)) (setq tabname (nth (setq x (- x 1)) plotabs)) (if (/= tabname "Model") (progn (setvar 'ctab tabname) (command "psltscale" 0) ) ) ) (setvar 'ctab oldctab) (princ) ) 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.