yansu 发表于 2017-10-15 14:19:49

请大师帮忙编制一个块名-文字刷

请大师帮忙编制一个块名-文字刷。即设计一个将图块名刷到现有的文字上，使文字变为图块名，不改变文字的大小、颜色、方向。谢谢啦！！！

vectra 发表于 2017-10-16 13:03:35

(defun c:tt (/ l1 l2 dxf)
(if (and (princ "选择块:")
           (while (not l1)
             (setq l1 (ssget ":E:S" '((0 . "INSERT"))))
           )
           (princ "选择用于显示块名的文字对象:")
           (while (not l2)
             (setq l2 (ssget ":E:S" '((0 . "TEXT"))))
           )
           (setq l1(ssname l1 0)
               l2(ssname l2 0)
               dxf (entget l2)
               dxf (subst (cons 1 (cdr (assoc 2 (entget l1)))) (assoc 1 dxf) dxf)
           )

      )
    (entmod dxf)
)
(princ)
)

天下逍遥 发表于 2017-10-17 10:03:07

帮忙顶一下

yansu 发表于 2017-10-17 11:11:05

本帖最后由 yansu 于 2017-10-17 13:32 编辑

非常感谢vectra，方便实用。


yansu 发表于 2017-10-17 13:33:05

请问vectra朋友可否增加刷到属性功能呢？

oistre 发表于 2018-8-30 18:49:22

谢谢大神，牛牛牛牛！！！

gooday 发表于 2019-3-16 16:16:12

厉害，还找一个把文字刷到块里直接改块名的。

bai2000 发表于 2019-5-7 16:13:50

不错的功能，怎么能在块和文字之间加个连线，这样就好找了

LoyaltyMu 发表于 2020-7-31 00:37:01

gooday 发表于 2019-3-16 16:16
厉害，还找一个把文字刷到块里直接改块名的。

能麻烦分享下吗
页: [1]
查看完整版本: 请大师帮忙编制一个块名-文字刷