大神在吗，求一个把空格替换为文字的程序

664571221 · 发表于 2018-5-22 10:01

本帖最后由 Gu_xl 于 2018-7-12 11:19 编辑

如图文字中间有空格，把空格替换为B

pzweng · 发表于 2018-5-22 10:16

CAD自带find命令不可以吗

664571221 · 发表于 2018-5-22 10:27

pzweng 发表于 2018-5-22 10:16
CAD自带find命令不可以吗

用不起来呀，find用不起来不知道为什么

ketxu · 发表于 2018-5-22 14:50

为什么不使用FIND命令，在“Find Text string”= Space;
“替换为”=您的新字符串。
为了找出无法解决的原因，也许文件上传会更有帮助

you_zy · 发表于 2018-5-25 18:05

(defun C:TT (/ ss i obj str)
(vl-load-com)
(setvar "cmdecho" 1)
(if (setq ss (ssget '((0 . "Text"))))
(repeat (setq i (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(setq str (vla-get-TextString obj))
(while (vl-string-position 32 str)
(setq str (vl-string-subst "B" " " str))
)
(vla-put-TextString obj str)
)
)
(setvar "cmdecho" 0)
)

ghgh0130 · 发表于 2018-5-25 21:29

本帖最后由 ghgh0130 于 2018-5-25 21:30 编辑

(substr (apply 'strcat (mapcar '(lambda (x) (strcat "B" (vl-prin1-to-string x))) (read (strcat "(" string ")"))) 2)

ghgh0130 · 发表于 2018-5-25 21:42

(substr (apply 'strcat (mapcar '(lambda (x) (strcat "B" (vl-prin1-to-string x))) (read (strcat "(" (cdr (assoc 1 (entget (car (entsel))))) ")"))) 2)

evayleung · 发表于 2018-5-25 22:32

很多都可以的吧，最原始的chtext.lsp就可以替换掉的了

664571221 · 发表于 2018-6-27 15:17

you_zy 发表于 2018-5-25 18:05
(defun C:TT (/ ss i obj str)
(vl-load-com)
(setvar "cmdecho" 1)

你好在吗，能不能再这个程序里同事吧A 替换为B

ll_j · 发表于 2018-6-27 16:33

试试这样：

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

[提问] 大神在吗，求一个把空格替换为文字的程序

点评

本帖子中包含更多资源