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

admin

8 X. l# w/ w0 D; d8 @# c; Z

1. Option Strict Off
   
2. 
   
3. Imports System
   
4. Imports NXOpen
   , n8 T' C7 O( a8 Q
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   ) k6 p4 k" u7 ^
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    " ]) \3 p6 L4 @6 ]
11. 
    9 v# r/ r" |0 l# _: E
12.    Dim s As Session = Session.GetSession()
    $ k" j7 n3 B9 p0 s. i: U
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    4 k5 ]* [9 P8 x% ?
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    . E* u/ M; r/ ?$ ?3 \3 I8 ~
19.       Dim dispPart As Part = s.Parts.Display()
    % z( I: @+ v: O9 N
20. 
    . Y5 C6 v3 B- g: W- _
21.       Dim root As Component = _
    + l9 u. G& n2 N7 `
22.                   dispPart.ComponentAssembly.RooTComponent
    & n( ^5 F6 P0 h, L: N+ E9 I+ E3 x
23. 
    
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    - g# u6 Z2 }! |+ ~, w/ \8 e
27. 
    : ^. o# d& q  x3 H! [
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    $ |3 Q" K2 {# V" z
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    ) {% z; D8 j) h
34.                    bodyArray.Length.ToString())
    ! R# T/ _! h! {+ z
35. 
    
36. 
      |: n; K) L9 ^+ N
37.    End Sub
    
38. 
    3 J8 h: C$ a2 v5 q) g5 x% a4 U
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    6 |& g- A7 p& ^1 p6 y
41.       For Each comp As Component In ca
      B% z# m+ j% _1 g& {" P
42.          Dim c_part As Part = comp.Prototype
    2 m8 t# u4 k) m- a8 p8 @& c
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    
44.          For Each thisBody As Body In localBodies
    " d$ s6 @& x1 }
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    - o/ G3 y/ J' E- a
47.          Next
    
48. 
    : S1 _1 A8 L2 E) j% s% B! C' I3 R
49.       Next
    ; S4 f* c( t$ u9 f3 I# e: O: n
50.    End Sub
    
51. 
    / ?6 ?. p+ H& a  E: y
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    * v; R+ o4 s: M8 j, G
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    , a4 b4 L9 X: K0 x( ~; E7 T# r
58.       Next
    
59.    End Sub
    
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    1 P; |* V. J/ ]; S3 u, v3 j
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    5 v& e. A: ~8 j7 {) T1 M+ c
66. 
    
67. End Module
    

复制代码