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

admin

6 n- ^1 F4 @/ a" c' T

1. Option Strict Off
   : ^& q1 ]/ o3 S( |$ \7 F* c
2. 
   # K2 m8 o+ U1 P5 b9 d
3. Imports System
   
4. Imports NXOpen
   " F- P- ~. @" J: G4 Z
5. Imports NXOpen.UF
   ' ^/ A. G# \/ ?' |+ c. G, C
6. Imports NXOpen.UI
   1 F2 E' B9 P0 b# [
7. Imports NXOpen.Utilities
   * S  L, V, @7 {: a' A
8. Imports NXOpen.Assemblies
   
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    % A3 i8 w; s% N0 a3 n; R% b' y
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    * S9 a6 q+ G* o! h2 V
15. 
    
16.    Sub Main()
    : V, {* ~; [$ ?+ a1 E$ `, L, s/ t
17.       lw.Open()
    
18. 
    : a( j4 C) `7 a! x2 W
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    
21.       Dim root As Component = _
    - N, s1 f0 O1 ?  X+ l$ I5 B+ Z: `
22.                   dispPart.ComponentAssembly.RooTComponent
    $ D0 W7 P* {& }: M, z
23. 
    
24.       Dim compArray(-1) As Component
    * y7 |# @! v9 \: Z7 l0 C
25. 
    
26.       stuffComponentArray(root, compArray)
    % r" R) `* g7 E
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    9 c; t0 E$ I' f
29.       Dim bodyArray(-1) As Body
    / s' |* Q6 ~( T2 S8 Z; H
30. 
    8 c, i% t0 G; F& {5 t
31.       stuffBodyArray(compArray, bodyArray)
    . W4 v' J( f( g. F
32. 
    ! @7 E. W6 I$ I) a" b* s
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    
36. 
    ) H4 X" U6 u% ~" w* f+ ?/ J, o2 T
37.    End Sub
    
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    - b5 C% j" A3 D0 X$ j$ o$ M
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    ( b  w0 K" d# H7 _" D* L/ D% A' ^
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    7 `' ?6 x" l( j  C7 k) U
48. 
    
49.       Next
    
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    & s/ c9 L2 Q8 ]1 E4 f& p# A% d
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    $ q/ z+ E# H. g2 k
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
      v4 N- b: }8 I8 D8 q, ~) ^
58.       Next
    
59.    End Sub
    0 m/ r  h* X1 |, r/ j& J7 Q1 F7 U5 }9 u/ t
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    , e# K% c% y9 [
65.    End Function
    
66. 
    1 g* t) s! x7 Z2 m+ @9 v
67. End Module
    

复制代码

& O% L3 D; ]2 W5 R( b3 r