[求助]怎么调出CAD中直线的坐标值

wxpsky113

在CAD模型空间里随便画一条直线
然后用VBA编程输出该直线的起始点和结束点坐标值
Sub OpenDrawing()

Dim LineObj As AcadLine
Dim a As Variant
Dim b As Variant
Set LineObj = ThisDrawing.ModelSpace.Item(0)
a = LineObj.StartPoint
b = LineObj.EndPoint
MsgBox "a=" & a & "    b=" b

End Sub

我做出以上程序,但是运行不出来,望高手指教,谢谢!

wxpsky113

本人急用此程序,全天候在线等回答,请高手帮忙,感激不尽!

wmz

Sub OpenDrawing()

Dim LineObj As AcadLine
Dim a As Variant
Dim b As Variant
Dim x(2) As Double, Y(2) As Double
Dim xx(2) As Double, yy(2) As Double
x(0) = 10: x(1) = 10: x(2) = 0
Y(0) = 50: Y(1) = 50: Y(2) = 0
Set LineObj = ThisDrawing.ModelSpace.AddLine(x, Y)
a = LineObj.StartPoint
b = LineObj.EndPoint
xx(0) = a(0): xx(1) = a(1)
yy(0) = b(0): yy(1) = b(1)

  MsgBox "xx=" & xx(0) & "    xx=" & xx(1)
  MsgBox "yy=" & yy(0) & "    yy=" & yy(1)

End Sub

wmz

Sub OpenDrawing()

Dim LineObj As AcadLine
Dim a As Variant
Dim b As Variant
Dim x(2) As Double, Y(2) As Double
Set LineObj = ThisDrawing.ModelSpace.Item(0)
a = LineObj.StartPoint
b = LineObj.EndPoint
x(0) = a(0): x(1) = a(1)
Y(0) = b(0): Y(1) = b(1)

  MsgBox "x=" & x(0) & "    x=" & x(1)
  MsgBox "y=" & Y(0) & "    y=" & Y(1)

End Sub