关于遍历特征树问题！

Yuluoshui

   经典图书

Solidworks二次开发，遍历特征树，为何装配体中子装下面的零件无法遍历到？拿第一个子装看，只能遍历到Tolva Mezcladora，其下层零件Tolva Mezclado 和 Paletas都无法遍历到。我知道这段代码不是完全遍历结构树，但是应该可以遍历到第一个子装配下的零件才对。
               iModelDoc2->IFirstFeature(&swFeature);

                long sonID, fatherID;
                while (swFeature) {
                        fatherID = 0;
                        swFeature->get_Name(&strFeatureName);
                        swFeature->GetTypeName2(&strFeatureType);
                        swFeature->IGetFirstSubFeature(&swSubFeature);
                        swFeature->GetID(&fatherID);

                        while (swSubFeature) {
                                sonID = 0;
                                swSubFeature->get_Name(&strFeatureName);
                                swSubFeature->GetTypeName2(&strFeatureType);
                                swSubFeature->GetID(&sonID);

                                CComPtr<IFeature>  swNextSubFeature;
                                swSubFeature->IGetNextSubFeature(&swNextSubFeature);
                                swSubFeature = swNextSubFeature;
                        }
                        CComPtr<IFeature>  swNextFeature;
                        swFeature->IGetNextFeature(&swNextFeature);
                        swFeature = swNextFeature;
                }

suzhanpeng

不能帮到你，对C不熟悉！

Yuluoshui

   经典图书

suzhanpeng 发表于 2019-2-28 08:07
不能帮到你，对C不熟悉！

多谢关注！后面可能会转战VBA、C#，以后可以多交流

zhanghonghui

顶一下，坐等高手！

若竹123

   经典案例图书

不能帮到你，对C不熟悉！

fouwen

vba的代码供你参考

Sub OutputCompXform _

( _

    swComp As SldWorks.Component2, _

    nLevel As Long _

)

    Dim vChild                      As Variant

    Dim swChildComp                 As SldWorks.Component2

    Dim sPadStr                     As String

    Dim swCompXform                 As SldWorks.MathTransform

    Dim vXform                      As Variant

    Dim i                           As Long

   

   

    For i = 0 To nLevel

        sPadStr = sPadStr & "  "

    Next i

   

    ' Null for root component

    Set swCompXform = swComp.Transform2

    If Not swCompXform Is Nothing Then

        vXform = swCompXform.ArrayData

            

        ' Root component has no name

        Debug.Print sPadStr & "Component = " & swComp.Name2 & " (" & swComp.ReferencedConfiguration & ")"

        Debug.Print sPadStr & "  Suppr   = " & swComp.IsSuppressed

        Debug.Print sPadStr & "  Hidden  = " & swComp.IsHidden(False)

   

        Debug.Print sPadStr & "  Rot1  = (" + _

            Str(vXform(0)) + ", " + _

            Str(vXform(1)) + ", " + _

            Str(vXform(2)) + ")" _

   

        Debug.Print sPadStr & "  Rot2  = (" + _

            Str(vXform(3)) + ", " + _

            Str(vXform(4)) + ", " + _

            Str(vXform(5)) + ")" _

   

        Debug.Print sPadStr & "  Rot3  = (" + _

            Str(vXform(6)) + ", " + _

            Str(vXform(7)) + ", " + _

            Str(vXform(8)) + ")" _

        

        Debug.Print sPadStr & "  Trans = (" + _

            Str(vXform(9)) + ", " + _

            Str(vXform(10)) + ", " + _

            Str(vXform(11)) + ")" _

        

        Debug.Print sPadStr & "  Scale = " + Str(vXform(12))

   

        Debug.Print ""

    End If

   

    ' Recurse into subassembly

    vChild = swComp.GetChildren

    For i = 0 To UBound(vChild)

        Set swChildComp = vChild(i)

        

        OutputCompXform swChildComp, nLevel + 1

    Next i

End Sub

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swConf                      As SldWorks.configuration

    Dim swRootComp                  As SldWorks.Component2

    Dim bRet                        As Boolean

   

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swConf = swModel.GetActiveConfiguration

    Set swRootComp = swConf.GetRootComponent

   

    Debug.Print "File = " & swModel.GetPathName

   

    OutputCompXform swRootComp, 0

End Sub

'---------------------------------------