CAD中我想用LSP在单行或多行，或标注文本中加（），大多是1，2等数字加上（）变（1）等，那位大

CAD中我想用LSP在单行或多行，或标注文本中加（），大多是1，2等数字加上（）变（1）等，那位大哥能帮我写个LSP，非常谢谢！

找了个类似的例子，我改不了，单行，多行文本
1，2数字上加（）变（1），（2）等……
(DEFUN C:R2()(SETQ SS(SSGET))(COMMAND"._DIMEDIT" "n" "2-<>" SS "" ""))

(defun c:tes()
(setq ss(ssget '((0 . "*text"))))
(or ss (setq ss (ssadd)))
(setq m 0 n (sslength ss))
(while (< m n)
(setq en(ssname ss m) m (1+ m))
(setq data (entget en))
(setq str (strcat "(" (cdr (assoc 1 data)) ")"))
(entmod (subst (cons 1 str)(assoc 1 data) data))
)
(princ)
)

直接用find命令查找替换不行吗？ 再看看别人怎么说的。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息