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