文本修改
我有一些文本如下（蓝色文本），我希望所有文本都删除括号“（”和它之前的任何文本，以及括号“）”和它之后的任何文本，所以结果会像绿色的文本。有人有lsp程序吗？
思路仅供参考
[*](defun c:NM (/ i s1 ss str str2)
[*](setq i -1)
[*](if(setq ss (ssget ":S"(list '(0 . "*TEXT"))))
[*] (while(and(setq s1 (ssname ss (setq i (1+ i)))))
[*] (setq str(xj-getdxf s1 1))
[*] (setq str2(cadr(car(DTU-strsplit str '("(" ")")nil))))
[*] (xj-putdxf s1 1 str2)
[*] )
[*])
[*](princ)
[*])
页:
[1]