Zzllvb 发表于 2016-8-8 08:57:42

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

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

mikewolf2k 发表于 2016-8-8 08:57:43

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

Zzllvb 发表于 2016-8-22 14:33:40

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

多谢多谢，原来getpoint方法本身就有这种功能啊，都是自己学艺不精，惭愧。明经币奉上
页: [1]
查看完整版本: VBA如何实现AutoCAD本身画线命令的那种动态显示效果？