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

admin

# P8 o* o& ~1 J; M1 R' i0 A

1. Option Strict Off
   
2. 
   ; t# w7 C+ z/ T+ U2 l
3. Imports System
   6 v/ R& w4 H5 U# X
4. Imports NXOpen
   1 [# T* W6 t, N( |
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   # z( o. y) m: ~5 @* Q" u
8. Imports NXOpen.Assemblies
   
9. 
   4 t. G  h/ V; l0 b) H0 e2 t- L
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    ; g5 d& M' [' _, U' u6 D) V2 v
12.    Dim s As Session = Session.GetSession()
    * G2 G7 ?. H3 U: w2 o
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    - \0 \2 s. {1 p( X- S
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    " K5 |3 Y  z' X% V9 ]: D
19.       Dim dispPart As Part = s.Parts.Display()
    , t: o' a- e- f  r1 ~
20. 
    
21.       Dim root As Component = _
    5 W: t' W' b& c! J: d% o( V6 E, _, D
22.                   dispPart.ComponentAssembly.RooTComponent
    3 P! ]. E2 H2 b% Z: s% O7 V
23. 
    
24.       Dim compArray(-1) As Component
    . B) ]; p# `% y9 ]& Y1 D% i1 B
25. 
    
26.       stuffComponentArray(root, compArray)
    
27. 
    / M$ Q: \, R# n6 g0 z. }
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    / g# M" @- G0 W* D% B" o1 [, c
30. 
    / }3 T" N" M2 S; q. H9 L5 y
31.       stuffBodyArray(compArray, bodyArray)
    . P+ Z, b; A. Y9 h7 L. p
32. 
    ( F) I7 N4 V! g: g+ ^( @- E
33.       lw.WriteLine("Count of bodies in array: " & _
    / h) @& m( e) p( m  R" G  |9 b
34.                    bodyArray.Length.ToString())
    
35. 
    ! H. o( d. i; X' g
36. 
    ( l- D1 o" i; B7 {$ D1 Y" w. E' T
37.    End Sub
    ) D) f" I# g/ o! x( G* I/ W1 B* U
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    5 C+ x) S/ j2 Q; @) H! U
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    + P, p" R/ U: J6 V! S; {% h/ ^" x
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    4 y- W2 ?' l" b
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    $ [' k7 `& w- x1 P$ b# _! k
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
    + _% F, X# O; @& b& S9 b$ _' e
49.       Next
    
50.    End Sub
    
51. 
    " K( c  M+ m* ]$ D% y6 B
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    & E* p# A" H( W5 ?9 \+ z
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    ! Q6 G6 o7 @( y' f( S  h# B
56.          ca(ca.GetUpperBound(0)) = child
    8 ]- ]  B# n, B2 Q
57.          stuffComponentArray(child, ca)
    
58.       Next
    
59.    End Sub
    3 Z- e" V: Q/ V; S
60. 
    0 A7 C# Z  P! [  S/ a4 e' \
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    9 d9 _8 p) p( e0 [9 I
63.       Return Session.LibraryUnloadOption.Immediately
    9 q3 I. W2 L  L/ X) R3 Q, z
64. 
    ; ~' H" V5 \8 c9 r, P4 ?$ P
65.    End Function
    " d9 {% E/ Y' O; D& i) a
66. 
    " d4 d, N3 @7 }1 {  L! L9 k% y% {
67. End Module
    

复制代码