juliana207 发表于 2021-4-12 17:49:46

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

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

lee50310 发表于 2021-4-12 19:29:48

本帖最后由 lee50310 于 2021-4-13 10:32 编辑

試試這個



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



juliana207 发表于 2021-4-12 23:30:41

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

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

烟盒迷唇 发表于 2021-4-13 07:34:41

1 1 1是XYZ比例

lee50310 发表于 2021-4-13 10:12:03

本帖最后由 lee50310 于 2021-4-13 10:31 编辑

1 1 1是XYZ比例

感謝你的回覆

灬北方狼灬 发表于 2021-4-15 15:33:29

可以忽略z轴比例

白色微風1991 发表于 2021-8-31 10:15:32

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

sjl_fyl 发表于 2024-10-11 15:22:15

{:1_1:}学习
页: [1]
查看完整版本: 能否实现点块名字的text文字,直接插入这个块