删除图元上的所有对象反应器

jiaodahaoren

;下面的函数删除图元上附加的反应器
(defun DelRecAll( OutEnt )
  (setq vlrobjects (car(vlr-reactors :VLR-Object-Reactor)))
  (foreach vlr
        (cdr vlrobjects)
        (vlr-owner-remove vlr (vlax-ename->vla-object OutEnt) )
  )
)


outent是外部图元名
请问这个函数错在哪儿？求正解。

ZZXXQQ

帮助中的内容

2. ;;;--------------------------------------------------------------;
   
3. ;;;     函数：CleanReactors                                  ;
   
4. ;;;--------------------------------------------------------------;
   
5. ;;;     说明：用于清除反应器的  ;
   
6. ;;;          通用的实用程序函数。它可以在调试时使用，
   
7. ;;;          也能在关闭图形以前清除任何   ;
   
8. ;;;          打开的反应器。                           ;
   
9. ;;;--------------------------------------------------------------;
   
10. (defun CleanReactors ()
    
11.   (mapcar 'vlr-remove-all
    
12.          '(:VLR-AcDb-reactor
    
13.            :VLR-Editor-reactor
    
14.            :VLR-Linker-reactor
    
15.            :VLR-Object-reactor
    
16.           )
    
17.   )
    
18. )
    

;;;--------------------------------------------------------------;<br /> ;;;     函数：CleanReactors                                  ;<br /> ;;;--------------------------------------------------------------;<br /> ;;;     说明：用于清除反应器的  ;<br /> ;;;          通用的实用程序函数。它可以在调试时使用，<br /> ;;;          也能在关闭图形以前清除任何   ;<br /> ;;;          打开的反应器。                           ;<br /> ;;;--------------------------------------------------------------;<br /> (defun CleanReactors ()<br />   (mapcar 'vlr-remove-all<br />          '(:VLR-AcDb-reactor<br />            :VLR-Editor-reactor<br />            :VLR-Linker-reactor<br />            :VLR-Object-reactor<br />           )<br />   )<br /> )<br />

jiaodahaoren

我还在等哦。帮帮忙啦。

jiaodahaoren

今天来看看，还是没有回复。mark

ZZXXQQ

这样试试：
(DelRecAll (car(entsel)))

jiaodahaoren

ZZXXQQ 发表于 2014-8-19 08:00
这样试试：
(DelRecAll (car(entsel)))

首先感谢您的回复。
你引用了我的那个函数delrecall
意思是您确认这个函数没有问题吗？

jiaodahaoren

ZZXXQQ 发表于 2014-8-19 19:50
帮助中的内容

感谢回复。
我想做的不是这个。
我想删除某些图元上的反应器。
您这样做把所有的反应器都删除了。

Gu_xl

1. (defun DelReactorAll (enObj)
   
2.   (foreach a (vlr-reactors :VLR-Object-Reactor) ;_ 所有对象反应器
   
3.     (foreach b (cdr a) ;_ 各类反应器对象
   
4.       (vl-some (function
   
5.                  (lambda (c)
   
6.                    (if (equal c enobj)
   
7.                      (vlr-remove b)
   
8.                    )
   
9.                  )
   
10.                )
    
11.                (vlr-owners b) ;_ 反应器拥有者对象
    
12.       )
    
13.     )
    
14.   )
    
15. )
    
16. 
    
17. ;;测试
    
18. (DelReactorAll (vlax-ename->vla-object (car(entsel "\n选择对象:"))))

(defun DelReactorAll (enObj)<br />   (foreach a (vlr-reactors :VLR-Object-Reactor) ;_ 所有对象反应器<br />     (foreach b (cdr a) ;_ 各类反应器对象<br />       (vl-some (function<br />                  (lambda (c)<br />                    (if (equal c enobj)<br />                      (vlr-remove b)<br />                    )<br />                  )<br />                )<br />                (vlr-owners b) ;_ 反应器拥有者对象<br />       )<br />     )<br />   )<br /> )<br /> <br /> ;;测试<br /> (DelReactorAll (vlax-ename->vla-object (car(entsel "\n选择对象:"))))

jiaodahaoren

Gu_xl 发表于 2014-8-22 10:29

感谢回复。经验证确实可以。