如何使用VBA循环基于Excel表格数据批量绘制AutoCAD多段线

优化核心是用循环动态读取坐标、自动适配数据行数，无需硬编码每个顶点的位置，可适配任意数量的坐标数据，大幅提升大量数据下的编写和运行效率。

Option Explicit

Sub DrawDynamicPolyline()
    Dim startRow As Long, endRow As Long, rowCount As Long
    Dim i As Long, arrIndex As Long
    Dim vertexlist() As Double
    Dim poli As Object
    Dim acadApp As Object
    
    ' 配置坐标起始行，和你原有代码的B11起始位置匹配
    startRow = 11
    ' 自动识别B列最后一行有效坐标数据
    endRow = Cells(Rows.Count, "B").End(xlUp).Row
    rowCount = endRow - startRow + 1
    
    ' 每个顶点对应3个数组元素（X/Y/Z），动态定义数组大小
    ReDim vertexlist(0 To rowCount * 3 - 1) As Double
    
    ' 循环遍历所有坐标行，写入顶点数组
    arrIndex = 0
    For i = startRow To endRow
        vertexlist(arrIndex) = Range("B" & i).Value ' X坐标
        vertexlist(arrIndex + 1) = Range("C" & i).Value ' Y坐标
        vertexlist(arrIndex + 2) = Range("D" & i).Value ' Z坐标
        arrIndex = arrIndex + 3
    Next i
    
    ' 自动获取已启动的AutoCAD进程，避免重复打开程序
    On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If Err.Number <> 0 Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application")
        acadApp.Visible = True
    End If
    On Error GoTo 0
    
    ' 绘制多段线
    Set poli = acadApp.ActiveDocument.ModelSpace.AddPolyline(vertexlist)
    poli.Closed = True ' 不需要闭合多段线可删除此行
    
    ' 释放对象资源
    Set poli = Nothing
    Set acadApp = Nothing
End Sub

使用说明 #

• 若你的坐标起始行不是第11行，修改startRow = 11的参数即可
• 代码会自动读取从起始行开始的所有有效坐标，无需手动调整数组长度
• 新增的进程检测逻辑可提升运行稳定性，避免AutoCAD多开导致的报错

内容的提问来源于stack exchange，提问作者DaniV