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

admin

) S+ R4 Y5 m! s" u, \( |; v  k3 z

1. Option Strict Off
   
2. 
   
3. Imports System
   * S) G, B9 v( b
4. Imports NXOpen
   $ G1 u5 P$ P& L6 z
5. Imports NXOpen.UF
   6 M, q' a  d: s' ?6 O0 r% j# T
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    0 O1 c. z& ?( Q( h7 @" t
12.    Dim s As Session = Session.GetSession()
    ! v7 ~4 L: L6 I6 n/ b
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    - [& z( c0 m& B3 j( P- A
15. 
    4 W6 w6 q/ Z9 S( U3 A
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    # V5 A3 e. r2 C0 u( k5 V
23. 
    # y  J8 V( m  p: {
24.       Dim compArray(-1) As Component
    . h2 n# e( u; }# x
25. 
    
26.       stuffComponentArray(root, compArray)
    7 R' Y- F: B+ @
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    , J, b; K9 {) O; B9 e3 A; a) I
29.       Dim bodyArray(-1) As Body
    
30. 
    # B) ?4 D6 w& l2 ^# G! j
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    / a: Q0 w) s9 j2 X- }( p' @
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    0 K5 r% {" ~  O8 P0 G2 W- `: M% ~
36. 
    . n4 I# k9 Q, }" Y6 a) i8 J0 j1 h2 ]
37.    End Sub
    4 `" }* h* f+ C4 o$ D9 W& u
38. 
    ' y: N- N) z  }2 A
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    ' `: _  Q$ D: r7 f
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    5 \4 b( R( X% v* R' s: A8 v& G
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    1 K& X% ~1 f  f0 o! o
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    . Q. k1 t* q# ^
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    " y& G+ _3 ?$ B  \$ K5 X0 Q" a
48. 
    0 ?! m6 m2 ]' M: r% M# l
49.       Next
    % I& I& l5 K" x. W0 @$ Q
50.    End Sub
    + r6 d! N& D3 n, r3 {) r
51. 
    $ c( d: [4 Q2 C( \6 D) M) H# 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()
    6 G7 \, O  k, q- s' X
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    # S! m4 B" y' R) o( |8 A
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    ; d- k8 R5 T* c2 a4 l1 R" t
58.       Next
    / ?7 D0 P. m1 L4 d
59.    End Sub
    ' R; L& @, n) O& I4 p
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    $ o" {$ s; Z1 t/ l  e% T, `
62. 
    / ~$ Q" \7 e# ?) l- K6 k8 n
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    8 X, B( l! W* n5 _9 c
66. 
    
67. End Module
    . {- Z5 }4 p: S) J8 |' V: m

复制代码

9 r) a4 m4 b0 \4 x4 J- t