求教框选刷文字

bookish · 发表于 2015-3-30 22:29:39

下面的lsp来自于百度知道，能在cad里刷文字内容，但是只能点选文字，不能框选文字，求大家指点。
；；刷文字内容
(defun c:mama (/ txt1 txt2 ent) ;;;文字刷，将文字内容改成源文字内容
(setq ent (car (entsel "\n选择源文字：")))
(setq txt1 (entget ent))
(setq txt1 (cdr (assoc 1 txt1)))
(while t
(setq ent (car (entsel "\n选择目标文字：")))
(setq ent (entget ent))
(setq ent
(subst (cons 1 txt1) (assoc 1 ent) ent)
)
(entmod ent)
)

)

琴剑江山_10184 · 发表于 2015-3-30 22:49:16

(defun c:tt (/ EN ENT GET LEN NN SEL)
(princ "\n功能 [批量刷文字内容]")
(if (setq seL (entsel "\n选择源文字:"))
(progn
(setq en (cdr (assoc 1 (entget (car seL)))))
(and (setq get (ssget '((0 . "*TEXT"))))
(progn
(setq len (sslength get))
(repeat len
(setq nn (ssname get (setq len (1- len)))
ent (entget nn)
)
(entmod (subst (cons 1 en) (assoc 1 ent) ent))
)
)
)
)
)
(princ)
)

bookish · 发表于 2015-3-30 23:01:08

谢谢您的热心帮助！我刚刚试验了，完全达到我想要的效果，非常谢谢您！

tianyi1230 · 发表于 2015-3-31 08:10:10

你可以看看langs的相同刷
！

bookish · 发表于 2015-3-31 13:08:24

tianyi1230 发表于 2015-3-31 08:10
你可以看看langs的相同刷
！

我用搜索用户的方式没见到有langs这个用户啊

tianyi1230 · 发表于 2015-3-31 17:16:27

bookish 发表于 2015-3-31 13:08
我用搜索用户的方式没见到有langs这个用户啊

http://bbs.mjtd.com/thread-108730-1-1.html

tianyi1230 · 发表于 2015-3-31 17:17:13

bookish 发表于 2015-3-31 13:08
我用搜索用户的方式没见到有langs这个用户啊

http://bbs.mjtd.com/forum.php?mo ... =%CF%E0%CD%AC%CB%A2

bookish · 发表于 2015-3-31 21:23:57

看到了，那个好强大

magicheno · 发表于 2022-11-8 21:44:42

感谢大佬分享

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

[已解答] 求教框选刷文字