xiaokk 发表于 2005-5-10 22:40:00

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

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


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


谢谢

ljpnb 发表于 2005-5-11 08:31:00

这个可以用getpoint方式来显示这种效果，如下：



Sub test()<BR>Dim pnt1 As Variant<BR>Dim pnt2 As Variant<BR>Dim lineobj As AcadLine<BR>pnt1 = ThisDrawing.Utility.GetPoint(, "first point")<BR>pnt2 = ThisDrawing.Utility.GetPoint(pnt1, "second point")<BR>Set lineobj = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)<BR>ZoomAll<BR>End Sub
页: [1]
查看完整版本: [求助][VBA]如何实现这种动态的效果..?