请教高手，捕获unknown命令后能用entmod修改文本吗？

jack093

请教高手，捕获unknown命令后能用entmod修改文本吗？
(or *doc* (setq *doc* (vla-get-ActiveDocument (vlax-get-acad-object))))
(or *test* (setq *test* (vlr-editor-reactor nil '((:vlr-unknownCommand . test)))))
(defun test (a b / c n)
    (if (and (setq c (strcase (car b)))
            (= c "pmt")
        )
        (progn
            (while (setq sse (ssget "_:s" (list (cons 0 "TEXT"))))
                (setq len (sslength sse))
                (while (> len 0)
                    (setq ent (entget (ssname sse (setq len (1- len)))))
                    (if (= (cdr (assoc 0 ent)) "TEXT")
                        (progn
                            (setq st-old (cdr (assoc 1 ent)))
                            (entmod(subst (cons 1 "平面图") (assoc 1 ent) ent))
                        )
                    ))
            )
        )
    )
    (princ)
)

jack093

自己顶，高手在吗？