求助- VBA画直线为什么没有CAD直接画直线的引导线

muou8

VBA中用 addline 在屏幕中指认两个点  比如
Set a = ThisDrawing.ModelSpace.AddLine(ThisDrawing.Utility.GetPoint(, "frist"), ThisDrawing.Utility.GetPoint(, "second"))
可以在CAD中点取两个点生成直线

但是CAD直接生成的直线的过程中：


本人小白，期望大神解答

muou8

老师老师在哪里

woaishuijia

1.     Dim P1, L As AcadLine
   
2.     With ThisDrawing
   
3.         P1 = .Utility.GetPoint(, "first")
   
4.         Set L = .ModelSpace.AddLine(P1, .Utility.GetPoint(P1, "second"))
   
5.     End With

    Dim P1, L As AcadLine<br />     With ThisDrawing<br />         P1 = .Utility.GetPoint(, "first")<br />         Set L = .ModelSpace.AddLine(P1, .Utility.GetPoint(P1, "second"))<br />     End With

fatty0724

楼上正解 带上第一点