CATIA宏需求：移除孔特征后自动生成Edge Fillet

完全可以编写适配不同零件的CATIA宏，实现自动移除孔特征并生成倒圆角。以下是通用化的VBA宏代码及实现逻辑：

核心实现思路 #

1. 定位当前激活的零件设计文档，确保处于零件设计工作台
2. 遍历零件所有特征，自动识别并删除所有孔（Hole）特征
3. 捕获孔特征删除后留下的边缘（或通过孔特征关联的面提取边缘）
4. 基于提取的边缘批量创建倒圆角特征

完整VBA宏代码 #

Sub RemoveHolesAndCreateFillet()
    Dim partDoc As PartDocument
    Dim part As Part
    Dim features As Features
    Dim feature As Feature
    Dim i As Integer
    Dim filletRadius As Double
    Dim edges As Selection
    Dim edge As Reference
    
    ' 设置倒圆角半径（可根据需求调整）
    filletRadius = 5.0
    
    ' 获取当前零件文档
    On Error Resume Next
    Set partDoc = CATIA.ActiveDocument
    If Err.Number <> 0 Then
        MsgBox "请先打开一个零件设计文档并激活", vbExclamation
        Exit Sub
    End If
    On Error GoTo 0
    
    Set part = partDoc.Part
    Set features = part.Features
    Set edges = partDoc.Selection
    
    ' 清空选择集
    edges.Clear
    
    ' 遍历并删除所有孔特征，同时记录孔的边缘
    For i = features.Count To 1 Step -1
        Set feature = features.Item(i)
        ' 判断是否为孔特征（适配所有孔类型：简单孔、沉头孔等）
        If feature.TypeName = "Hole" Then
            ' 获取孔的所有边缘
            Dim holeEdges As Object
            Set holeEdges = feature.Edges
            For Each edge In holeEdges
                edges.Add edge
            Next edge
            
            ' 删除孔特征
            feature.Delete
        End If
    Next i
    
    ' 判断是否有可倒圆角的边缘
    If edges.Count = 0 Then
        MsgBox "未找到孔特征或孔边缘", vbInformation
        Exit Sub
    End If
    
    ' 创建倒圆角特征
    Dim fillet As EdgeFillet
    Set fillet = features.AddNewEdgeFillet(filletRadius)
    fillet.AddElement edges
    fillet.Update
    
    ' 清空选择集
    edges.Clear
    
    ' 更新零件
    part.Update
    MsgBox "操作完成：已删除所有孔特征并生成倒圆角", vbInformation
End Sub

代码关键说明 #

• 通用化特征识别：通过feature.TypeName = "Hole"判断孔特征，无需硬编码特征名称，适配所有孔类型及不同零件
• 边缘提取逻辑：直接从孔特征的Edges集合获取关联边缘，确保孔删除后能精准定位需要倒圆角的边
• 可配置参数：filletRadius变量可直接修改，适配不同倒圆角尺寸需求
• 错误处理：包含文档检查、边缘数量判断等逻辑，避免宏运行异常

注意事项 #

1. 运行宏前需确保CATIA处于零件设计工作台
2. 若零件中存在与孔关联的约束或其他依赖特征，需提前处理（宏中未包含依赖特征的自动清理，需根据实际场景调整）
3. 对于复杂孔特征（如带螺纹的孔），需确认Edges集合能正确提取所有需要倒圆角的边缘

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