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

admin

1. Option Strict Off
   3 a' g- M0 W' k. N$ I; k/ R& F0 ^
2. 
   
3. Imports System
   3 E0 b; T1 Q5 o7 |9 @6 q% T
4. Imports NXOpen
   0 F1 ]# L9 N2 t% G
5. Imports NXOpen.UF
   " b$ B* P+ U+ p3 ]5 T" j, ]1 |
6. Imports NXOpen.UI
   * Z9 V" `; T. X- p# o
7. Imports NXOpen.Utilities
   0 a, e! u2 q, p  R  G1 @
8. Imports NXOpen.Assemblies
   ! I( W( D: y) t* `4 S
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    $ v+ X$ @/ h( l6 q) W
11. 
    
12.    Dim s As Session = Session.GetSession()
    : k8 b7 P6 g5 W8 A& f
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    & L$ P* P! D3 T3 l* o2 w& v
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    5 X, f- o% W; v0 ^. A
17.       lw.Open()
    
18. 
    2 t: E# X) u( n$ |3 r( q
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    + B' V0 ?3 p7 X1 q+ C9 b+ d
21.       Dim root As Component = _
    6 K" ~0 ~  f" h. {2 C, J
22.                   dispPart.ComponentAssembly.RooTComponent
    , T. S  Y. C, ?1 y
23. 
    
24.       Dim compArray(-1) As Component
    
25. 
    " ?$ e; s3 _$ k: C5 b* f
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. 
    , j5 l8 c0 [9 E% ^8 K
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    : p  \/ M0 P2 S
35. 
    
36. 
    
37.    End Sub
    
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    1 H  A2 ~* `) Z$ h! x( Q8 I
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    : `) B' s: h& K( {- G1 Y3 m
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    9 H6 U/ x' W) B& L+ c
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    & E3 P; w  E' A6 ?3 H) T) Z
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    " \% m) v( I/ ^3 C
48. 
    
49.       Next
    1 D( V1 R, Q) m, e! G
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    , [7 ]6 _. g, b9 ^  O2 ^
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    ; I9 Y8 l$ g+ _1 r
59.    End Sub
    
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    - |# s( L6 F) n4 J
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    , @" Q* G$ ]  ?0 m8 X! l, I% F# P
65.    End Function
    . a% c6 a* y9 Q  K& _+ N; M, `
66. 
    
67. End Module
    8 g7 f) d' R6 K2 N, N

复制代码

5 Y) ~0 J, W1 i; f, [: t