【转帖】[原创源码][分享快乐]高手请进 leader引线坐标标注动态关联
 

[原创源码][分享快乐]高手请进 leader引线坐标标注动态关联
www.dimcax.com
[原创源码][分享快乐]高手请进 leader引线坐标标注动态关联
最简间的坐标标注lisp
(defun c:bz()
(setq p1 (getpoint "\ninput first point:"))
(setq p2 (getpoint p1 "\ninput second point:"))
(command "leader" p1 p2 "" (strcat "x=" (rtos (car p1) 2 1) "\ny=" (rtos (cadr p1) 2 1))"")
)
求助高手，怎么创建带关联的引线坐标标注（坐标值随引线顶点位置变动而变动）？
研究后自己做的程序，特来与大家分享快乐！
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
最新修改在

引线缺省的关联对象为多行文字、公差、块
参考 annotation 属性
d
caoyin大哥，我说的是x,y的值随引线的箭头变动而改变标注文字的内容。
d
楼上的是高难度，是不是要用到反应器之类的
d
x,y的值随引线的箭头变动而改变标注文字的内容,见以下位置程序：
明经cad社区 → 工程篇 → 建筑工程 → [原创]引线标注x和y坐标值的程序
感谢glowz的提醒！
让ljttjl“大师”看看什么是原创源码？什么是分享快乐！