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

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

大神我已经上传了

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

本帖最后由 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:37

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:41

本帖最后由 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:33

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:28

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

完美解决问题   非常感谢你的分享
页: 1 [2]
查看完整版本: 各位大神 求一个文字去除小括号和中括号的lsp文件