Question

求autocad vba高手写一个用鼠标选择图形中某条多段线，把所选择的多段线顶点坐标输出到EXCEL的代码！

前面有高手把代码挂出来了，但本人运算了下，发现有点问题，本人还想按照X、Y坐标分两列的形式输出到EXCEL表格中！谢谢！本人没有财富了，只求高手帮个忙！
这是你给的代码，Sub a()
Dim retCoord() As Double
Dim a As AcadLWPolyline
Dim i As Integer
Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object
i = 0
ThisDrawing.Utility.GetEntity a, "Select an object"
retCoord() = a.Coordinates
Set Excel = New Excel.Application
Set ExcelWorkbook = Excel.Workbooks.Open("excel文件目录")
Set ExcelSheet = Excel.ActiveSheet
Excel.Visible = True
On Error GoTo e
Do While CBool(retCoord(i)) <> False
ExcelSheet.Cells(i + 1, 1).Value = retCoord(i)
i = i + 1
Loop
e: Exit Sub
End Sub
不能用，不过我找到了一个甘肃交通院的程序，非常有用！

Answer 1

lisp可以吗？