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

a6262846 · 发表于 2019-7-16 14:09

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

大神我已经上传了

1291500406 · 发表于 2019-7-16 15:50

本帖最后由 1291500406 于 2019-7-16 20:17 编辑

(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 · 发表于 2019-7-16 19:53

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 · 发表于 2019-7-16 20:27

本帖最后由 1291500406 于 2019-7-16 21:32 编辑

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 · 发表于 2019-7-18 08:27

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

谢谢大神完美

小小的人 · 发表于 2020-5-5 11:07

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

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

账号		自动登录	找回密码
密码			注册

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

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