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

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

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

请问在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)
这段代码是实现通过选取两个点来获取角度的
在选点的时候就有橡皮筋

页: [1]

乐筑天下's Archiver

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