需要一个选中未完全定义零件并孤立的宏 - SolidWorks机械工程师网——最大的SolidWorks学习平台

Sub SelectPartiallyMatedComponents()
Dim swModel As SldWorks.ModelDoc2
Dim swAssembly As SldWorks.AssemblyDoc
Dim swCompFeat As SldWorks.ComponentFeature
Dim swComp As SldWorks.Component2
Dim swMate As SldWorks.Mate2
Dim swSelectionMgr As SldWorks.SelectionMgr
Dim swSel As SldWorks.SelectionSet
Dim i As Integer, j As Integer
Dim isPartiallyMated As Boolean
' 获取当前活动的装配体文档
Set swModel = Application.SldWorks
Set swAssembly = swModel.ActiveDoc
' 确保是装配体文档
If Not swAssembly Is Nothing Then
' 获取选择管理器
Set swSelectionMgr = swModel.SelectionManager
' 创建一个新的选择集
Set swSel = swSelectionMgr.CreateSelectionSet
' 遍历装配体中的所有组件
For i = 1 To swAssembly.ComponentFeatureCount
Set swCompFeat = swAssembly.ComponentFeature(i)
Set swComp = swCompFeat.GetComponent2
' 初始化标记变量
isPartiallyMated = False
' 检查组件的每个配合
For j = 1 To swComp.MateCount
Set swMate = swComp.Mate(j)
' 检查配合状态，这里假设未解决的配合表示部分配合
If swMate.GetMateStatus() <> swMateStatus_e.swMate_FullyDefined Then
isPartiallyMated = True
Exit For ' 如果找到一个未解决的配合，就跳出循环
End If
Next j
' 如果组件至少有一个配合是未解决的，则添加到选择集
If isPartiallyMated Then
swSel.AddComponent2 swComp, swFalse
End If
Next i
' 如果找到了部分配合的组件，选择它们
If swSel.GetSelectionCount > 0 Then
swSel.Select swFalse, swFalse
swModel.ShowNamedView2 "*Isolate Components", swViewType_e.swIsometricView, 0, 0, 0, swFalse, swFalse, swFalse, swFalse, swFalse, swFalse, swWarningsStatus, swBoolStatus
Else
MsgBox "No partially mated components found."
End If
' 清理对象
Set swComp = Nothing
Set swCompFeat = Nothing
Set swMate = Nothing
Set swSel = Nothing
Set swSelectionMgr = Nothing
Set swAssembly = Nothing
Set swModel = Nothing
Else
MsgBox "Please open an assembly document first."
End If
End Sub

复制代码

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swPart As SldWorks.PartDoc
Dim swCompFeat As SldWorks.ComponentFeature
Dim swComp As SldWorks.Component
Dim swBoolStatus As Integer, swWarnings As Integer
Dim swFeatures As SldWorks.FeatureManager
Dim swFeature As SldWorks.Feature
Dim i As Long
' 获取SolidWorks应用程序实例
Set swApp = Application.SldWorks
' 获取当前活动文档
Set swModel = swApp.ActiveDoc
' 检查是否是装配体文档
If Not swModel Is Nothing Then
If swModel.GetType() = swDocPART Then
MsgBox "当前文档不是装配体，请打开一个装配体文档再试。"
Exit Sub
End If
End If
' 获取选择管理器
Set swSelMgr = swModel.SelectionManager
' 清除所有选择
swSelMgr.ClearSelection2 True
' 遍历装配体中的所有零部件
Set swFeatures = swModel.FeatureManager
For i = 1 To swFeatures.FeatureCount
Set swFeature = swFeatures.Feature(i)
If swFeature.GetType() = swFeatureComponent Then
Set swCompFeat = swFeature
Set swComp = swCompFeat.GetComponent()
' 检查零部件的配合状态
swBoolStatus = swCompFeat.GetSuppression2(swComponentState_e.swComponentState_Suppressed, swWarnings)
If swBoolStatus = 0 Then
' 零部件没有被完全配合，选取它
swSelMgr.SelectByID2 swCompFeat.GetID(), "COMPONENTFEATURE", 0, 0, 0, False, 0, Nothing, 0
End If
End If
Next i
' 孤立选取的零部件
swModel.ForceRebuild3 (swForceRebuildOptions_e.swRebuildOptions_Silent + swForceRebuildOptions_e.swRebuildOptions_KeepReferences)
swModel.ViewZoomFit2
swModel.ShowNamedView2 "*Isolated View", swViewOptions_e.swViewOptions_Silent

复制代码