tigcat 发表于 2020-11-18 23:49:11

点块写名字

(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 发表于 2020-11-19 08:40:04

谢谢楼主分享。

yoyoho 发表于 2020-11-19 18:39:55

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

tigcat 发表于 2020-11-19 22:29:25

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

长老路过，受宠若惊

czb203 发表于 2020-11-20 15:19:15


谢谢楼主分享。

ketxu 发表于 2020-11-21 01:20:27

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

tigcat 发表于 2020-11-21 07:44:32

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 发表于 2020-11-23 08:00:59

多谢分享，一起进步

ketxu 发表于 2021-3-29 12:10:18

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 发表于 2021-3-29 17:11:02

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.:handshake
页: [1]
查看完整版本: 点块写名字