看看这个递归算法,对你有所帮助 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 |
声明:本网言论纯属发表者个人意见,与本网立场无关。
如涉版权,可发邮件:
admin@swbbsc.com