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 static/image/common/back.gif
你可以看看langs的相同刷
！

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

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

bookish 发表于 2015-3-31 13:08 static/image/common/back.gif
我用搜索用户的方式没见到有langs这个用户啊

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

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

bookish 发表于 2015-3-31 13:08 static/image/common/back.gif
我用搜索用户的方式没见到有langs这个用户啊

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101921&highlight=%CF%E0%CD%AC%CB%A2

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

看到了，那个好强大

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

感谢大佬分享
页: [1]
查看完整版本: 求教框选刷文字