能否实现点块名字的text文字,直接插入这个块

juliana207

想请教下各位老师, 能不能做一个lisp, 在图纸上点某一个块的名字TEXT文字, 比如 C0912, 然后直接插入这个块到面前来. 谢谢大家

lee50310

試試這個

2. 
   
3. 
   
4. (defun c:tt()
   
5.        (setq bk_name(cdr(assoc 1 (entget(car(entsel))))))
   
6.         (if bk_name
   
7.        (progn        
   
8.            (if (tblsearch "block" bk_name)
   
9.                (command "-insert" bk_name pause 1. 1. 1. "0")
   
10.                (alert "圖檔中無此圖塊名稱")
    
11.            )
    
12.            )
    
13.            (alert "所選不是文字物體")
    
14.          )
    
15.        (prin1)
    
16. )  
    
17. 
    

<br /> <br /> (defun c:tt()<br />        (setq bk_name(cdr(assoc 1 (entget(car(entsel))))))<br />         (if bk_name<br />        (progn        <br />            (if (tblsearch "block" bk_name)<br />                (command "-insert" bk_name pause 1. 1. 1. "0")<br />                (alert "圖檔中無此圖塊名稱")<br />            )<br />            )<br />            (alert "所選不是文字物體")<br />          )<br />        (prin1)<br /> )  <br /> <br />

juliana207

lee50310 发表于 2021-4-12 19:29
試試這個

非常感谢!!!!  好像 pause 1. 1. 1.最后一个1要改成0吧, 我用你的命令插入进来图块是旋转了1度

烟盒迷唇

1 1 1是XYZ比例

lee50310

1 1 1是XYZ比例

感謝你的回覆

灬北方狼灬

可以忽略z轴比例

白色微風1991

如果圖塊，不要限於那張圖裡面的話，如果圖塊放在別的資料夾，例如 D:\ABC\資料夾裡面找圖塊，LISP 如何改