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

admin

  V+ O( T: B& p, D5 Y# P  w

1. Option Strict Off
   
2. 
   
3. Imports System
   / l" |- U, f$ u" C" h3 g
4. Imports NXOpen
   ( L! Y+ p, J3 k' N) F
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   9 I0 f, D  Y+ t: v* C
8. Imports NXOpen.Assemblies
   8 D* m- q( d5 [; _; p' \
9. 
   5 S5 U8 F4 k5 a# T# U7 F4 k
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    ( e9 `) V6 P& v0 k4 C* {
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    % D: c( M# ~/ i" e" f2 O4 l+ b
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    ) ]- \7 k. B2 y& o
19.       Dim dispPart As Part = s.Parts.Display()
    3 R  K# j% v$ [5 U
20. 
    
21.       Dim root As Component = _
    ; V/ o3 s, v6 g7 E3 G& `- p
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    7 P3 h; Z& S. ^% \7 t
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    $ G. J% q0 ?+ f# @% M
27. 
    2 G. q  n2 R. `; H2 |
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    ! ^2 T: k* t/ n
29.       Dim bodyArray(-1) As Body
    0 Y, [% s& J! \: w* h
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    4 y+ O& ]& ~% m, C
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    6 `/ W0 g6 w1 I* S
35. 
    
36. 
    
37.    End Sub
    
38. 
    6 a4 B0 K2 k8 g# f* x
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    * ?% u6 C- {6 E: O  O; z
40. 
    
41.       For Each comp As Component In ca
    % ~# z. \# ~3 B; J" H2 E' V: V
42.          Dim c_part As Part = comp.Prototype
    9 J1 V& \, G% C7 U& Q4 c8 ^. H
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)
    % X  d' j6 c  |. G( K7 h3 x
46.             ba(ba.GetUpperBound(0)) = thisBody
    . V5 s, N1 v5 p8 X( n2 D) F
47.          Next
    / z  [% c9 B% ~
48. 
    " M, ]( y4 ]% q3 _: a
49.       Next
    " @1 ]7 O6 x0 A% \0 |9 }
50.    End Sub
    
51. 
    % K5 T* p% {- H9 _& r8 K; S8 P4 d
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    : {. e0 H% Y5 V. W) r2 B- t
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    * H1 B0 \7 h* ]1 M$ E
57.          stuffComponentArray(child, ca)
    ! B3 b8 Q0 A% C! V+ L- _
58.       Next
    
59.    End Sub
    8 o/ I' r) [, ?! \
60. 
    ' f3 O% ]3 L+ I& b2 [% o1 p
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    " ?( N  B( j/ }" o3 {0 W
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    ; u8 T/ a$ L: U/ L- R# p$ r
64. 
    
65.    End Function
    3 L% F* d7 s7 n
66. 
    
67. End Module
    

复制代码

- P$ }! q7 O' `; q
- m9 |. ^/ v5 ^* r7 U