各位大神 求一个文字去除小括号和中括号的lsp文件

a6262846

各位大神 求一个文字去除小括号和中括号的lsp文件  像图片那样

1291500406

a6262846 发表于 2019-7-16 19:53
大神  您这是替代成空格吧  那怎么把空格去掉

(defun c:bb( / ss i en obj)(vl-load-com)(setq ss(ssget ":s" '((0 . "TEXT")))i -1)
(repeat(sslength ss)(setq en(ssname ss (setq i(1+ i)))obj (Vlax-Ename->Vla-Object en))
(Vlax-Put obj  'TextString (vl-list->string (vl-remove-if '(lambda (x) (= x 32))
(vl-string->list(vl-string-translate "[]()" "    "(Vlax-Get obj 'TextString)))))))(princ))

1291500406

(defun c:bb( / ss i en obj)(vl-load-com)(setq ss(ssget ":s" '((0 . "TEXT")))i -1)(repeat(sslength ss)(setq en(ssname ss (setq i(1+ i)))
obj (Vlax-Ename->Vla-Object en))(Vlax-Put obj  'TextString(vl-string-trim " "(vl-string-translate "[]()" "    "(Vlax-Get obj 'TextString)))))(princ))

a6262846

1291500406 发表于 2019-7-16 15:50
(defun c:bb( / ss i en obj)(vl-load-com)(setq ss(ssget ":s" '((0 . "TEXT")))i -1)(repeat(sslength ss ...

大神  您这是替代成空格吧  那怎么把空格去掉

自贡黄明儒

(vl-string-left-trim character-set string)

ll_j

AutoCAD的find命令就行

Bao_lai

(vl-string-trim " " (vl-string-translate "[]()" "    " "[200x500] (200x1200)"))

xinxirong

把空格也删掉？

a6262846

ll_j 发表于 2019-7-15 11:26
AutoCAD的find命令就行

您说的是可以 可是太慢了  find的去查对象 我想直接去掉

a6262846

自贡黄明儒 发表于 2019-7-15 09:23
(vl-string-left-trim character-set string)

大神  可以有整个lsp文件吗

a6262846

Bao_lai 发表于 2019-7-16 02:02
(vl-string-trim " " (vl-string-translate "[]()" "    " "[200x500] (200x1200)"))

大神  可以有整个lsp文件吗

a6262846

xinxirong 发表于 2019-7-16 08:37
把空格也删掉？

不用  只要去括号就可以了

Bao_lai

a6262846 发表于 2019-7-16 09:23
大神  可以有整个lsp文件吗

上Dwg才知道你原始的样子，好有针对性。