点块写名字

tigcat

(defun c:dkm (/ en_data pt name_block )
(setq en_data (entget (car (entsel "\n选择图块:"))))
(setq pt (getpoint  "\n选择文字基点:"))
(setq name_block (cdr (assoc 2 en_data)))
(entmake (list '(0 . "TEXT") (cons 1 name_block) (cons 10 pt) (cons 40 1500)))
(c:dkm)
)
(prin1)

有时图块多，需要炸掉后重新做块，复制图名用的。我纯新手，水平低，纯分享给和我一起开始学习的朋友，高手不要见笑。

panliang9

谢谢楼主分享。

yoyoho

谢谢楼主分享程序!!!!

tigcat

yoyoho 发表于 2020-11-19 18:39
谢谢楼主分享程序!!!!

长老路过，受宠若惊

czb203

谢谢楼主分享。

ketxu

Thanks for sharing ^^ But you need to thing about dynamic block, that you can't get block definition name from dxf 2

tigcat

ketxu 发表于 2020-11-21 01:20
Thanks for sharing ^^ But you need to thing about dynamic block, that you can't get block definition ...

thanks for your suggest,you're right,are you chinese?

yubfang

多谢分享，一起进步

ketxu

tigcat 发表于 2020-11-21 07:44
thanks for your suggest,you're right,are you chinese?

Hi bro, I'm Vietnamese ^^. Cause my bad in English and Chinese language both, and i haven't Chinese keyboard, so i try to typing on English. Sorry ...

tigcat

ketxu 发表于 2021-3-29 12:10
Hi bro, I'm Vietnamese ^^. Cause my bad in English and Chinese language both, and i haven't Chines ...

welcome to mjtd.com.