打开装配体，遇到轻化问题。

ning58

1. Function ComponentArr(SwModel As ModelDoc2)
   
2.   'Debug.Print SwModel.GetTitle
   
3.   Dim oDic As New Dictionary
   
4.   
   
5.   Dim swRootComp As Component2, SwComp As Component2
   
6.   Dim SwRootConf As Configuration, vChildComp, vModel As ModelDoc2
   
7.   Set SwRootConf = SwModel.GetActiveConfiguration
   
8.   Set swRootComp = SwRootConf.GetRootComponent
   
9.   vChildComp = swRootComp.GetChildren
   
10.   For ii = 0 To UBound(vChildComp)
    
11.      Set SwComp = vChildComp(ii)
    
12.      Set oDic(SwComp.GetPathName) = SwComp
    
13.   Next ii
    
14.   ''
    
15.   ComponentArr = oDic.Items
    
16. End Function
    
17. 
    
18. Private Sub ll()
    
19.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
    
20.         Set SwApp = Application.SldWorks
    
21.         Set SwModel = SwApp.ActiveDoc
    
22.     Dim Arr, SwComp As Component2
    
23.         Arr = ComponentArr(SwModel)
    
24.         For ii = 0 To UBound(Arr)
    
25.             Set SwComp = Arr(ii)
    
26.             With SwComp
    
27.                Debug.Print .GetPathName, .Name, .ReferencedConfiguration, .GetSuppression, .IsHidden(True)
    
28.             End With
    
29.         Next ii
    
30. End Sub
    
31. 
    

复制代码

运行结果，只能判断是否压缩，没法判断零件是否为轻化。

D:\JB4716\JB4716\立式支座.SldAsm          立式支座-3    耳式支座-1800-12-A8          1            True
D:\JB4716\JB4716\管箱.SLDASM              管箱-1        管箱Dn1800     2            False
D:\JB4716\JB4716\壳体管束φ38.SLDASM      壳体管束φ38-1              壳体管束 Dn1800-38L=2500     2            False
D:\JB4716\JB4716\双头螺柱.SLDPRT          双头螺柱-101  M20×170       1            True
D:\JB4716\JB4716\螺母.SldPrt              螺母-205      M20            1            True

楠柠檬、

seanxujun