关于vlr-insert-reactor反应器的应用问题

sfzyr

我想在插入某个对象时，获得这个对象，并判定是否是一个特定的对象如块名是“aaa”，想用反应器来实现，但是vlr-insert-reactor 并不启作用，我检索了这个问题，网络上关于这个应用的案例非常少，并找到了一个英文网站，一个网友有我一样的疑问，我希望能采用这个反应器来获得插入的对象。这个反应器怎么不起作用了，还是我哪里理解错了，它的正确用法是怎样的呢，希望各位版主和高手都能给个回复，万分感谢。代码如下：


;;;=======创建insert反应器*at_inst_reactor*及回调函数==============================
(defun at_inst_reactor ()
  (if (not *instReactor*)
    (setq *instReactor*
           (vlr-insert-reactor
             nil
             '((:vlr-beginInsert . inst-begin)
               (:vlr-endInsert . inst-ended)
              )
           )
    )
  )
);_定义insert反应器*instReactor*
(defun inst-begin (reactor-object parameterlist)
  (princ "inst-begin<")
  (vl-princ-to-string parameterlist)
  (princ ">\n")
)
(defun inst-ended (reactor-object parameterlist)
  (princ "inst-ended<")
  (vl-princ-to-string parameterlist)
  (princ ">\n")
)

=========================================
英文网站的问题如下：why does vlr-insert-reactor doesn't work? (augi.com)
why does vlr-insert-reactor doesn't work?

I want do some thing when a block was been inserted into AutoCAD,so I make a reactor like this:

(vlr-insert-reactor nil '((:vlr-endinsert . vlr-trace-reaction)))

but it doesn't work when I have inserted any block. It seems like this reactor was never exsited.

Hope you can help me. Thanks.

============================================

Re: why does vlr-insert-reactor doesn't work?

Welcome to AUGI and congrats on your first post.

I have always used a command reactor for causing commands to fire when inserting a block.
Code:
(if    (not Command_Ending_Reactor)      (setq Command_Ending_Reactor         (vlr-command-reactor           nil           '((:vlr-commandended          .          Command_Ended_Command         )        )         ) ;_ end of vlr-command-reactor      ) ;_ end of setq      () ;_ the reactor is already loaded    ) ;_ end of if
then I define my command ended command with the in reactor name and the in command, and compare the in command to the command I am looking for, in your case "insert" or "-insert" If it matches, it will run the program.

sfzyr

这个是我用错了，还是CAD版本的问题了，我的版本是autocad 机械版 2021.各位高手，看看哪里错了，折腾好几天，搜罗了好几天，没招到答案。

jun353835273

2. (defun blkstarted (reac data)
   
3.   
   
4. (if (wcmatch (car data) "INSERT")
   
5.    (progn
   
6.      (alert "INSERT"))
   
7. )
   
8. (princ)
   
9. )
   
10. 
    
11. (defun blkended (reac data)
    
12.   
    
13. (if (wcmatch (car data) "INSERT")
    
14.    (progn
    
15.      (alert "hh INSERT"))
    
16. )
    
17. (princ)
    
18. )
    
19. 
    
20. (vlr-command-reactor
    
21. "My Reactor"
    
22. '((:VLR-commandWillStart . blkstarted)
    
23.    (:VLR-commandEnded . blkended)
    
24. 
    
25.   )
    
26. )
    

(defun blkstarted (reac data)<br />   <br /> (if (wcmatch (car data) "INSERT")<br />    (progn<br />      (alert "INSERT"))<br /> )<br /> (princ)<br /> )<br /> <br /> (defun blkended (reac data)<br />   <br /> (if (wcmatch (car data) "INSERT")<br />    (progn<br />      (alert "hh INSERT"))<br /> )<br /> (princ)<br /> )<br /> <br /> (vlr-command-reactor<br /> "My Reactor"<br /> '((:VLR-commandWillStart . blkstarted)<br />    (:VLR-commandEnded . blkended)<br /> <br />   )<br /> )<br />

试一试用命令反应器看看能不能操作

sfzyr

jun353835273 发表于 2023-10-3 21:23
试一试用命令反应器看看能不能操作

这个只是知道了用了INSERT命令，这个不知道是否插入了特定的块对象。还需要检测到这个命令后，去检测文档数据是否插入了新的指定对象，这个比较麻烦。

sfzyr

我使用CTRL+V，时，好像触发了:vlr-endInsert事件，难道这个inset-reactor，在插入对象时不启用？可能是真没有理解这个反应器的应用。

dcl1214

只要用到了反应器，所有代码尽可能多用vl-catch-all-apply，否则，各种奇葩问题