AutoCAD 2021 VBA宏偏移多段线时出现无效参数运行时错误5

我编写了用于在AutoCAD 2021中创建闭合图形的VBA宏，该宏从Excel Sheet1的A、B列读取坐标生成轻量多段线，但执行以下两段偏移代码时，出现“无效参数”运行时错误5：

Set offsetPolylineObj1 = myDwg.ModelSpace.AddLightWeightPolyline(polylineObj.Offset(offsetDistance1))
Set offsetPolylineObj2 = myDwg.ModelSpace.AddLightWeightPolyline(offsetPolylineObj1.Offset(offsetDistance2))

完整宏代码如下：

Sub CreateClosedShape()
    Dim Myapp As Object
    Dim myDwg As AcadDocument
    Dim autocadPath As String
    autocadPath = "C:\Program Files\Autodesk\AutoCAD 2021\acad.exe"
    
   
    'Attempt to get the running instance of AutoCAD
    On Error Resume Next
    Set Myapp = GetObject(, "Autocad.Application")
    On Error GoTo errorhandler:
    
 errorhandler:
    
    'If AutoCAD is not running, create a new instance
    If Myapp Is Nothing Then
        Set Myapp = CreateObject("Autocad.Application")
    End If
    
    ' Set the path to the AutoCAD executable
    'Myapp.Application.Path = autocadPath
    Myapp.Visible = True
    
    
Set myDwg = Myapp.ActiveDocument
   

     ' Assuming your Excel data is in Sheet1, starting from cell A1
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
        
        ' Assuming your data consists of X and Y coordinates in columns A and B
        Dim lastRow As Long
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        
        ' Check if there are enough points to create a closed shape
        If lastRow < 2 Then
            MsgBox "Insufficient data to create a closed shape.", vbExclamation
            Exit Sub
        End If
        
        ' Get the vertices as a list
        Dim verticesList() As Double
        ReDim verticesList(0 To lastRow * 2 - 1)
        
        Dim i As Long
        Dim j As Long
        j = -1
       
        For i = 1 To lastRow
            j = j + 1
       verticesList(j) = ws.Cells(i, 1).Value
       j = j + 1
       verticesList(j) = ws.Cells(i, 2).Value
        Next i
        
        
        ' Create a polyline to represent the closed shape
        Dim polylineObj As IAcadLWPolyline
        Set polylineObj = myDwg.ModelSpace.AddLightWeightPolyline(verticesList)
        
        Dim offsetDistance As Double
        offsetDistance1 = 0.15  ' You can change this value
        offsetDistance2 = 0.075  ' You can change this value
    
    ' Create an offset of the polyline
        Dim offsetPolylineObj1 As IAcadLWPolyline
        Dim offsetPolylineObj2 As IAcadLWPolyline
        
        Set offsetPolylineObj1 = myDwg.ModelSpace.AddLightWeightPolyline(polylineObj.Offset(offsetDistance1))
        Set offsetPolylineObj2 = myDwg.ModelSpace.AddLightWeightPolyline(offsetPolylineObj1.Offset(offsetDistance2))
        
        MsgBox "Closed shape created successfully!", vbInformation
    End Sub

• 多段线未闭合：创建的轻量多段线默认是开放状态，Offset方法对开放多段线偏移时，若偏移方向导致几何自交或无法生成有效图形，会返回空对象，直接传入AddLightWeightPolyline会触发无效参数错误。
• Offset返回值使用错误：IAcadLWPolyline.Offset方法返回的是多段线对象数组，而非顶点坐标数组，不能直接作为AddLightWeightPolyline的参数（该方法需要的是Double类型的坐标点数组）。
• 隐式变量问题：代码中offsetDistance1和offsetDistance2未提前声明，属于隐式变量，可能引发类型或值的异常。
• 错误捕获逻辑混乱：错误捕获分支会干扰后续代码的错误检测，导致潜在问题被忽略。

修改后的完整代码如下，关键修改点已标注注释：

Sub CreateClosedShape()
    Dim Myapp As Object
    Dim myDwg As AcadDocument
    Dim autocadPath As String
    autocadPath = "C:\Program Files\Autodesk\AutoCAD 2021\acad.exe"
    
    ' 获取AutoCAD实例，重置错误捕获避免干扰后续代码
    On Error Resume Next
    Set Myapp = GetObject(, "Autocad.Application")
    On Error GoTo 0
    
    ' 未运行则新建实例
    If Myapp Is Nothing Then
        Set Myapp = CreateObject("Autocad.Application")
    End If
    
    Myapp.Visible = True
    Set myDwg = Myapp.ActiveDocument
   
    ' 读取Excel坐标数据
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
        
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    If lastRow < 2 Then
        MsgBox "Insufficient data to create a closed shape.", vbExclamation
        Exit Sub
    End If
    
    ' 生成顶点数组
    Dim verticesList() As Double
    ReDim verticesList(0 To lastRow * 2 - 1)
    
    Dim i As Long, j As Long
    j = -1
    For i = 1 To lastRow
        j = j + 1
        verticesList(j) = ws.Cells(i, 1).Value
        j = j + 1
        verticesList(j) = ws.Cells(i, 2).Value
    Next i
    
    ' 创建轻量多段线并设置为闭合
    Dim polylineObj As IAcadLWPolyline
    Set polylineObj = myDwg.ModelSpace.AddLightWeightPolyline(verticesList)
    polylineObj.Closed = True ' 关键：将多段线设置为闭合状态
    
    ' 显式声明偏移距离变量
    Dim offsetDistance1 As Double, offsetDistance2 As Double
    offsetDistance1 = 0.15
    offsetDistance2 = 0.075
    
    ' 创建偏移多段线：正确处理Offset返回的对象数组
    Dim offsetPolylineObj1 As IAcadLWPolyline
    Dim offsetPolylineObj2 As IAcadLWPolyline
    Dim offsetObjs As Variant
    
    ' 第一次偏移
    offsetObjs = polylineObj.Offset(offsetDistance1)
    If IsArray(offsetObjs) And UBound(offsetObjs) >= 0 Then
        Set offsetPolylineObj1 = offsetObjs(0) ' 提取偏移生成的第一个多段线对象
    Else
        MsgBox "第一次偏移失败，无法生成有效多段线。", vbCritical
        Exit Sub
    End If
    
    ' 第二次偏移
    offsetObjs = offsetPolylineObj1.Offset(offsetDistance2)
    If IsArray(offsetObjs) And UBound(offsetObjs) >= 0 Then
        Set offsetPolylineObj2 = offsetObjs(0)
    Else
        MsgBox "第二次偏移失败，无法生成有效多段线。", vbCritical
        Exit Sub
    End If
    
    MsgBox "Closed shape created successfully!", vbInformation
End Sub

关键修改说明 #

1. 闭合多段线：添加polylineObj.Closed = True确保多段线为闭合状态，避免偏移时出现几何无效问题。
2. 正确使用Offset返回值：直接提取Offset返回数组中的多段线对象，无需再调用AddLightWeightPolyline。
3. 修复错误捕获：将错误捕获重置为On Error GoTo 0，避免后续代码的错误被忽略。
4. 显式声明变量：提前声明offsetDistance1和offsetDistance2，消除隐式变量风险。
5. 添加结果校验：判断偏移返回的数组是否有效，避免因偏移失败导致的运行时错误。

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