明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1633|回复: 10

急求一个块名标注插件

[复制链接]
发表于 2017-9-19 09:26:47 | 显示全部楼层 |阅读模式
求高手做一款块名标注插件
1.执行插件命令后,点击块,出来一条引线,然后引线上有块名文字。如下图


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 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)
)
 楼主| 发表于 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))

可否去掉引线只要块名,因为引线没办法调到合适的位置
发表于 2017-10-16 11:05:27 | 显示全部楼层
本帖最后由 yansu 于 2017-10-17 07:20 编辑

夺天工:可否将获取的块名刷到现有的文字上,即使现有的文字内容为块名。谢谢
发表于 2017-10-16 12:31:44 | 显示全部楼层
编写一个就好 了
发表于 2017-10-16 12:31:55 | 显示全部楼层
编写一个就好 了
发表于 2017-10-16 13:28:47 | 显示全部楼层
对编程不通,不知可否帮忙写一个,谢谢
发表于 2017-10-18 12:07:47 | 显示全部楼层
路过,顶一下
发表于 2017-11-20 19:57:36 | 显示全部楼层
路过,顶一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 06:47 , Processed in 0.217285 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表