l982414 发表于 2017-9-19 09:26:47

急求一个块名标注插件

求高手做一款块名标注插件
1.执行插件命令后，点击块，出来一条引线，然后引线上有块名文字。如下图


夺天工 发表于 2017-9-20 12:57:25

(defun c:km()
(if (and (setq en (car(entsel "\n选择图块：")))
          (setq ent (entget en))
          (= (cdr(assoc 0 ent)) "INSERT")) (progn
(setq bn (cdr (assoc 2 ent))
      pt (cdr (assoc 10 ent)))
   (command ".leader" pt PAUSE "" bn "")
))
(princ)
)

l982414 发表于 2017-10-14 09:33:53

夺天工 发表于 2017-9-20 12:57
(defun c:km()
(if (and (setq en (car(entsel "\n选择图块：")))
          (setq ent (entget en))


可否去掉引线只要块名，因为引线没办法调到合适的位置

yansu 发表于 2017-10-16 11:05:27

本帖最后由 yansu 于 2017-10-17 07:20 编辑

夺天工：可否将获取的块名刷到现有的文字上，即使现有的文字内容为块名。谢谢

ZMB7211 发表于 2017-10-16 12:31:44

编写一个就好 了

ZMB7211 发表于 2017-10-16 12:31:55

编写一个就好 了

yansu 发表于 2017-10-16 13:28:47

对编程不通，不知可否帮忙写一个，谢谢

fsafaffa 发表于 2017-10-18 12:07:47

路过，顶一下

wdjy808 发表于 2017-10-23 15:15:34

同求

唐伯虎9527 发表于 2017-11-20 19:57:36

路过，顶一下
页: [1]
查看完整版本: 急求一个块名标注插件