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

yansu

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

vectra

1. (defun c:tt (/ l1 l2 dxf)
   
2.   (if (and (princ "选择块:")
   
3.            (while (not l1)
   
4.              (setq l1 (ssget ":E:S" '((0 . "INSERT"))))
   
5.            )
   
6.            (princ "选择用于显示块名的文字对象:")
   
7.            (while (not l2)
   
8.              (setq l2 (ssget ":E:S" '((0 . "TEXT"))))
   
9.            )
   
10.            (setq l1  (ssname l1 0)
    
11.                  l2  (ssname l2 0)
    
12.                  dxf (entget l2)
    
13.                  dxf (subst (cons 1 (cdr (assoc 2 (entget l1)))) (assoc 1 dxf) dxf)
    
14.            )
    
15. 
    
16.       )
    
17.     (entmod dxf)
    
18.   )
    
19.   (princ)
    
20. )

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

天下逍遥

帮忙顶一下

yansu

非常感谢vectra，方便实用。

yansu

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

oistre

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

gooday

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

bai2000

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

LoyaltyMu

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

能麻烦分享下吗