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

admin

' ]+ G3 y' ?4 E

1. Option Strict Off
   
2. 
   ( N+ ~- M1 J) P6 w7 i
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   9 T7 K& }3 _5 _" K# N7 @" [! b6 p
7. Imports NXOpen.Utilities
   9 ~6 i1 G3 L$ o, g! q7 X
8. Imports NXOpen.Assemblies
   # V8 B9 F- h5 i" H) I2 ^
9. 
   ' _4 E9 c2 \. J
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    * D8 D# U4 z3 s/ C" P
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    6 W( R4 N6 {' f8 `% @* c
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    , I! q/ t) B, k% Q2 H( \/ d' w) R/ T
17.       lw.Open()
    & g; `: x; F, J" w# r- W
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    
21.       Dim root As Component = _
    ( x( s5 X5 h  ~1 {
22.                   dispPart.ComponentAssembly.RooTComponent
    9 ~- |! c3 o$ Z4 W! v$ O4 ]
23. 
    ) n: @: M6 H" l% `
24.       Dim compArray(-1) As Component
    
25. 
    0 X! \! ~# b6 Z: z
26.       stuffComponentArray(root, compArray)
    " k( z4 [- p6 J" ~3 C
27. 
    - @" _1 ?' }, s4 [$ m
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    ! O. U5 Q) j/ n! t( `' H
29.       Dim bodyArray(-1) As Body
    ' \) E+ z) m. s7 G+ w1 B; I
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    ' Q( h  C. w! m! A3 l
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    7 m- B$ k! ~2 s& [( t; X
36. 
    6 Q& c/ z2 V$ i
37.    End Sub
    
38. 
    - K" q1 z  D' y
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    - ]: X6 q3 {+ D$ v; K9 U! z! G6 k% \
40. 
    
41.       For Each comp As Component In ca
    - |: G) Q) G: v: K) L: M
42.          Dim c_part As Part = comp.Prototype
    : T1 S$ y5 H( ~% j/ {# P6 H8 I6 T
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    1 H2 ^8 ^: w! C6 ]% g8 G
44.          For Each thisBody As Body In localBodies
    - {  J7 n, S: S5 e4 F+ O; O
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    / _6 b/ s; A6 d* r& X
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
    1 u7 e0 c3 J: h; r
49.       Next
    
50.    End Sub
    7 x5 h! P9 G% Z/ ]( H' K* t0 q& y
51. 
    5 s4 c( k$ f# Q7 Q% e; x6 d
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    
53.       Dim child As Component = Nothing
    * o" Y: V2 U6 h; D7 M- ?) ^
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    / T  c+ @; N( G! i6 M
56.          ca(ca.GetUpperBound(0)) = child
    / j& b9 E1 A7 x
57.          stuffComponentArray(child, ca)
    , D. d; u. _; z6 C
58.       Next
    
59.    End Sub
    
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    ' L8 l. N1 S* X: L" ^
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    , ]. u  w: M/ }1 H
66. 
    
67. End Module
    ( F/ {/ v3 C) t) O- t1 a/ \. \

复制代码

" Q7 }2 O; U& u* m/ F

0 G. c; {$ G9 d* u' ?' h3 g