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

admin

1. Option Strict Off
   
2. 
   % W: U; k- v. C+ {  k
3. Imports System
   
4. Imports NXOpen
   5 O4 Q; y! a, r9 r5 F( Y! c  s% J
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   7 \; l3 U8 o' e- J( }# X
8. Imports NXOpen.Assemblies
   , W7 D7 g: W$ T- K3 q5 E2 E
9. 
     K) M2 c- f( C  X1 o: U
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    9 `" d  q" B7 J4 W1 ]
17.       lw.Open()
    
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    - y6 u6 L$ X) H4 E
23. 
    ! b) V; Z: N5 d) n" y
24.       Dim compArray(-1) As Component
    . L/ ?6 |3 m3 M9 i! l
25. 
    , J5 {7 i6 j) X: C0 F! S* ]
26.       stuffComponentArray(root, compArray)
    
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    & ~* ]1 f3 h) u: O
29.       Dim bodyArray(-1) As Body
    
30. 
    # a6 ^. }# @, s- d8 e% G) ^7 B
31.       stuffBodyArray(compArray, bodyArray)
    . V- S6 J4 o+ J- L4 C4 ]( ^
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    & |% _( m: v2 E- g6 u
34.                    bodyArray.Length.ToString())
    ! d6 ^) L' ~3 G( g5 ~) V# @/ L5 O+ i
35. 
    
36. 
    0 [9 l& t9 ^/ C. P- {- N
37.    End Sub
    
38. 
    ' U( F7 C3 p1 n* F! _4 D  E
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    . c) o+ G( k, G! b+ c, z. l( `
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
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    " e* Z; M7 K8 {0 i( ?
48. 
    
49.       Next
    
50.    End Sub
    
51. 
    7 h' _+ `# J. ^+ C' i, K! f
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    $ u- u, |  h8 _- ^( F5 {! b( a
53.       Dim child As Component = Nothing
    6 l6 O4 {7 O9 n5 r4 J6 L* M9 R
54.       For Each child In cmp.GetChildren()
    $ F+ x, w" x5 e" C0 W7 A. p
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    / E. {6 ^; Q+ k9 E
59.    End Sub
    
60. 
    7 a" D6 N, r/ n1 n
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    4 h4 ~4 `( g/ [2 G# n4 _2 T0 A/ G4 l4 T
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    * u8 o- s# O1 l$ J+ N1 Y
64. 
    
65.    End Function
    
66. 
    , E1 I6 |3 ~+ q7 e
67. End Module
    

复制代码

; R3 U7 T/ _+ ~
/ U) h2 }: t3 ]3 C+ q