NX 二次开发源码：从整个装配上获取所有的实体

admin

1 n0 i; Q! m( S9 U& O4 A

1. Option Strict Off
   9 l0 U& I9 e# h( l: h
2. 
   
3. Imports System
   0 G+ L2 n6 Q/ ]
4. Imports NXOpen
   
5. Imports NXOpen.UF
   1 q6 [& G: a. e8 h* |
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   
9. 
   * e7 |* v( n5 l( Z2 o
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    ) h. c  n6 j0 ^5 O: c! i1 i/ b
12.    Dim s As Session = Session.GetSession()
    8 a( D) }; \& G6 ~! u  Z' A
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    9 ]+ |2 r' }0 t# ?& w
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    3 R2 l2 n. B; p6 X
20. 
    
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    4 A+ P) X5 ]1 a1 Q" `/ H
23. 
    5 S2 R7 Q# ~0 m9 Y6 c) U' m
24.       Dim compArray(-1) As Component
    1 ?4 |% g7 e, f( F: c2 t
25. 
    : N9 [8 T: t" L( V* P; @3 U. w
26.       stuffComponentArray(root, compArray)
    / E5 N1 N: ]. p, Q5 ~9 M% u
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    
30. 
    ; W: E& q. V6 k# d, x
31.       stuffBodyArray(compArray, bodyArray)
    8 t8 c& `6 W: F, P/ s
32. 
    0 @' D2 W+ |" s# E: \
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    % L4 A" |' m2 N$ i: t7 ?
36. 
    5 U4 p/ s+ A& f4 j" T
37.    End Sub
    8 S& n. n7 U3 B* ], }
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    + ?  ]+ y) s  N- s3 V% M
41.       For Each comp As Component In ca
    + |1 h- e& N# l; C* Q/ ?
42.          Dim c_part As Part = comp.Prototype
    
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    
44.          For Each thisBody As Body In localBodies
    8 a# H3 o) ~4 O/ A4 R
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    & s, v% \" x' P( ?4 Y1 M7 f
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    9 X0 @  x: P0 l* k
48. 
    3 @& C  f1 L9 N
49.       Next
    
50.    End Sub
    3 A: o# V2 o0 Z0 h: l1 h
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    
53.       Dim child As Component = Nothing
    , [# {! Q8 q$ Z) r8 u% C) t
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    * k! W, s& H/ S# O4 T1 P) O
57.          stuffComponentArray(child, ca)
    ) D" q' Z9 [3 w* K+ S$ t0 `
58.       Next
    
59.    End Sub
    
60. 
    8 J  C  ]% ^1 m9 T9 R3 W
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    & }2 f" m; x% G
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    * G4 ^$ M1 r% q9 D; i
64. 
    
65.    End Function
    # c6 u/ {" A/ i. z! w+ u, E
66. 
    ) E9 a$ E- Y  C& |1 H4 B
67. End Module
    

复制代码

' ]; x, [1 V6 h  ~- ?% f$ ^* L