[原创源码][分享快乐]高手请进 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“大师”看看什么是原创源码?什么是分享快乐!