最好不要用永久反應器 (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) ) |