装配体有二级几件，怎么获得二级子件中的子件

puyifan · 发表于 2013-8-9 18:05:18

经典图书

如图，怎么用getchildren 方法获得 1和2，求大师
2013-8-9 18:02:18 上传
下载次数: 0

wabeimeng · 发表于 2013-8-9 18:18:58

看看这个递归算法，对你有所帮助
Sub TraverseComponent ( swComp As SldWorks.Component2,  nLevel As Long )
Dim vChildCompArr             As Variant
Dim vChildComp                As Variant
Dim swChildComp                As SldWorks.Component2
Dim swCompConfig             As SldWorks.Configuration
Dim sPadStr                   As String
Dim i                         As Long
For i = 0 To nLevel - 1
      sPadStr = sPadStr + "  "
Next i
vChildCompArr = swComp.GetChildren
For Each vChildComp In vChildCompArr
      Set swChildComp = vChildComp
      Debug.Print sPadStr & swChildComp.Name2 & " <" & swChildComp.ReferencedConfiguration & ">"
      If swComponentHidden = swChildComp.Visible Then
         swChildComp.Visible = swComponentVisible
      End If
      TraverseComponent swChildComp, nLevel + 1
Next
End Sub

		自动登录	找回密码
密码			立即注册

装配体有二级几件，怎么获得二级子件中的子件

相关帖子