怎么可以快捷操作图纸空间的窗口锁定和开锁啊···？？

start4444

请问通过lisp可以实现在图纸空间中窗口上锁和开锁的快捷操作吗？？？原操作是mv    L     off/on   ,操作比较繁复。

305341043

感谢，学习了！

xshrimp

(Vlax-put (Vlax-Ename->Vla-Object (car (entsel))) 'DisplayLocked 1)

(Vlax-put (Vlax-Ename->Vla-Object (car (entsel))) 'DisplayLocked 0)

jaminth

简单的写一下

3. (defun c:ks();上锁
4. (command "._mview" "lock" "on" "all" "")
5. (prin1)
6. )
7. (defun c:js();开锁
8. (command "._mview" "lock" "off" "all" "")
9. (prin1)
10. )
11. (prin1)

(defun c:ks();上锁 (command "._mview" "lock" "on" "all" "") (prin1) ) (defun c:js();开锁 (command "._mview" "lock" "off" "all" "") (prin1) ) (prin1)

start4444

用楼上的程序可以实现上锁开锁，但是都是对全部窗口同时开关，能改为点选对象开关么····先谢谢了！！

jaminth

2. (defun c:ks();上锁
3. (command "._mview" "lock" "on" pause "")
4. (prin1)
5. )
6. (defun c:js();开锁
7. (command "._mview" "lock" "off" pause  "")
8. (prin1)
9. )
10. (prin1)

(defun c:ks();上锁 (command "._mview" "lock" "on" pause "") (prin1) ) (defun c:js();开锁 (command "._mview" "lock" "off" pause  "") (prin1) ) (prin1)

start4444

可以了··太感谢了···

xshrimp

3. (defun c:ks ( / ent); 上锁
4.   (command "_.PSPACE")
5.   (if (setq ent (car (entsel)))
6.     (progn      
7.       (vl-catch-all-apply 'vla-put-DisplayLocked (list (Vlax-Ename->Vla-Object ent) ':vlax-true))
8.       (princ "\n选定视口已上锁!")
9.     )
10.   )
11.   (prin1)
12. )
14. (defun c:js (/ ent); 开锁
15.   (command "_.PSPACE")
16.   (if (setq ent (car (entsel)))
17.     (progn                  
18.       (vl-catch-all-apply 'vla-put-DisplayLocked (list (Vlax-Ename->Vla-Object ent) ':vlax-false))
19.       (princ "\n选定视口已解锁!")
20.     )
21.   )
22.   (prin1)
23. )

(defun c:ks ( / ent); 上锁   (command "_.PSPACE")   (if (setq ent (car (entsel)))     (progn             (vl-catch-all-apply 'vla-put-DisplayLocked (list (Vlax-Ename->Vla-Object ent) ':vlax-true))       (princ "\n选定视口已上锁!")     )   )   (prin1) ) (defun c:js (/ ent); 开锁   (command "_.PSPACE")   (if (setq ent (car (entsel)))     (progn                         (vl-catch-all-apply 'vla-put-DisplayLocked (list (Vlax-Ename->Vla-Object ent) ':vlax-false))       (princ "\n选定视口已解锁!")     )   )   (prin1) )

colatree

真好用，謝啦

我收下了

samshs

學習一下

T_T

学习了谢谢