获取Form Tool Feature放置面及实现Flip Tool功能的API技术问题

问题概述 #

需要通过SolidWorks API实现两个目标：

• 核心需求：获取成型工具（Form Tool）特征的放置面（Placement Face）
• 次要需求：在用户设置错误时实现**工具翻转（Flip Tool）**功能

当前遇到的问题：

• 调用IFace2::GetAffectedFaces方法无返回结果
• 尝试定义LibraryFormToolFeatureData/ILibraryFormToolFeatureData类型时，提示“用户定义类型未定义”，该类型在SolidWorks 2024 SP5.0版本中未提供
• 使用LibraryFeatureData或Object类型调用GetDefinition后，返回值为空

兼容SolidWorks 2024 SP5的解决方案 #

由于高版本的LibraryFormToolFeatureData接口在2024 SP5中不可用，需基于LibraryFeatureData接口实现兼容方案，关键步骤如下：

1. 验证特征类型并获取有效定义 #

成型工具属于库特征（Library Feature），需先确认选中特征的类型，再通过GetDefinition获取特征定义，同时必须调用AccessSelections方法解锁参考实体的访问权限。

2. 获取放置面 #

通过LibraryFeatureData的GetSelectedObjectsCount+GetSelectedObject6遍历参考实体，筛选出面类型的实体即为放置面；也可通过GetReferences方法直接获取参考集合后筛选。

3. 实现工具翻转功能 #

成型工具的翻转状态对应特征定义中的Flip参数，通过GetFlipState获取当前状态，SetFlipState修改状态，最后调用ModifyDefinition保存修改并重建模型。

完整代码示例 #

Option Explicit

Public swApp As SldWorks.SldWorks
Public swModel As SldWorks.ModelDoc2

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then
        MsgBox "请先打开模型文件。"
        Exit Sub
    End If
    
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim swFeat As SldWorks.Feature
    Dim swLibFeatData As SldWorks.LibraryFeatureData
    Dim swPlacementFace As SldWorks.Face2
    Dim refCount As Long
    Dim i As Long
    
    Set swSelMgr = swModel.SelectionManager
    Set swFeat = swSelMgr.GetSelectedObject6(1, 0)
    
    ' 验证选中特征是否为成型工具（库特征）
    If swFeat.GetTypeName2 <> "LibraryFeature" Then
        MsgBox "请选中一个成型工具特征。"
        Exit Sub
    End If
    
    ' 获取特征定义并解锁访问权限
    Set swLibFeatData = swFeat.GetDefinition
    If swLibFeatData.AccessSelections(swModel, "") = swError_e.swError_NoErrors Then
        ' 获取参考实体数量
        refCount = swLibFeatData.GetSelectedObjectsCount
        
        ' 遍历参考实体，筛选放置面
        For i = 0 To refCount - 1
            If TypeOf swLibFeatData.GetSelectedObject6(i + 1, 0) Is Face2 Then
                Set swPlacementFace = swLibFeatData.GetSelectedObject6(i + 1, 0)
                Exit For
            End If
        Next i
        
        ' 输出放置面信息
        If Not swPlacementFace Is Nothing Then
            MsgBox "找到放置面：" & swPlacementFace.Name
        Else
            MsgBox "未找到放置面参考。"
        End If
        
        ' 实现翻转工具功能
        Dim currentFlipState As Boolean
        currentFlipState = swLibFeatData.GetFlipState
        ' 翻转状态取反
        swLibFeatData.SetFlipState Not currentFlipState
        
        ' 保存修改并重建
        If swFeat.ModifyDefinition(swLibFeatData, swModel, "") = swError_e.swError_NoErrors Then
            swModel.EditRebuild3
            MsgBox "工具已" & IIf(Not currentFlipState, "翻转", "恢复原方向")
        Else
            MsgBox "修改翻转状态失败。"
        End If
        
        ' 释放选择锁定
        swLibFeatData.ReleaseSelectionAccess
    Else
        MsgBox "无法访问特征参考。"
    End If
    
End Sub

关键注意事项 #

• 必须确保选中的特征是成型工具（库特征类型为LibraryFeature）
• 调用GetDefinition后必须执行AccessSelections才能访问参考实体
• 修改特征定义后需调用ModifyDefinition并重建模型
• 操作完成后需调用ReleaseSelectionAccess释放资源

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