输出顶点坐标的格式是什么样的? 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.C找卫配著河集今团oordinates Set Excel = New Excel.Application Set ExcelWorkbook = Excel.***.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