cheng_0804 发表于 2024-8-13 10:24:13

求帮忙替换成指定文字

请大佬帮忙替换成指定文字
(defun c:ty()
        (setq aq (entsel "\n选择需要的文字:"))
        (setq aq1 (entget (car aq)))
        (setq aq2 (assoc 1 aq1))
        ;(setq aw (entsel "\n选择被替换的文字:"))
        (setq aw (getstring "\n请输入新的文字:"))
        (setq aw1 (entget (car aw)))
        (setq aw2 (assoc 1 aw1))
        (setq aw1 (subst aq2 aw2 aw1))
        (entmod aw1)
        (princ)
)

aws 发表于 2024-8-13 10:41:26

getstring ,我记得这个函数,好像不能用输入法输入中文来着。。。

自贡黄明儒 发表于 2024-8-13 11:29:19

(setq aw1 (entget (car aw)))
这里aw是你刚输入的文字,不能用car吧?

qazxswk 发表于 2024-8-14 00:28:05

建议你去学习一下阿甘大师的这个插件--文字刷

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96376&fromuid=7329538

qazxswk 发表于 2024-8-14 03:18:41

本帖最后由 qazxswk 于 2024-8-14 03:36 编辑

试着写了一下


(defun c:22 (/ ent oldtxt newtxt e)
(setq ent (entget (car(entsel "\n选择需要修改的文字:"))))
(setq oldtxt (assoc 1 ent))
(setq newtxt (getstring "\n请输入新的文字:"))
(setq e (subst(cons 1 newtxt) oldtxt ent))
(entmod e)
(princ)
)

页: [1]
查看完整版本: 求帮忙替换成指定文字