今天画图所想到的。。。

h008

为了保护我们想要的图元，我们一般就将这个图层锁定，可是这样一来也就没法编辑了，边复制移动这些都不行

想想有没有什么高招让一个图层上的图元只是不能被删除，其它编辑都不受限呢？？？

是否又要高端的反应器啊。。。

edata

本代码指定 xx图层无法用 ERASE删除，可以其他操作。

1. (vl-load-com)
   
2. (if (= hyp-rctCmds nil)
   
3.   (setq        hyp-rctCmds
   
4.          (vlr-command-reactor
   
5.            nil
   
6.            '((:vlr-commandCancelled . hyp-cmdAbort)
   
7.              (:vlr-commandEnded . hyp-cmdAbort)
   
8.              (:vlr-commandCancelled . hyp-cmdAbort)
   
9.              (:vlr-commandWillStart . hyp-cmdStart)
   
10. 
    
11.             )
    
12.          )
    
13.   )
    
14. )
    
15. (defun hyp-cmdAbort (param1 param2)
    
16.   (vla-put-lock
    
17.     (vlax-ename->vla-object (tblobjname "layer" "xx"))
    
18.     :vlax-false
    
19.   )
    
20. )
    
21. (defun hyp-cmdStart (param1 param2 / currentlayer)
    
22.   (cond
    
23.     ((or
    
24.        (= (car param2) "ERASE")
    
25.      )
    
26.      (vla-put-lock
    
27.        (vlax-ename->vla-object (tblobjname "layer" "xx"))
    
28.        :vlax-true
    
29.      )
    
30.     )
    
31.   )
    
32. )
    
33. ;关闭反应器
    
34. (defun c:tt()
    
35.   (vlr-remove hyp-rctCmds)
    
36.   )

(vl-load-com)<br /> (if (= hyp-rctCmds nil)<br />   (setq        hyp-rctCmds<br />          (vlr-command-reactor<br />            nil<br />            '((:vlr-commandCancelled . hyp-cmdAbort)<br />              (:vlr-commandEnded . hyp-cmdAbort)<br />              (:vlr-commandCancelled . hyp-cmdAbort)<br />              (:vlr-commandWillStart . hyp-cmdStart)<br /> <br />             )<br />          )<br />   )<br /> )<br /> (defun hyp-cmdAbort (param1 param2)<br />   (vla-put-lock<br />     (vlax-ename->vla-object (tblobjname "layer" "xx"))<br />     :vlax-false<br />   )<br /> )<br /> (defun hyp-cmdStart (param1 param2 / currentlayer)<br />   (cond<br />     ((or<br />        (= (car param2) "ERASE")<br />      )<br />      (vla-put-lock<br />        (vlax-ename->vla-object (tblobjname "layer" "xx"))<br />        :vlax-true<br />      )<br />     )<br />   )<br /> )<br /> ;关闭反应器<br /> (defun c:tt()<br />   (vlr-remove hyp-rctCmds)<br />   )

h008

高人啊，你们在哪

fl202

锁定 、解锁 很简单的操作。
你搞个删不掉的图元，回头要删的时候怎么办？

429014673

不能删？自己要修改怎么办

edata

命令反应器。

hehoubin

虽然想法用处不大 。也支持下源码 好样的

iamhuangjinming

脑洞很大啊，这都想得到

love1030312

个人观点 简单的事情复杂化了  纯属娱乐 没实战意义