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

admin

1. Option Strict Off
   
2. 
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   % s  w3 v7 o2 w! W) S, ]7 n. y# K
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   5 V% v1 x2 {  V  [  m5 u, z
9. 
   2 P- \& P5 n: L. I8 \& N! Z8 ^) \
10. Module create_array_of_all_bodies_in_assembly
    6 a$ [! S6 b3 c$ A
11. 
    2 _7 F& Y& ?; I8 K4 q  V
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    # O+ E8 |6 R" D
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    - S: ?0 O( m+ |1 [8 b9 ?( h( f* v
16.    Sub Main()
    
17.       lw.Open()
    $ S3 q% c: g& |) [3 v' D
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    . u& f$ ?: ]  Q$ l$ z2 g
20. 
    
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
      b8 P9 K/ @. Y
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
    % x8 D! J! z3 D4 r2 O- Q0 I
30. 
    + l3 `  U2 b7 u
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    . k0 i" e* ]9 P" N7 k' @  Q
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    
36. 
    
37.    End Sub
    
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    + D; W# X* ^: F4 g. ?: |
41.       For Each comp As Component In ca
    % o2 T- x1 `. p0 {0 X; y
42.          Dim c_part As Part = comp.Prototype
    - x! o% |' o) S2 a* ?! l
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    6 ?9 N) W. o3 v# b; J8 _* G
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
      e# ?  @3 f6 d& M2 c( G6 H& |
49.       Next
    $ Y( t( c: j' |2 v. x9 |- s
50.    End Sub
    
51. 
    4 p- c: i: l9 J# \
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()
    ) h: @; K6 N# x0 T6 E5 i- O
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    ' s3 `7 {( p& T; K7 b: D" K
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    8 [& ~4 O) p& B! c7 a: J. i' ?
59.    End Sub
    & n/ E- }5 x5 I
60. 
    3 q; E+ ~" n" ]6 e+ m
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    6 i4 I% ^( t. L/ z" g5 D
64. 
    
65.    End Function
    ) ^  u& {1 R2 O( c& n, I# b) t
66. 
    
67. End Module
    

复制代码

8 Q! }3 R7 T8 A$ T

& @+ S# O: n$ b! ?