自己解决了！
用VBA方法不行，还得用纯LISP
;;;;;;删除天正面积
(defun c:DZ (/ sels text i old-text t-len new-text newent sel)
(princ "删除天正面积!")
(setq sels (ssget '((0 . "TCH_MTEXT") (8 . "PUB_TEXT"))))
(setq i 0)
(if sels
(repeat (sslength sels)
(setq sel (ssname sels i))
(setq old-text (cdr (assoc 1 (entget sel))))
(if (wcmatch old-text "*\r\n#.#m2,*\r\n##.#m2,*\r\n###.#m2")
(progn
(setq t-len (cond
((wcmatch old-text "*\r\n#.#m2")
(strlen "*\r\n#.#m2")
)
((wcmatch old-text "*\r\n##.#m2")
(strlen "*\r\n##.#m2")
)
((wcmatch old-text "*\r\n###.#m2")
(strlen "*\r\n###.#m2")
)
(t 1)
)
)
(setq
new-text (substr old-text 1 (1+(- (strlen old-text) t-len)))
)
(setq newent (subst (cons 1 new-text)
(assoc 1 (entget sel))
(entget sel)
)
)
(entmod newent)
(entupd sel)
)
)
(setq i (1+ i))
)
)
(princ)
)

强！

既然有人需要，天正干脆就增加个关闭建筑面积的功能吧

楼主能不能发一张dwg看看？

有一张图，全选会CAD出错，只选天正文字可以实现

可以删除吗？我都是自己慢慢删的，很麻烦的，学习了！