[编程申请]：实现与动画中ct命令一样功能

lxyljl

请教如何将以下的源码修改成实现和动画中ct命令一样的功能呢？参照动画，ct命令可以更改包括块内文字、标注文字等。如果在文字之间加如 | 符号，文字将实现自动分行。另一功能改变颜色，是指对所改文字颜色是否改变以及如何改变的设定（改变颜色是融合到ct命令里面去的）。   谢谢~

;;by lucas(龙龙仔)
(defun C:edit_txt (/ ENT TYPE_NAME TMP_TXT SEL)
  (vl-load-com)
  (defun DO_IT ()
    (entmake (list '(0 . "TEXT")
     '(100 . "AcDbEntity")
     '(100 . "AcDbText")
     '(60 . 1)
     '(10 0.0 0.0 0.0)
     '(40 . 0.000000001)
     (cons 1 (cdr (assoc 1 (entget ENT))))
      )
    )
    (setq TMP_TXT (entlast))
    (command "_.DDEDIT" TMP_TXT "")
    (vla-put-textstring
      (vlax-ename->vla-object ENT)
      (cdr (assoc 1 (entget TMP_TXT)))
    )
    (entdel TMP_TXT)
  )
  (if (setq SEL (nentsel "\\nSelect Text:"))
    (progn
      (setq ENT (car SEL))
      (setq TYPE_NAME (cdr (assoc 0 (entget ENT))))
      (cond
((and (= TYPE_NAME "TEXT") (= (length SEL) 4))
  (DO_IT)
  (command "_.REGEN")
)
((wcmatch TYPE_NAME "TEXT,MTEXT,ATTDEF")
  (if (and (equal TYPE_NAME "MTEXT") (= (length SEL) 4))
    (setq ENT (car (last SEL)))
  )
  (command "_.DDEDIT" ENT "")
)
((= TYPE_NAME "ATTRIB") (DO_IT))
      )
    )
  )
  (princ)
)