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

admin

1. Option Strict Off
   9 [8 J7 u% m# D
2. 
   ' Q' L4 {& a, g
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   8 p. M# @8 B/ T! h5 F6 V* M& q
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   5 ^. S" `/ x6 Z3 q  [" e" `
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    9 P4 f( l3 A- v5 l4 D6 ^; z
11. 
    , A( w9 H7 {/ s  J6 {
12.    Dim s As Session = Session.GetSession()
    & O, M2 F: X$ Q$ t9 o8 f: j
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    1 g3 C# U% u6 W( ?0 B/ e- S
14.    Dim lw As ListingWindow = s.ListingWindow
    ) \# m7 w" [0 D0 [5 g. J
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    8 p; ?2 f+ H' G* n8 S  R( s8 T9 Y
18. 
    : g7 \0 H0 W# j8 O  ~% O
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    6 x0 n4 ~  r/ b/ V/ n5 W4 b
21.       Dim root As Component = _
    ( V+ ?2 V  V2 a- i
22.                   dispPart.ComponentAssembly.RooTComponent
    6 @0 T9 y) F' s1 B' H
23. 
    - n; g, e; r; {; g* I# `% _* m
24.       Dim compArray(-1) As Component
    , |/ ^: Y. T! q3 L3 T0 N, t$ H) M: ~
25. 
    ) {$ G- s+ i5 U% B, |
26.       stuffComponentArray(root, compArray)
    
27. 
    0 U* m6 a( D% Y4 w0 j" k
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    # x* g9 U3 F0 S! e: ^
32. 
    - M2 J# W/ u1 W. g
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    ' O7 Y9 U0 N# J0 k
35. 
    ; A; S4 k8 M9 g$ T
36. 
    9 @9 n  q3 n6 d+ ]& [
37.    End Sub
    % T' @+ z& b2 V" q1 R: z" f
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    3 V/ k/ j9 p8 e9 e% ~( \3 Z
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    / z. R% n1 H, j3 C7 l
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    # j% W( z3 A2 m4 T( r+ L; \
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    2 M: w, I( x$ [- Y. P9 o8 P
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    : p( `& Y" B: v. M
48. 
    5 W$ H) v1 g% f4 B$ x3 K
49.       Next
    
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 f% S! Q! V' |' a, X7 o
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    / ]; U- h3 ?9 h) J
56.          ca(ca.GetUpperBound(0)) = child
    ; t5 @0 D8 H* P* }
57.          stuffComponentArray(child, ca)
    
58.       Next
    ; e/ B4 ]6 q# Y/ Z" O) T7 M2 U
59.    End Sub
    % w* h6 x+ t: J' n5 Y
60. 
    ) V+ B, o8 C) D# s1 U! G' `7 @
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    ' U! h% I$ t. N
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    6 {  X  a8 n8 ?& L) u9 h( ?! S# v% P
64. 
    
65.    End Function
    " w& ~2 i4 e$ f) G/ D3 o
66. 
    $ d) ^) R, e6 X
67. End Module
    1 j) _. F' }1 M* N

复制代码

% o! v4 l9 p* T. n