sophia506 发表于 2006-11-16 09:39:00

[求助][VBA]在VBA里面如何实现橡皮筋功能？

<P>请问在VBA里面如何实现橡皮筋功能啊？？</P>
<P>我先前在论坛里面搜索了一个方法，但是不行。请各位高手指点一下！</P>

mccad 发表于 2006-11-16 13:09:00

只有那几个GETXXX方法可以做到。

MJTD_7777 发表于 2006-11-16 14:14:00

<P>vb，vba里面的鼠标动态跟踪用acadX.arx很容易实现。</P>

sophia506 发表于 2006-11-16 16:28:00

vba不能实现吗？我要用vba实现这个功能啊

MJTD_7777 发表于 2006-11-28 11:03:00

那个acadX.arx就是加载以后供VB或VBA调用的一个工具集合

rielzhou 发表于 2007-1-29 22:45:00

明经里有一个坐标标注的vba，那里面有一段窗体的代码可以实现

sophia506 发表于 2007-1-30 10:51:00

<p>哪里啊，没有找到哦。能讲清楚一点吗？</p><p>小妹初学这个，什么都不懂哦</p><p>谢谢各位热心帮助</p>

rielzhou 发表于 2007-2-20 11:01:00

<p>&nbsp;&nbsp;&nbsp; Dim angle As Double<br/>&nbsp;&nbsp;&nbsp; Dim QD As Variant, QDucs As Variant, ZD As Variant<br/>&nbsp;&nbsp;&nbsp; QD = ThisDrawing.Utility.GetPoint<br/>&nbsp;&nbsp;&nbsp; QDucs = ThisDrawing.Utility.TranslateCoordinates(QD, acWorld, acUCS, False)<br/>&nbsp;&nbsp;&nbsp; ZD = ThisDrawing.Utility.GetPoint(QDucs)<br/>&nbsp;&nbsp;&nbsp; angle = ThisDrawing.Utility.AngleFromXAxis(QD, ZD)<br/>&nbsp;&nbsp;&nbsp; UserForm1.TextBox3.Text = Str(angle * 180 / PI)</p><p></p><p>这段代码是实现通过选取两个点来获取角度的</p><p>在选点的时候就有橡皮筋</p>
页: [1]
查看完整版本: [求助][VBA]在VBA里面如何实现橡皮筋功能？