a6262846 发表于 2019-7-15 09:15:36

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

本帖最后由 a6262846 于 2019-7-16 14:08 编辑

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

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

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

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

自贡黄明儒 发表于 2019-7-15 09:23:34

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

ll_j 发表于 2019-7-15 11:26:08

AutoCAD的find命令就行

Bao_lai 发表于 2019-7-16 02:02:39

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

xinxirong 发表于 2019-7-16 08:37:03

把空格也删掉？

a6262846 发表于 2019-7-16 09:22:16

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

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

a6262846 发表于 2019-7-16 09:22:43

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

大神可以有整个lsp文件吗

a6262846 发表于 2019-7-16 09:23:11

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

大神可以有整个lsp文件吗

a6262846 发表于 2019-7-16 09:23:45

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

不用只要去括号就可以了

Bao_lai 发表于 2019-7-16 12:27:26

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

上Dwg才知道你原始的样子，好有针对性。
页: [1] 2
查看完整版本: 各位大神 求一个文字去除小括号和中括号的lsp文件