SolidWorks宏：边选择与圆角创建功能异常问题求助

问题根源 #

1. 变量类型错误：Dim passo, i As Double 中passo实际是Variant类型，会导致坐标计算精度偏差，部分边因坐标不匹配无法选中。
2. 选择逻辑缺陷：SelectByID2的最后一个参数（选择公差）默认0，若坐标不是边的精确特征点（如中点），会导致选不中；循环内重复初始化passo无意义，且未确保每次选择都正确追加。
3. 圆角参数初始化错误：radiiArray0等变量直接赋值为未初始化的Double值（默认0），传递给FeatureFillet3会导致圆角参数异常，部分圆角无法生成。
4. 选择范围不匹配：当前循环仅处理8条边，与32个特征的需求不符。

修正步骤与代码 #

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swModView As SldWorks.ModelView

Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set swModView = Part.ActiveView
    
    ' 修正变量声明：所有数值变量设为Double类型
    Dim passo As Double, i As Double
    Dim delta_y As Double, x_0 As Double, z As Double
    Dim x_angle As Double, y_angle As Double
    
    ' 单位转换（毫米转米，确保与SolidWorks单位一致）
    x_0 = 159.26 / 1000
    z = -1 / 1000
    x_angle = -45
    y_angle = 0
    passo = 3.16 / 1000 ' 循环步长移到循环外
    
    ' 清除现有选择，避免残留影响
    boolstatus = Part.ClearSelection2(True)
    
    ' 循环处理32条边（对应32个特征）
    For i = 0 To 31
        delta_y = (-5.5 / 1000) + (i * passo)
        ' 使用SelectByID2追加选择，增加选择公差（适配坐标微小偏差）
        boolstatus = Part.Extension.SelectByID2("", "EDGE", x_0, delta_y, z, True, 1, Nothing, 0.0001)
    Next
    
    ' 初始化圆角参数：为每条选中的边设置统一半径0.001米（1毫米）
    Dim radiiArray0 As Variant
    radiiArray0 = Array(0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, _
                        0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, _
                        0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, _
                        0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001)
    
    ' 调用FeatureFillet3创建圆角，参数195对应恒定半径类型
    Dim myFeature As SldWorks.Feature
    Set myFeature = Part.FeatureManager.FeatureFillet3(195, 0.001, 0#, 0, 0, 0, 0, _
                                                        radiiArray0, Empty, Empty, Empty, Empty, Empty, Empty)
End Sub

额外优化建议 #

• 坐标验证：若仍有边选不中，用SolidWorks测量工具确认目标边的精确坐标（如中点坐标），替换代码中的x_0、delta_y、z值。
• 动态数组生成：若特征数量可变，通过变量动态生成圆角半径数组：

  Dim radiusCount As Integer
  radiusCount = 32 ' 可根据实际特征数调整
  ReDim radiiArray0(0 To radiusCount - 1) As Double
  For i = 0 To radiusCount - 1
      radiiArray0(i) = 0.001
  Next
  

• 避免误选：若SelectByID2仍存在误选，可先选中目标实体再选边，缩小选择范围：

  ' 先选中目标实体，再选边
  boolstatus = Part.Extension.SelectByID2("拉伸1", "BODY", 0, 0, 0, True, 1, Nothing, 0)
  boolstatus = Part.Extension.SelectByID2("", "EDGE", x_0, delta_y, z, True, 2, Nothing, 0.0001) ' 参数2表示在选中实体内部选择
  

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