我尝试通过SolidWorks自动化创建旋转特征，用Excel存储尺寸。排查后发现问题出在创建与预设平面（Top/Front/Right）成指定角度的参考平面上。拆分Excel读取代码后手动输入测试值，确认能选中Top Plane和手动创建的Axis1，但InsertRefPlane函数执行失败，报错在代码中Insert the reference plane at an angle对应的代码块，运行后已选中平面和轴。

相关VBA代码如下：

Option Explicit

Public swApp As Object
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim boolstatus As Boolean

Sub CreateAngledReferencePlane()
    On Error GoTo ErrorHandler ' Enable error handling

    ' Initialize SolidWorks application
    Dim swApp As Object
    Set swApp = CreateObject("SldWorks.Application")
    If swApp Is Nothing Then
        MsgBox "Failed to initialize SolidWorks application."
        Exit Sub
    End If

    Dim swModel As Object
    Dim swTopPlane As Object
    Dim swAxis As Object
    Dim swRefPlaneFeature As Object
    Dim boolstatus As Boolean
    Dim angleInRadians As Double

    ' Check if a SolidWorks document is open
    Set swModel = swApp.ActiveDoc
    If swModel Is Nothing Then
        MsgBox "No active document found. Please open a part file."
        Exit Sub
    End If

    ' Set the angle in radians
    angleInRadians = 30 * 0.01745329 ' Convert degrees to radians

    ' Find the "Top Plane"
    Set swTopPlane = swModel.FeatureByName("Top Plane")
    If swTopPlane Is Nothing Then
        MsgBox "Failed to find the Top Plane. Ensure the plane exists and is named 'Top Plane'."
        Exit Sub
    End If

    ' Find an axis or edge to use as the rotation axis
    Set swAxis = swModel.FeatureByName("Axis1")
    If swAxis Is Nothing Then
        MsgBox "Failed to find the rotation axis. Ensure an axis named 'Axis1' exists."
        Exit Sub
    End If

    ' Clear any previous selections
    swModel.ClearSelection2 (True)

    ' Select the "Top Plane" and the axis
    boolstatus = swTopPlane.Select(False)
    If Not boolstatus Then
        MsgBox "Failed to select the Top Plane."
        Exit Sub
    End If

    boolstatus = swAxis.Select(True)
    If Not boolstatus Then
        MsgBox "Failed to select the rotation axis."
        Exit Sub
    End If

    ' Insert the reference plane at an angle
    Set swRefPlaneFeature = swModel.FeatureManager.InsertRefPlane(2, angleInRadians, 0, 0, 0, 0)
    If swRefPlaneFeature Is Nothing Then
        MsgBox "Failed to create reference plane. Ensure the inputs are valid."
        Exit Sub
    End If

    MsgBox "Reference plane created successfully."

ErrorHandler:
    If Err.Number <> 0 Then
        MsgBox "An error occurred: " & Err.Description
    End If
End Sub

针对InsertRefPlane调用失败的问题，从以下几个方面修正：

• 修正参考平面类型参数：创建绕轴旋转的角度平面时，InsertRefPlane的第一个参数应使用swRefPlaneType_Rotate（对应数值7），而非代码中的2（swRefPlaneType_Offset，用于偏移平面），这是核心错误。
• 优化角度转换逻辑：用WorksheetFunction.Radians(30)转换角度更可靠，避免硬编码转换系数的精度问题。
• 确认选择对象有效性：确保swAxis是SolidWorks中正式创建的轴特征（而非草图线或边缘），且选择顺序为「先基准平面，后旋转轴」。

修正后的关键代码段：

' 替换原角度转换代码
angleInRadians = WorksheetFunction.Radians(30)

' 修正InsertRefPlane调用
Set swRefPlaneFeature = swModel.FeatureManager.InsertRefPlane(7, angleInRadians, 0, 0, 0, 0)

额外排查点：

• 检查SolidWorks API版本兼容性，确保InsertRefPlane参数定义与当前SW版本一致。
• 调用前确认swModel.FeatureManager对象有效，避免空引用。

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