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

admin

1. Option Strict Off
   " ~7 E9 U9 G; B, A% c* Y. L# R
2. 
   
3. Imports System
   
4. Imports NXOpen
   - n% B6 f. X& L8 G/ p; `$ C
5. Imports NXOpen.UF
   9 s8 N' |! U  _- c- B0 E% {# G
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   ! u2 K9 a+ l% j) z5 @3 a3 C
8. Imports NXOpen.Assemblies
   1 T# L2 I8 K: N) A  Y8 O
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    ' a2 p5 \: F7 h+ ?0 b! u. g
11. 
    % |5 c* l, T. M1 z9 Y
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    : i' H+ e/ X1 j4 ^1 i$ {9 h' w
14.    Dim lw As ListingWindow = s.ListingWindow
    ! I1 s' {! z+ r% N2 U3 t
15. 
    2 r2 l7 u8 z8 D! n3 g
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    7 x5 V% R) I; k7 Z& Y" r. {& h
19.       Dim dispPart As Part = s.Parts.Display()
    4 Q  {0 O" V$ d5 O* r" l
20. 
    0 [" ], `( v; o1 P3 B. _
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    3 [/ A  E  L# ^
23. 
    # g9 ^$ d; T, J+ a
24.       Dim compArray(-1) As Component
    + y: D; a0 C6 d; Y, a; v  x, \
25. 
    
26.       stuffComponentArray(root, compArray)
    
27. 
    9 _: n' y# S  }4 L" U2 T/ a
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    % p7 Y4 A$ o6 f+ u2 B0 J1 v
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    2 @7 ?' ^$ F: A9 |, w0 E
32. 
    % h$ B" ^% v% D) R- H  i
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    
36. 
    
37.    End Sub
    
38. 
    5 ]! a  u& l: P+ ~* e4 o! `' N9 k$ X
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    4 h9 x2 w6 g2 \9 n0 m8 e8 x1 b
40. 
    $ [* l, J5 u, R
41.       For Each comp As Component In ca
    6 t( M* T/ {: W# H
42.          Dim c_part As Part = comp.Prototype
    % A: K+ j% B- J+ S7 c$ a7 v, `
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    7 p1 I; [9 g" h! |( U
44.          For Each thisBody As Body In localBodies
    . G! G1 J* }4 u, l
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    ; C: m, `$ j$ a' l
46.             ba(ba.GetUpperBound(0)) = thisBody
    * d# p4 D$ S: u! S1 C1 A- K( ?
47.          Next
    & g& `+ E2 ~' \/ u0 a+ @
48. 
    
49.       Next
    1 }6 R4 s& a9 `" C" A  n
50.    End Sub
    # m" w( W$ X4 m- n
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    ; |  f% i' s& h6 z5 t
53.       Dim child As Component = Nothing
    ! r) N: T) F( e" u( n0 ^1 X* Z9 _
54.       For Each child In cmp.GetChildren()
    ; l! ?1 Z3 i( r; T' Q/ @
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    1 l3 h" J" d* S7 y3 m
56.          ca(ca.GetUpperBound(0)) = child
    0 W% N/ E: }' X: t# B8 F/ q3 I4 A
57.          stuffComponentArray(child, ca)
    
58.       Next
    
59.    End Sub
    ( U+ a+ j5 m: Y% f: i7 O
60. 
    8 O9 W% X  J  x: ?& g( B# M0 \) ]
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    / B: l: f! F3 t
63.       Return Session.LibraryUnloadOption.Immediately
    $ f8 T& g% l- I9 Z7 w
64. 
    ( M' t8 e1 R/ w/ N/ a  w
65.    End Function
    
66. 
    ( U, {7 Z5 H  K% n( ~7 _/ D
67. End Module
    

复制代码

$ G& k  U( `+ M; N