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

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

请问在VBA里面如何实现橡皮筋功能啊？？

我先前在论坛里面搜索了一个方法，但是不行。请各位高手指点一下！

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

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

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

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

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

哪里啊，没有找到哦。能讲清楚一点吗？

小妹初学这个，什么都不懂哦

谢谢各位热心帮助

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

    Dim angle As Double
    Dim QD As Variant, QDucs As Variant, ZD As Variant
    QD = ThisDrawing.Utility.GetPoint
    QDucs = ThisDrawing.Utility.TranslateCoordinates(QD, acWorld, acUCS, False)
    ZD = ThisDrawing.Utility.GetPoint(QDucs)
    angle = ThisDrawing.Utility.AngleFromXAxis(QD, ZD)
    UserForm1.TextBox3.Text = Str(angle * 180 / PI)

这段代码是实现通过选取两个点来获取角度的

在选点的时候就有橡皮筋

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