wchaop
发表于 2009-4-3 11:40:00
[原创源码][分享快乐]高手请进 Leader引线坐标标注动态关联
本帖最后由 作者 于 2009-4-9 22:58:34 编辑 <br /><br /> <p>最简间的坐标标注LISP</p><p>(defun C:bz() <br/> (setq p1 (getpoint "\ninput first point:"))<br/> (setq p2 (getpoint p1 "\ninput second point:"))<br/> (command "leader" p1 p2 "" (strcat "X=" (rtos (car p1) 2 1) "\nY=" (rtos (cadr p1) 2 1))"")<br/> )</p><p></p><p>求助高手，怎么创建带关联的引线坐标标注（坐标值随引线顶点位置变动而变动）？</p><p>研究后自己做的程序，特来与大家分享快乐！</p><p> </p><p></p><p></p><p></p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=74800"></a> </p>
wx302008008
发表于 2016-9-28 13:05:00
楼主，感谢你的动态标注坐标，使用后发现容易让CAD2002的对象捕捉清空
caoyin
发表于 2009-4-3 18:36:00
<p>引线缺省的关联对象为多行文字、公差、块</p><p>参考 Annotation 属性</p>
wchaop
发表于 2009-4-4 16:36:00
<font face="Verdana" color="#da2549"><strong>caoyin大哥，我说的是X,Y的<font color="#3d11ee">值</font>随引线的箭头变动而改变标注文字的内容。</strong></font>
glowz
发表于 2009-4-4 20:14:00
<p>楼上的是高难度，是不是要用到反应器之类的</p>
ljttjl
发表于 2009-4-4 20:57:00
<p><strong><font face="Verdana"><font color="#da2549">X,Y的</font><font color="#3d11ee">值</font><font color="#da2549">随引线的箭头变动而改变标注文字的内容,见以下位置程序：</font></font></strong></p><p>明经CAD社区 → 工程篇 → 建筑工程 → [原创]引线标注X和Y坐标值的程序 <br/><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72509">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72509</a></p>
wchaop
发表于 2009-4-5 19:33:00
<p>感谢glowz的提醒！</p><p><font color="#ee1111">让ljttjl“大师”看看什么是原创源码？什么是分享快乐！</font></p><p> </p>
清风600
发表于 2009-4-6 00:14:00
<p>这位老师的程序对我启发很大,我正需要这样的东西,有时间好好研究一下,改进一下自己就能用.感谢楼主的无私共享!</p>
glowz
发表于 2009-4-7 20:03:00
<p><strong><font face="Verdana" color="#61b713">wchaop 是高手！！！！厉害</font></strong></p><p><strong><font face="Verdana" color="#61b713">人品没得说阿！ 原以为vba的语法简单，看来lsp才是强大+通用性</font></strong></p>
jaminth
发表于 2009-4-7 23:39:00
<p>程序还是受到反应器的固有限制！！美中不足！</p><p>不过楼主精神可佳！谢谢！</p>
飞诗(fsxm)
发表于 2009-4-14 19:05:00
<p>我可以提供《飞诗寻梦坐标标注》源程序~！</p><p>如果有兴趣请联系我。</p>