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

a6262846

Bao_lai 发表于 2019-7-16 12:27
上Dwg才知道你原始的样子，好有针对性。

大神  我已经上传了

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 ...

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

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))

a6262846

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

谢谢大神 完美

小小的人

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

完美解决问题   非常感谢你的分享