急求一个块名标注插件

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

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

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

(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

夺天工发表于 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

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

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

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

编写一个就好了

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

编写一个就好了

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

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

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

路过，顶一下

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

同求

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

路过，顶一下

账号		自动登录	找回密码
密码			注册

急求一个块名标注插件

本帖子中包含更多资源

相关帖子