TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: satdog200 on February 27, 2014, 10:53:51 AM

Title: Change scales on all viewports on all layouts in drawing
Post by: satdog200 on February 27, 2014, 10:53:51 AM
Hello !

I have used this code from Lee for many years and it works great but now I also have to change Annotation scale to 1:50 and Standard scale to 1:50 on all viewports, is it possible ?

/Anders

Code: [Select]
(defun c:psfix ( / ct lay i ss ent)
  (vl-load-com)
 
  (if (setq i -1 ss (ssget "_X" '((0 . "VIEWPORT"))))
    (while (setq ent (ssname ss (setq i (1+ i))))
      (vl-catch-all-apply 'vla-put-displaylocked
        (list (vlax-ename->vla-object ent) :vlax-false))))

    (princ))
Title: Re: Change scales on all viewports on all layouts in drawing
Post by: kruuger on October 29, 2015, 06:39:18 AM
hello
quite old but...anyone have a solution to set anno scale for viewport (no commands) ?
thanks
kruuger
Title: Re: Change scales on all viewports on all layouts in drawing
Post by: ChrisCarlson on October 29, 2015, 09:25:08 AM
Perhaps
Code - Auto/Visual Lisp: [Select]

Also you were a part of a discussion on 2014 similar to this
http://www.theswamp.org/index.php?topic=47145.0