[求助][VBA]如何实现这种动态的效果..?

xiaokk

我们在画直线时,当输入了起点,系统提示要我们输入终点坐标时,我们移动鼠标,会有一根线随着鼠标一起移动,那请问


如何实现这种动态的效果?


谢谢

ljpnb

这个可以用getpoint方式来显示这种效果，如下： Sub test()
Dim pnt1 As Variant
Dim pnt2 As Variant
Dim lineobj As AcadLine
pnt1 = ThisDrawing.Utility.GetPoint(, "first point")
pnt2 = ThisDrawing.Utility.GetPoint(pnt1, "second point")
Set lineobj = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
ZoomAll
End Sub