Author Topic: Change scales on all viewports on all layouts in drawing  (Read 1318 times)

0 Members and 1 Guest are viewing this topic.

satdog200

  • Mosquito
  • Posts: 10
Change scales on all viewports on all layouts in drawing
« 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))

kruuger

  • Swamp Rat
  • Posts: 625
Re: Change scales on all viewports on all layouts in drawing
« Reply #1 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

Master_Shake

  • Swamp Rat
  • Posts: 1447
Re: Change scales on all viewports on all layouts in drawing
« Reply #2 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