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

admin

1. Option Strict Off
   
2. 
   
3. Imports System
   1 J* F- L5 R3 G8 ^- J/ ^$ @6 w
4. Imports NXOpen
   8 d( A, N6 ]6 ~' ]* P
5. Imports NXOpen.UF
   8 i+ J- u2 S/ c1 `
6. Imports NXOpen.UI
   2 h) W9 g7 B  P& E# G* ~5 s+ ~
7. Imports NXOpen.Utilities
   . T1 P& ?/ c( W' ?+ Y
8. Imports NXOpen.Assemblies
   6 X) W: v' U( a3 V% P+ c3 S% t  A: {8 T
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    2 F! n9 G% m# x2 b% Q2 [
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()
    * w" P. R1 C  H! }2 [3 G' M
17.       lw.Open()
    # Y$ K: C* e' h# G, E
18. 
    ! e5 ?. E1 ^, ]% a/ I9 J
19.       Dim dispPart As Part = s.Parts.Display()
    . b- _7 Y6 F, c, @
20. 
    , c; [( K" n& `# s  W- m
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    , E  v. \* Z) }2 ?5 e" M1 l9 L5 G. P
23. 
    
24.       Dim compArray(-1) As Component
    6 J, u& h6 K- y! W8 h2 L) W3 D
25. 
    
26.       stuffComponentArray(root, compArray)
    6 d9 v- `+ Q% K0 W
27. 
    ) R. V, r4 H0 A' b
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    $ J' [: w' m7 C3 b$ q# P. n+ ~2 G
29.       Dim bodyArray(-1) As Body
    
30. 
    + E3 F0 R/ w& U. w
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    + d# S6 I4 D/ l( |
36. 
    9 A+ M( p0 b; {
37.    End Sub
    7 W  d% n) A2 p
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    , T! ]2 ?' u" e1 \% P3 {
40. 
    
41.       For Each comp As Component In ca
    ( v  u9 L: s6 H5 u
42.          Dim c_part As Part = comp.Prototype
    ! V6 {; f8 A5 y5 n
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)
    # F1 ^& |- t: }6 b2 I
46.             ba(ba.GetUpperBound(0)) = thisBody
    " b! s' h7 S+ u! ]
47.          Next
    5 d8 `$ o* V: H* F# j
48. 
    ! }# P* D0 a. L1 i- s
49.       Next
    
50.    End Sub
    
51. 
    " T, T4 y0 K! ]' S8 l+ \8 P' h* o+ u
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    
53.       Dim child As Component = Nothing
    & k" k' U6 [; N; G! i3 e
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    3 O2 C0 |8 S: p- T$ r
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    ) X- u- Q1 J4 C
59.    End Sub
    9 E7 ?/ n' O1 A7 B/ i1 X- n, b
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    5 a( J, T9 B: R" L( M7 B
62. 
    4 R0 y% N& t  c, y
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    & {2 V. b- |- x
66. 
    
67. End Module
    4 t$ d; l- k( O. v, v  {

复制代码

3 J: t: [+ t" n# Z3 K