[求助]请教用VBA绘制直线时的预览效果

sody

我想通过VBA编一个通过用户鼠标选取点，然后连续绘制直线的小程序（功能和CAD的绘制直线一样）

现在虽然功能实现，但是我在用鼠标选取下一个点时不能象CAD自带的绘制直线一样有预览效果。

请教各位大虾是否有实现预览的办法

wyj7485

Dim Pt1,Pt2 As Variant
    
Pt1= ThisDrawing.Utility.GetPoint(, "指定第一点: ")

Pt2 = ThisDrawing.Utility.GetPoint(Pt1, "指定第二点: ")
'然后绘直线

sody

哈哈，可以了

下次得注意下命令的参数设置