0 Members and 1 Guest are viewing this topic.
Try setting "ucsfollow" to 0 in all layouts.
(defun c:UCSClassic ( / _ForEachVP _DoIt _Main ) (defun _ForEachVP (quoted_task / vps) (setq vps (apply 'append (mapcar '(lambda (x / v) (if (/= 1 (setq v (car x))) (list v))) (reverse (vports)) ) ) ) (if (eq 0 (getvar "tilemode")) (cond ( (eq 1 (getvar "cvport")) (cond ( vps (command ".mspace") (_ForEachVp quoted_task) (command ".pspace") ) ) ) ( (foreach x vps (setvar "cvport" x) (eval quoted_task) ) ) ) (foreach x vps (setvar "cvport" x) (eval quoted_task) ) ) ) (defun _DoIt ( / tilemode ) (foreach x '("ucsortho" "ucsview" "ucsfollow" "ucsvp") (setvar x 0) ) (_ForEachVP '(setvar "ucsvp" 0)) (princ "\nUCSORTHO has been set to 0.") (princ "\nUCSVIEW has been set to 0.") (princ "\nUCSFOLLOW has been set to 0.") (princ (strcat "\nFor TILEMODE = " (itoa (setq tilemode (getvar "tilemode"))) " UCSVP set to 0 (off) for each active viewport." ) ) (princ (strcat "\nFor TILEMODE = " (itoa (abs (1- tilemode))) " UCSVP remains unaltered for each viewport." ) ) ) (defun _Main ( / cmdecho ) (setq cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (if (zerop (getvar "tilemode")) (cond ( (eq 1 (getvar "cvport")) (command ".zoom" "_extents") (command ".mspace") (_DoIt) (command ".pspace") (command ".zoom" "_previous") ) ( t (command ".pspace") (command ".zoom" "_extents") (_DoIt) (command ".zoom" "_previous") (command ".mspace") ) ) (_DoIt) ) (setvar "cmdecho" cmdecho) (princ) ) (_Main) )