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

admin

1. Option Strict Off
   6 r. `" }! y2 }$ E
2. 
   ! q' S+ R  k% Z6 d1 U7 n$ G, d- T
3. Imports System
   3 r; n; V  a$ {) Q3 ?3 S! o1 c  o8 S
4. Imports NXOpen
   % `& v0 T" `2 N
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   # A5 e7 b: h6 N0 T
7. Imports NXOpen.Utilities
   4 M5 D# c- `" B( w1 s1 y# H, f
8. Imports NXOpen.Assemblies
   / {8 q7 I+ F, J! y. b" V
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    ' s1 }2 Y) F+ q1 y) S! q" ?
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    7 s! u# g$ X: Z; W0 M) e
16.    Sub Main()
    
17.       lw.Open()
    9 k8 M* x0 c- J# {7 y  R
18. 
    + V: E9 Q6 c8 D1 R4 L8 P! y% i
19.       Dim dispPart As Part = s.Parts.Display()
    2 F4 b9 H& q. a$ \7 U, C1 ~* Q- s
20. 
    ( [# V: O% `  |/ y; @) P
21.       Dim root As Component = _
      \6 h) |3 F. u9 S% I0 m5 d3 E
22.                   dispPart.ComponentAssembly.RooTComponent
    3 w' L' D8 @' B2 |
23. 
    
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    6 j1 E* _, b0 w
33.       lw.WriteLine("Count of bodies in array: " & _
    ) K; }8 q% W9 {- d* J# B/ ^
34.                    bodyArray.Length.ToString())
    4 k$ _; \0 C6 [* Q0 P
35. 
    
36. 
    
37.    End Sub
    
38. 
    0 M! W2 j+ v( w2 v0 q: b7 N3 O
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    ) X$ {% x. |) S& q- u& A' ^) v
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    " l' y* k, I+ e2 a* {" G
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    : E+ k- [8 v9 Q" Z& z* ~
44.          For Each thisBody As Body In localBodies
    6 P6 t, K! _% s( }/ w  A( g" r
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    * N' `3 ^+ x8 ]2 U
46.             ba(ba.GetUpperBound(0)) = thisBody
    / a/ M+ X3 X, i3 D7 x9 u3 K1 K
47.          Next
    
48. 
    
49.       Next
    , y5 u$ a% T8 n9 m  Z8 t
50.    End Sub
    0 q  q( n/ _. `- }( S/ c! ?/ B
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    . c& N2 L) G7 H4 v, d
53.       Dim child As Component = Nothing
    ; Q: y: c: m" f& k; w
54.       For Each child In cmp.GetChildren()
    8 P$ R9 Q' ^5 \- H  f
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    8 G4 x; I) [: l5 B8 s2 n% q
56.          ca(ca.GetUpperBound(0)) = child
    8 P! F6 s' x: @1 B! q9 I
57.          stuffComponentArray(child, ca)
    3 f$ F( [* W! P; r  {3 z9 o7 D
58.       Next
    7 F  |% g, c- @: R
59.    End Sub
    ) Y" Y! _$ a& p
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    ( {; w+ M3 f% x" p
64. 
    . I( A% u/ x/ ^7 ^( P$ `/ w( O
65.    End Function
    
66. 
    ; w2 i: T# b3 f/ y4 U
67. End Module
    $ v) @" B# `$ M6 `2 b: Z1 z

复制代码

+ m7 O* T  F. `2 z- U3 S4 O6 u