最近群里有朋友遇到问题，需要遍历判断配合是否有效，但是Feature遍历的时候却找不到配合特征，以下是解决方案：
通过Feature.GetTypeName找到MateGroup，然后通过Feature子对象获取MateGroup中的所有配合即可。
vba代码示例：
Option Explicit Public Enum swSelectType_e swSelNOTHING = 0 swSelEDGES = 1 ' "EDGE" swSelFACES = 2 ' "FACE" swSelVERTICES = 3 ' "VERTEX" swSelDATUMPLANES = 4 ' "PLANE" swSelDATUMAXES = 5 ' "AXIS" swSelREFEDGES = 51 ' "REFERENCE-EDGE" swSelREFFACES = 52 End Enum Public Enum swMateType_e swMateCOINCIDENT = 0 swMateCONCENTRIC = 1 swMatePERPENDICULAR = 2 swMatePARALLEL = 3 swMateTANGENT = 4 swMateDISTANCE = 5 swMateANGLE = 6 swMateUNKNOWN = 7 swMateSYMMETRIC = 8 swMateCAMFOLLOWER = 9 swMateGEAR = 10 End Enum Public Enum swMateAlign_e swMateAlignALIGNED = 0 swMateAlignANTI_ALIGNED = 1 swMateAlignCLOSEST = 2 End Enum Public Enum swMateEntityTypes_e swMateUnsupported = 0 swMatePoint = 1 swMateLine = 2 swMatePlane = 3 swMateCylinder = 4 swMateCone = 5 swMateSphere = 6 swMateCircle = 7 End Enum Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swFeat As SldWorks.feature Dim swMateFeat As SldWorks.feature Dim swSubFeat As SldWorks.feature Dim swMate As SldWorks.Mate2 Dim swComp As SldWorks.Component2 Dim swMateEnt(2) As SldWorks.MateEntity2 Dim i As Integer ' 简单错误处理 On Error Resume Next Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swFeat = swModel.FirstFeature Debug.Print "File = " & swModel.GetPathName ' 先遍历Feature树 Do While Not swFeat Is Nothing If "MateGroup" = swFeat.GetTypeName Then Set swMateFeat = swFeat Exit Do End If Set swFeat = swFeat.GetNextFeature Loop Debug.Print " " & swMateFeat.Name ' 获取第一个子Feature Set swSubFeat = swMateFeat.GetFirstSubFeature Do While Not swSubFeat Is Nothing Set swMate = swSubFeat.GetSpecificFeature2 If Not swMate Is Nothing Then Debug.Print " " & swSubFeat.Name Debug.Print "" For i = 0 To 1 Set swMateEnt(i) = swMate.MateEntity(i) Debug.Print " " & swSubFeat.Name Debug.Print " Type = " & swMate.Type Debug.Print " AlignFlag = " & swMate.alignment Debug.Print " CanBeFlipped = " & swMate.CanBeFlipped Debug.Print "" Set swComp = swMateEnt(i).ReferenceComponent Debug.Print " Component = " & swComp.Name2 Debug.Print " MateEntType = " & swMateEnt(i).ReferenceType Debug.Print " (x,y,z) = (" & swMateEnt(i).EntityParams(0) & ", " & swMateEnt(i).EntityParams(1) & ", " & swMateEnt(i).EntityParams(2) & ")" Debug.Print " (i,j,k) = (" & swMateEnt(i).EntityParams(3) & ", " & swMateEnt(i).EntityParams(4) & ", " & swMateEnt(i).EntityParams(5) & ")" Debug.Print " Radius 1 = " & swMateEnt(i).EntityParams(6) Debug.Print " Radius 2 = " & swMateEnt(i).EntityParams(7) Debug.Print "" Next i Debug.Print " ------------------------------------------------" End If ' 循环遍历下一个子特征 Set swSubFeat = swSubFeat.GetNextSubFeature Loop End Sub
