[编程交流] 解锁所有视口

(defun C:LAV (/ ss n vp); = Lock All Viewports  (repeat (setq n (sslength (setq ss (ssget "_X" '((0 . "VIEWPORT"))))))    (if (> (cdr (assoc 69 (entget (setq vp (ssname ss (setq n (1- n))))))) 1); not the Paper Space Viewport of its Layout      (vla-put-DisplayLocked (vlax-ename->vla-object vp) -1); lock it    ); if  ); repeat); defun<span style="background-color: rgb(255, 255, 255);">     </span>

;; Lock Selected Viewport (vl-load-com) (defun c:vpl nil;;Locks Selected Viewports / Requires a pick (if (SSVPLock (ssget "_+.:E:S:L" '((0 . "VIEWPORT"))) :vlax-true)     (princ "\n--> Viewport Locked."))(princ)) ;; Unlock Selected Viewport (defun c:vpu nil;;Unlocks Selected Viewports / Requires a pick (if (SSVPLock (ssget "_+.:E:S:L" '((0 . "VIEWPORT"))) :vlax-false)(princ "\n--> Viewport Unlocked."))(princ)) ;; Lock All Viewports(defun c:vpla nil(SSVPLock (ssget "_X" '((0 . "VIEWPORT"))) :vlax-true)(princ "\n--> All Viewports Locked.")(princ)) ;; Unlock All Viewports(defun c:vpua nil (SSVPLock (ssget "_X" '((0 . "VIEWPORT"))) :vlax-false)(princ "\n--> All Viewports UnLocked.")(princ) ) (defun SSVPLock ( ss lock / i )      (if ss (repeat (setq i (sslength ss))                (vla-put-displaylocked (vlax-ename->vla-object (ssname ss (setq i (1- i)))) lock) t  )       ))