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

admin

1 _$ E- g9 l$ R  p$ |

1. Option Strict Off
   + B) g3 T; u2 o0 E
2. 
     D2 p; k% e9 e( \3 A0 ]8 k
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   2 H+ ~* I3 w) A& V
8. Imports NXOpen.Assemblies
   
9. 
   : N7 b+ @9 e% z5 B
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    
12.    Dim s As Session = Session.GetSession()
    ) r' s, J; j: X  U9 X, p$ K
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    ' G& A( Q+ y& o3 m) {
14.    Dim lw As ListingWindow = s.ListingWindow
    : Q7 O+ M; a' W- W
15. 
    7 u7 K- |. w2 J' e: A% N* l9 Y
16.    Sub Main()
    / d! e3 W. _" I2 \
17.       lw.Open()
    
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    9 m9 D* s' v9 Q. V6 s
20. 
    
21.       Dim root As Component = _
    " C" k0 G6 K9 M# D) y* _, G' X7 o9 R
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    - O+ i5 v2 |" K4 X
27. 
    ( s, r# ^6 [& A6 X
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    . W1 y0 `7 ?  }# L6 E- N
29.       Dim bodyArray(-1) As Body
    " x/ F& t1 q6 a7 n( f! F3 W
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    ' {3 n: ~7 v% k$ O/ M' P: A8 C8 _; `
33.       lw.WriteLine("Count of bodies in array: " & _
    8 n6 \4 T9 |1 U) g8 e
34.                    bodyArray.Length.ToString())
    
35. 
    # ^* F  G& B! D" O
36. 
    
37.    End Sub
    
38. 
    / T' q7 E9 W! D# i0 ?
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    9 s+ j0 y9 [% y4 U% k) H5 ?* }
40. 
    
41.       For Each comp As Component In ca
    ! N) s% b' c/ p& L, I6 ~
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
    3 K; c" S% U) T' ^/ L% ?; c
48. 
    
49.       Next
    
50.    End Sub
    
51. 
    + y! s  r. ]4 n/ }/ e5 s
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    + Z/ b, [0 d* p& V7 \+ o
53.       Dim child As Component = Nothing
    / |) m0 {; W  v: {+ A1 T  W
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    % z* s, n" l$ ?& l' ^
57.          stuffComponentArray(child, ca)
    $ m- E; n% B6 p. x
58.       Next
    0 C9 G) Z) d7 S- R$ C
59.    End Sub
    ; }3 |& b0 i6 I/ H" r1 Q) ~4 r
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    ' V1 ?. s  e: Y7 n$ [( b
64. 
    : P1 p; e" r8 f1 v2 @
65.    End Function
    + o1 n7 F$ p( O2 H
66. 
    
67. End Module
    

复制代码