解锁所有视口
我这里有一段代码(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>我的问题是使用相同的方法，什么是 UNLOCK 过程？
我看到了执行此操作的其他例程的代码，并且有 50 行。
我真的很喜欢他的简洁过程。
我在 vla-put-DisplayLocked 上查找了一些信息，但可以找到任何帮助我解决问题的信息。
我实在是想不到办法了，大家帮忙看看，谢谢
;; 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) ))我找到了 50 种锁定/解锁 VPort 的方法。不是在寻找完全不同的方法。
我希望了解 (vla-put-DisplayLocked (vlax-ename->vla-object vp) -1) 看看它是否只是一个切换。
页:
[1]