定义了双击反应器之后，再双击文本文本编辑器不打开了。

xiayuxue213

• 
  
  • (defun dblclkedit (reactorObject point / B COLOR1 ENT)
  •   (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
  •   (or *DOC* (setq *DOC* (vla-get-ActiveDocument *ACAD*)))
  •   (setq eee reactorObject)
  •   (setvar "pickfirst" 1)
  •   (vla-sendcommand *DOC* ".select\n\n")
  •   (if (setq xEntPick (ssget "p"))
  •     (if (>(setq n(sslength xEntPick))1)
  •       (progn
  •         (vla-sendcommand *DOC* "_.properties\n")
  •       )
  •       (progn
  •         (setq entName(ssname xEntPick 0))
  •         (setq entData (entget entName))
  •         (if (and(= (vla-get-ActiveSpace *DOC*) 1) (= 0 (getvar 'cmdactive)))
  •           (progn
  •             (if (= (cdr(setq b(assoc 0 entData))) "DIMENSION")
  •               (progn
  •                 (princ hsh)
  •                 (vla-sendcommand *DOC* "OPENDCL\n")
  •                 (vla-sendcommand *DOC* "dimm\n")
  •               )
  •             )
  •           )
  •         )
  •       )
  •     )
  •   )
  • )
  • (defun Start-Mouse-Reactor ()
  •   (VLR-Mouse-Reactor nil '((:VLR-beginDoubleClick . dblclkedit)))
  • )
  • (cond ((or (not (getenv "dblclkedit")) (= (getenv "dblclkedit") "1")) (Start-Mouse-Reactor)))
    

加载了自定义的反应器之后，之前系统默认的双击没反应了。（双击文本不打开编辑器，双击直线不打开属性窗口）

Lisphk

你这个双击反应器是什么作用呢？

newer

把完整的代码贴上来，你这局部的，让人测试都没法测试。

xiayuxue213

newer 发表于 2017-8-4 10:02

我是想双击后调用OPENDCL对话框，到这一步就卡这里了。

xiayuxue213

Lisphk 发表于 2017-8-4 10:01

调用我自己定义的命令。比如OPENDCL对话框。

newer

xiayuxue213 发表于 2017-8-4 11:45

其他代码呢？ 反应器定义的。别人拷贝走你一楼的代码，执行不了，也就测试不了。

xiayuxue213

newer 发表于 2017-8-4 12:09

复制的时候漏掉了