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

admin

1. Option Strict Off
   6 T+ {- O% k6 v* v
2. 
   1 V( I: r0 t/ n% O5 n' c- B! _
3. Imports System
   
4. Imports NXOpen
   ) w9 I, J7 h. R" |6 _. L
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   2 i' l& Q' A' M% q3 B# ]3 e0 S$ x
8. Imports NXOpen.Assemblies
     m7 E0 v8 P$ z0 K/ O) L2 s$ T
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    - d* r& c* T/ i7 F
11. 
    
12.    Dim s As Session = Session.GetSession()
    9 H* I7 J2 K# L# N3 m+ w! Y
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    " L( K& H! T2 J0 e+ L8 y( s
15. 
    " A2 Z+ v- {, `  x  O
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    ! i# j; Y% c' @" x. [
20. 
    ; k3 w7 h. q% y: U: \  R; t  o
21.       Dim root As Component = _
    ! b! |* Y( s) Z+ D
22.                   dispPart.ComponentAssembly.RooTComponent
    % D! [! V6 _5 x4 K
23. 
    / ?) ~+ q# ~* A, @* |4 P  g
24.       Dim compArray(-1) As Component
    7 O1 P. M" V9 {) N: ]# z! B
25. 
    / z7 H: B) V( L
26.       stuffComponentArray(root, compArray)
    
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    
30. 
    : Y: F2 w! v  Q- l3 Z0 i3 z
31.       stuffBodyArray(compArray, bodyArray)
    ! I0 |3 X' n# P2 ~! W0 A
32. 
    " s& [, ?; J' w. `- s/ t" w1 S
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    % o+ H% P1 Q+ J4 q. s8 ^
35. 
    % W5 n. s8 ?2 c- H
36. 
    
37.    End Sub
      }: W1 `& n0 Q3 U6 m
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    0 F# B, A, t; {0 ]
40. 
    % L* N( c7 z( D
41.       For Each comp As Component In ca
    ) e" Y- i0 a: }' S
42.          Dim c_part As Part = comp.Prototype
    9 x6 G' W& E0 d7 N0 {2 w
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    
44.          For Each thisBody As Body In localBodies
    0 D. \) t3 y; j% }; z6 ], s. @
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    " k) b% x* w6 F0 G/ Z
48. 
    & o. Q) m+ l& U0 [: B! E
49.       Next
    
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    1 E* u4 h8 h. \& s1 _8 ~6 Z
53.       Dim child As Component = Nothing
    % y/ B/ f# D7 G) s* n6 z( `! ^5 m
54.       For Each child In cmp.GetChildren()
    8 U# R( D# p& C8 Y4 N6 m* x
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    5 C7 |, V6 U" _: K' }5 n1 h
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    1 I! P4 a1 f6 t3 H/ w" U# g
59.    End Sub
    
60. 
    7 W, D. A' O3 Z& S% v$ J
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    # o9 u$ K5 v1 T
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    
66. 
    
67. End Module
    

复制代码

0 t+ r, q! u% B

' @5 y, K9 Y$ m* U" W3 X6 ~