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

admin

1. Option Strict Off
   
2. 
   2 N7 M; S8 ~9 x: r
3. Imports System
   
4. Imports NXOpen
   0 H( Z8 A: o) }& V2 R
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   + d: e: f9 E, @# x/ j
8. Imports NXOpen.Assemblies
   
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    * i/ _6 g( `8 o3 c& d2 s
14.    Dim lw As ListingWindow = s.ListingWindow
    1 I8 O  O, }4 A7 v% {$ S
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    0 l) G; @, Z& H' I( l/ U, F5 t
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    , r' |- L+ f* G& I
20. 
    * O+ X' \; u: Z
21.       Dim root As Component = _
    1 o, G+ h1 \$ K; n" t
22.                   dispPart.ComponentAssembly.RooTComponent
    / g$ T6 y( s; N; V3 C
23. 
    
24.       Dim compArray(-1) As Component
    - J' {. l! t  r6 F$ L$ w, y6 y9 k
25. 
    
26.       stuffComponentArray(root, compArray)
    $ n8 z( Z: t! f0 a* z
27. 
    " Y: e( y8 g, M5 v: I
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    0 {" L& \2 y) X/ q  g' X
30. 
    + D. y3 E) X: X2 [- g% h
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    - D5 N$ g3 Z. Z5 o" R0 P1 ^
33.       lw.WriteLine("Count of bodies in array: " & _
    1 D3 m6 P& _% d( ~. M" E
34.                    bodyArray.Length.ToString())
    
35. 
    , D! m/ B: B2 _$ h; [
36. 
    
37.    End Sub
    5 U8 j1 P( K+ W2 \) Z
38. 
    / n7 D- Y6 t5 o7 w
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    # ?- C* M! K5 `% f- A  p
41.       For Each comp As Component In ca
    ; S" w, e, {3 H( z/ h
42.          Dim c_part As Part = comp.Prototype
    
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    1 p8 D4 a1 G) j6 W8 i3 |
44.          For Each thisBody As Body In localBodies
    8 f: U. N6 _- h& w1 T! H" z, R. A
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    2 |: F$ y  F& M  K+ o- C/ |
47.          Next
    2 s/ l/ N& V9 f& i5 J
48. 
    
49.       Next
    0 k; L8 r! G+ a/ H( x, U$ T
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    , Q& E  ~* G# |9 E( B  [4 U3 K
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    ' {, u3 r: \; P9 X- A( K% Z; L4 p
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    4 B- \1 L9 |3 U' d
58.       Next
    
59.    End Sub
    1 S, Y( |$ Q4 y; V; p6 Z/ @9 Y
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    , u6 g* t) |$ G- d+ {6 i
63.       Return Session.LibraryUnloadOption.Immediately
    3 s7 t, ~* C( X5 r  Z; R
64. 
    : I& n" z$ g* N
65.    End Function
    ' n" S9 h$ m& E/ a! M7 f% r
66. 
    
67. End Module
    # }5 O& t( i0 i' L- C. }& m# E

复制代码

/ g% ]! N- o2 E+ c