VBA如何实现AutoCAD本身画线命令的那种动态显示效果？

Zzllvb

程序运行时，需要用户点取两点来画一条直线，然后获得该直线对象。
用ThisDrawing.Utility.GetPoint可以获取用户点取的两点，再用AddLine画线并返回对象。  现在问题是，想实现像AutoCAD本身画线命令的那种效果，即点取一点之后，移动鼠标，可以动态地显示直线，直到点取第二点后确定所画的直线。 请问大神如何能实现？？

mikewolf2k

先getpoint，接下来getpoint时第一个参数把刚才获得的点输入进去。例：
    Startpnt = ActiveDocument.Utility.GetPoint(,“start")
    Endpnt = ActiveDocument.Utility.GetPoint(Startpnt, "end")

Zzllvb

mikewolf2k 发表于 2016-8-22 11:06
先getpoint，接下来getpoint时第一个参数把刚才获得的点输入进去。例：
    Startpnt = ActiveDocument.Ut ...

多谢多谢，原来getpoint方法本身就有这种功能啊，都是自己学艺不精，惭愧。明经币奉上