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

admin

1. Option Strict Off
   ) {. L' d6 r/ B* g
2. 
   ! n2 ]# ]& N/ m( F. F
3. Imports System
   . y% g! W, u0 d+ Z5 \
4. Imports NXOpen
   . C+ {- r/ k$ K  m/ i
5. Imports NXOpen.UF
   / C8 ~: j6 C$ Y7 b
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    9 ?( a2 P9 x7 ]
11. 
    
12.    Dim s As Session = Session.GetSession()
    7 B. m0 }4 E& s+ h' f
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    0 x7 M( [  ]9 p: j
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    6 R6 _! A- X1 r0 ]- S1 g3 A
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    : N. \; i% c) C0 L5 P. p5 o
23. 
    , I( N/ d  o) V6 V% K3 g; H  `9 Q
24.       Dim compArray(-1) As Component
    $ s7 @8 N6 n& j
25. 
    
26.       stuffComponentArray(root, compArray)
    
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    
30. 
    ; O; {, g; Z! D1 l( w) B4 h. R8 W
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    ( e! }  J" I" E" i8 M' g- F% ]
33.       lw.WriteLine("Count of bodies in array: " & _
    $ j" {4 l' H  c  V
34.                    bodyArray.Length.ToString())
    2 `& t) k* J2 M$ \
35. 
    ( l6 ?/ P- [; ]; d
36. 
    , C. p0 N6 g  c* p" w/ h
37.    End Sub
    , V4 G. H) z' F6 G  ]$ c8 H+ K7 j* ~
38. 
    ! a. N$ \, Y5 u" k3 }' b( n
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    8 ~, G, F$ B3 I. ~+ E1 w9 C: R
40. 
      L, k2 X8 V: b
41.       For Each comp As Component In ca
    
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
    % F( I; t/ n+ d' _
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    * m7 u8 G* O" P4 q& w$ u& c) U
47.          Next
    
48. 
    * [' y, o- ]1 G* u
49.       Next
    ; Q$ T5 y* _! h$ E; ?& `, `
50.    End Sub
    5 P7 W0 Y/ C  `# r0 N
51. 
    0 W. ]$ R0 P6 ~0 ~
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    
53.       Dim child As Component = Nothing
    6 T9 Z1 x( W) c& f3 b
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    : `0 u9 k6 {* B* f7 S) H9 R
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    
59.    End Sub
    
60. 
      E( E+ S! h% r. b
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    : C3 e" w; g5 t& D
62. 
    ; R; Z# W  i9 a, m
63.       Return Session.LibraryUnloadOption.Immediately
    & X& @/ C1 m6 \! k) h' m
64. 
    
65.    End Function
    
66. 
    ( O! x9 }. g9 O: N
67. End Module
    

复制代码

! T3 w8 v9 \: |4 Y
% h7 p- p) d  ]+ A- e% O6 K
/ Y0 O5 Z" H3 u4 l2 q; |  [