[原创源码][分享快乐]高手请进 Leader引线坐标标注动态关联

wchaop · 发表于 2009-4-3 11:40:00

本帖最后由作者于 2009-4-9 22:58:34 编辑

最简间的坐标标注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))"")
)

求助高手，怎么创建带关联的引线坐标标注（坐标值随引线顶点位置变动而变动）？

研究后自己做的程序，特来与大家分享快乐！

wx302008008 · 发表于 2016-9-28 13:05:00

楼主，感谢你的动态标注坐标，使用后发现容易让CAD2002的对象捕捉清空

caoyin · 发表于 2009-4-3 18:36:00

引线缺省的关联对象为多行文字、公差、块

参考 Annotation 属性

wchaop · 发表于 2009-4-4 16:36:00

caoyin大哥，我说的是X,Y的值随引线的箭头变动而改变标注文字的内容。

glowz · 发表于 2009-4-4 20:14:00

楼上的是高难度，是不是要用到反应器之类的

ljttjl · 发表于 2009-4-4 20:57:00

X,Y的值随引线的箭头变动而改变标注文字的内容,见以下位置程序：

明经CAD社区 → 工程篇 → 建筑工程 → [原创]引线标注X和Y坐标值的程序
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72509

wchaop · 发表于 2009-4-5 19:33:00

感谢glowz的提醒！

让ljttjl“大师”看看什么是原创源码？什么是分享快乐！

清风600 · 发表于 2009-4-6 00:14:00

这位老师的程序对我启发很大,我正需要这样的东西,有时间好好研究一下,改进一下自己就能用.感谢楼主的无私共享!

glowz · 发表于 2009-4-7 20:03:00

wchaop 是高手！！！！厉害

人品没得说阿！原以为vba的语法简单，看来lsp才是强大+通用性

jaminth · 发表于 2009-4-7 23:39:00

程序还是受到反应器的固有限制！！美中不足！

不过楼主精神可佳！谢谢！

飞诗(fsxm) · 发表于 2009-4-14 19:05:00

我可以提供《飞诗寻梦坐标标注》源程序~！

如果有兴趣请联系我。

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

[原创源码][分享快乐]高手请进 Leader引线坐标标注动态关联

本帖子中包含更多资源

点评

评分