A._建筑李工 发表于 2021-7-18 18:33:07

已有 14 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

lengxiaxi 发表于 2023-2-23 09:50:43

文字特别大，已经改小了
(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 15)))
(c:dkm)
)
(prin1)

要是能批量框选，并统计数量就好了比如多个同名块10-我叫张三

流动的清泉 发表于 2021-9-15 13:54:32

已经购买，免费分享给大家
(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)

alexmai 发表于 2021-7-19 10:27:06

能支持动态块块名显示吗？

yangchao2005090 发表于 2021-7-20 12:27:40

已经购买，分享给大家

lxl217114 发表于 2021-7-21 13:20:59

yangchao2005090 发表于 2021-7-20 12:27
已经购买，分享给大家

付费主题居然可以限制本帖内所以附件下载，麻烦上网盘链接

k1nger 发表于 2021-9-15 14:38:16

(defun C:tt()
(setq a (cdr (assoc 2 (entget (car (entsel))))))
(princ a)
)
搞定

alexmai 发表于 2021-9-16 22:58:48

wblock 比较快，动态块块名也能看到
页: [1]
查看完整版本: 给大家分享一个块名称提取插件