一次锁定图中所有视口

st788796

适合 2011+

1. (defun c:lkvp ()
   
2.   (vlax-for blk    (vla-get-blocks
   
3.           (vla-get-activedocument (vlax-get-acad-object))
   
4.         )
   
5.     (if    (wcmatch (vla-get-name blk) "`*Paper_Space*")
   
6.       (vlax-for    obj blk
   
7.     (if (= (vla-get-objectname obj) "AcDbViewport")
   
8.       (setpropertyvalue (vlax-vla-object->ename obj) "Locked" 1)
   
9.     )
   
10.       )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    

(defun c:lkvp ()<br />   (vlax-for blk    (vla-get-blocks<br />           (vla-get-activedocument (vlax-get-acad-object))<br />         )<br />     (if    (wcmatch (vla-get-name blk) "`*Paper_Space*")<br />       (vlax-for    obj blk<br />     (if (= (vla-get-objectname obj) "AcDbViewport")<br />       (setpropertyvalue (vlax-vla-object->ename obj) "Locked" 1)<br />     )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

锁定视口组码在 90 视口状态

90

视口状态按位编码标志： 1 (0x1) = 启用透视模式 2 (0x2) = 启用前向剪裁 4 (0x4) = 启用后向剪裁 8 (0x8) = 启用 UCS 跟随 16 (0x10) = 启用不可见的前向剪裁 32 (0x20) = 启用 UCS 图标可见性 64 (0x40) = 启用原点处的 UCS 图标 128 (0x80) = 启用快速缩放 256 (0x100) = 启用捕捉模式 512 (0x200) = 启用栅格模式 1024 (0x400) = 启用等轴测捕捉样式 2048 (0x800) = 启用隐藏打印模式 4096 (0x1000) = kIsoPairTop。如果设置了 kIsoPairTop，但未设置 kIsoPairRight，则启用 isopair top。如果同时设置了 kIsoPairTop 和 kIsoPairRight，则启用 isopair left 8192 (0x2000) = kIsoPairRight。如果设置了 isopair right ，但未设置 kIsoPairTop ，则启用 isopair right 16384 (0x4000) = 启用视口缩放锁定 32768 (0x8000) = 当前总是启用 65536 (0x10000) = 启用非矩形剪裁 131072 (0x20000) = 关闭视口

zhangq_cai1

版本太高用不了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

Free-Lancer

VLA 修改一句就都适合了
(setpropertyvalue (vlax-vla-object->ename obj) "Locked" 1)
=>
(vla-put-displaylocked obj :vlax-true)

1. (defun c:tt (/ ss)
   
2.   (if (setq ss (ssget "x" '((0 . "VIEWPORT"))))
   
3.     (progn
   
4.       (xdrx_setsstodb ss 0)
   
5.       (while (setq e (xdrx_getentdata 0))
   
6.     (setpropertyvalue e "Locked" 1)
   
7.       )
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt (/ ss)<br />   (if (setq ss (ssget "x" '((0 . "VIEWPORT"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />     (setpropertyvalue e "Locked" 1)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Free-Lancer

zhangq_cai1 发表于 2013-9-11 09:04
版本太高用不了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

改一句话就通用了

1. (vl-load-com)
   
2. (defun c:lkvp ()
   
3.   (vlax-for blk    (vla-get-blocks
   
4.           (vla-get-activedocument (vlax-get-acad-object))
   
5.         )
   
6.     (if    (wcmatch (vla-get-name blk) "`*Paper_Space*")
   
7.       (vlax-for    obj blk
   
8.     (if (= (vla-get-objectname obj) "AcDbViewport")
   
9.       (vla-put-displaylocked obj :vlax-true)
   
10.     )
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

(vl-load-com)<br /> (defun c:lkvp ()<br />   (vlax-for blk    (vla-get-blocks<br />           (vla-get-activedocument (vlax-get-acad-object))<br />         )<br />     (if    (wcmatch (vla-get-name blk) "`*Paper_Space*")<br />       (vlax-for    obj blk<br />     (if (= (vla-get-objectname obj) "AcDbViewport")<br />       (vla-put-displaylocked obj :vlax-true)<br />     )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xvjiex

感谢楼主分享一次锁定图中所有视口！