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

admin

1. Option Strict Off
   3 @0 C/ p, b6 o/ o: g3 ]8 \, z
2. 
   5 g1 ?' s8 O, }8 q+ r
3. Imports System
   # P& e1 x& U8 ?+ {( H
4. Imports NXOpen
   / g  t0 {# e! l* z
5. Imports NXOpen.UF
   4 ]  l7 ~) a* n3 t' t; G( t  v0 t
6. Imports NXOpen.UI
   * S- w6 [9 b, {% J
7. Imports NXOpen.Utilities
   % n2 S' k1 y0 H+ `- N5 F7 I& Y
8. Imports NXOpen.Assemblies
   7 ?' n1 P; |: g
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    4 g3 U' \7 L. c  H
11. 
    
12.    Dim s As Session = Session.GetSession()
    3 u$ }; p; E9 V' M  I. `0 I
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    . j) n! f  Y/ q7 {" W4 o. j- B
17.       lw.Open()
    
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    
21.       Dim root As Component = _
    - |- b* Z8 q& y, s
22.                   dispPart.ComponentAssembly.RooTComponent
    6 ~2 O, F* o0 j# j/ N
23. 
    ! M7 i* e' P2 Y
24.       Dim compArray(-1) As Component
    
25. 
    % e* h# s! ]5 l% T1 y, M
26.       stuffComponentArray(root, compArray)
    # l! u. X$ g# I( G  G: s
27. 
    9 h+ K0 H7 S# M6 Z+ o, l, b' N" z
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    8 t8 B0 u( e1 ?  m6 K, v1 Y
29.       Dim bodyArray(-1) As Body
    
30. 
    1 z5 ^8 A& q$ z  @
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    7 D* v/ {' S" P8 W4 n( s" k
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    ! W. H; r1 |/ E3 E3 X' H( m
35. 
    " s/ O+ |; q# `
36. 
    
37.    End Sub
    " D# |  i' }( L4 L! l# ?: B% t5 d
38. 
    9 @5 l; u8 L5 h+ P& y9 [* q
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    1 m! ]- o* S6 ?
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    2 Y; y0 m- c- }; E' o$ j. u
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
    1 j$ m7 ^. R& ?
49.       Next
    
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    ; q; I9 F4 {! o+ D. ~% E9 O
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    8 ~. U, t# }( K4 E' d( n
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    4 W4 D5 q; R6 U- d2 H
57.          stuffComponentArray(child, ca)
    ' x5 M- |- a" x+ Q3 r# a3 O
58.       Next
    
59.    End Sub
    : v$ q, `4 {% h# b4 }
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    + I3 x7 x. F; V
66. 
    9 m$ G: m8 t( D4 z4 R
67. End Module
    7 V' D( L+ Z( X. Y/ e

复制代码

# y+ B; X' B: n( d) {! o3 J# P3 G
' X0 |% N- {, n" Z4 ~
4 S- f! _  o( e. ]