[求助]如何用VBA实现在AUTOCAD中的 直线上任取一点，可以得到点的坐标，和该直线与

haoxuexi

[求助]如何用VBA实现在AutoCAD中的 直线上任取一点，可以得到点的坐标，和该直线与x坐标的夹角？[br]

请问，如何用VBA实现在AUTOCAD中的 直线上任取一点，可以得到点的坐标，和该直线与x坐标的夹角？谢谢啊

junhua1123

不知道是你的表达没清楚还是我没理解对

要知道该直线与X坐标的夹角，选取该直线，得到直线的两顶点坐标计算不就可以了？

jxh860228

getangle 不就行了

兰州人

  Dim ll As AcadLine
  Set ll = ThisDrawing.HandleToObject("59ee")
  With ll
    Debug.Print .Angle
    For jj = 0 To 2
      Debug.Print .StartPoint(jj), .EndPoint(jj), .Delta(jj)
    Next jj
  End With

style6301

Set ll = ThisDrawing.HandleToObject("59ee")中的59ee是什么的句柄，代表什么意思？为何在运行时会提示下面的错误信息。