[求助]如何利用反应器让自己反应?

carrot1983

如何解决反应器不能让OWNERS(VLA 对象的 AutoLISP 表，标识要观察的图形对象。)反应?

换个通俗点的说法：

在图形中写数字TEXT："1"，如何让TEXT随着数字的变化，自动修改自身的颜色。如TEXT改为：2，变色为黄色。

(defun TEXT-COLOR (OWNERS DATA PAR)
  (setq TEXT_OBJ (vlax-ename->vla-object (handent (vlr-data DATA))))
  ;;TEXT_OBJ 等同于 OWNERS
  (if (and (not (vlax-erased-p OWNERS))
    (not (vlax-erased-p TEXT_OBJ))
      )
    (vla-put-color
      TEXT_OBJ
      (fix (read (vla-get-textstring OWNERS)))
    )
    (vlr-remove REACTOR)
  )
  (princ)
)

(defun C:TT (/ TEXT TEXT_DATA TEXT_OWNER)
  (command "._TEXT" "J" "M" '(0 0 0) "" "" "1")
  (setq TEXT (entlast))
  (setq TEXT_OWNER (list (vlax-ename->vla-object TEXT)))
  (setq TEXT_DATA (cdr (assoc 5 (entget TEXT))))
  (vlr-pers
    (vlr-object-reactor
      TEXT_OWNER
      TEXT_DATA
      '((:vlr-modified . TEXT-COLOR))
    )
  )
  (princ "\n已建立的反应器有: ")
  (princ (vlr-reactors))
  (princ)
)

mmmmmm

在修改颜色之前，先判断一下原来的颜色是什么，如果已经符合要求了，就不要再改了。

否则回调函数会不停地调用自身。

carrot1983

mmmmmm发表于2009-11-10 15:36:00在修改颜色之前，先判断一下原来的颜色是什么，如果已经符合要求了，就不要再改了。否则回调函数会不停地调用自身。

非常感谢。

nonsmall

二楼正解

龙龙仔

最好不要用永久反應器

(defun TEXT-COLOR (OWNERS DATA PAR)
  (setq TEXT_OBJ (vlax-ename->vla-object (handent (vlr-data DATA))))
  ;|
  ;;TEXT_OBJ 等同於 OWNERS
  (if (and (not (vlax-erased-p OWNERS))
    (not (vlax-erased-p TEXT_OBJ))
      )
    (vla-put-color
      TEXT_OBJ
      (fix (read (vla-get-textstring OWNERS)))
    )
    (vlr-remove REACTOR)
  )|;
  (princ)
)

(if (not COLORREACTOR2)
  (setq COLORREACTOR2
  (vlr-editor-reactor
    NIL
    '((:vlr-commandended . COLOR2))
  )
  )
)

(defun COLOR2 (OBJREACTOR LSTCOMMAND)
  (if (and TEXT_OBJ
    (not (vlax-erased-p TEXT_OBJ))
    (not (vl-catch-all-error-p
    (vl-catch-all-apply
      'vla-put-color
      (list TEXT_OBJ
     (vl-catch-all-apply
       'fix
       (list (read (vla-get-textstring TEXT_OBJ)))
     )
      )
    )
  )
    )
      )
    (setq TEXT_OBJ NIL)
  )
)

(defun C:TT (/ TEXT TEXT_DATA TEXT_OWNER)
  (command "._TEXT" "J" "M" '(0 0 0) "" "" "1")
  (setq TEXT (entlast))
  (setq TEXT_OWNER (list (vlax-ename->vla-object TEXT)))
  (setq TEXT_DATA (cdr (assoc 5 (entget TEXT))))
  (vlr-pers
    (vlr-object-reactor
      TEXT_OWNER
      TEXT_DATA
      '((:vlr-modified . TEXT-COLOR))
    )
  )
  (princ "\n已建立的反應器有: ")
  (princ (vlr-reactors))
  (princ)
)

xjf

     正要学习，谢了