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

admin

1. Option Strict Off
   4 ^# l) S5 K. a, ?$ Z
2. 
   4 _5 D& z# C2 f/ N4 A7 J( O
3. Imports System
   " B) Q4 O! X. p* m2 K
4. Imports NXOpen
   5 l5 n% |) O/ n$ D# A: e+ T
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    / ]. H! }  L: a
12.    Dim s As Session = Session.GetSession()
    2 H4 m6 K/ t* {( y6 c2 |; M/ b
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    ' q; p! [! z% r# l" K
15. 
    - K& n5 j' D1 Z1 _) d: C
16.    Sub Main()
    . m; S. d" f% x8 z; [2 C) t
17.       lw.Open()
    
18. 
    % v* c& u' ^$ m8 a  N5 V
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    
21.       Dim root As Component = _
    $ D1 K$ G: V' G* ]
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    9 ~1 w: S" C7 t  p; ?
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    7 W4 m7 z) a" u2 n
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    7 F' h5 Y6 \- U0 `$ p4 T& b4 \
29.       Dim bodyArray(-1) As Body
    
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    2 V) i, O3 }* r# o: N  I; L3 _
34.                    bodyArray.Length.ToString())
    
35. 
    6 h+ f" m' w) @% z0 D  t$ ~2 f
36. 
    
37.    End Sub
    
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    ! t/ ~$ u1 k+ r, Q
40. 
    
41.       For Each comp As Component In ca
    ! P9 w. M+ G/ C- p
42.          Dim c_part As Part = comp.Prototype
    1 J$ Z, b4 {" @
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)
    $ z  e: s4 D# t+ z. A2 S8 G: S
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    ( ]% h* o; D7 u% @2 e
48. 
    : q, f: m$ s2 J4 K! l( o& m2 n  K( F
49.       Next
    
50.    End Sub
    
51. 
    4 ]6 u/ K1 @  L9 G, h* M# Z! w8 p
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    5 x7 P" }& O; s  [
53.       Dim child As Component = Nothing
    ; @1 Z1 w. j; n. G
54.       For Each child In cmp.GetChildren()
    ) D" X" a; [/ d! T  s6 j
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    4 ?6 l1 s+ ^  a  `4 {4 \' ?0 c8 n
57.          stuffComponentArray(child, ca)
    
58.       Next
    
59.    End Sub
    
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    3 u- y0 W% _0 f: S  K
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
      @6 w3 d* i+ ~2 {. I
64. 
    
65.    End Function
    
66. 
    , h" M+ g( w9 `6 d* _- i
67. End Module
    + ?2 i: [3 H& i, P. ^$ r

复制代码

/ I2 A/ ?6 g+ h7 P: o7 R0 L) F0 C

; U) z' Q8 k! K6 f! m0 X; s