TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started 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
(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))
-
hello
quite old but...anyone have a solution to set anno scale for viewport (no commands) ?
thanks
kruuger
-
Perhaps
Also you were a part of a discussion on 2014 similar to this
http://www.theswamp.org/index.php?topic=47145.0