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

admin

$ A4 i3 g+ W3 Z* ^5 j" Y0 s! E% s9 }

1. Option Strict Off
   
2. 
   ; F, j% U! q0 b5 t3 t7 M7 m, r- X
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   ' o8 ?. w- _) R' l2 F6 o
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   8 z9 E. O8 o5 k, t$ t# C3 V2 T+ a
8. Imports NXOpen.Assemblies
   
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    3 Z5 F+ ^) V  ]4 ~. W2 C! S. V
12.    Dim s As Session = Session.GetSession()
    4 E, f# Y0 n  x0 a; d* P
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    ! O# `% n6 U! M( v- y6 P. q
14.    Dim lw As ListingWindow = s.ListingWindow
    # R& j3 V1 o9 a6 t
15. 
    4 v; G* P8 V, N
16.    Sub Main()
    
17.       lw.Open()
    8 _+ Q! G# B4 S9 z: p
18. 
    7 ^: I. W4 V8 d/ e
19.       Dim dispPart As Part = s.Parts.Display()
    2 d; w) Q( Z- X; s- v3 O
20. 
    
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    3 V8 m% x: s- p
23. 
    
24.       Dim compArray(-1) As Component
    1 |' C/ R2 c% X* @2 ?1 g) ~
25. 
    - V7 z3 d1 E/ Z( B# C; u
26.       stuffComponentArray(root, compArray)
    
27. 
    $ k) f1 ~! p* R9 }6 H0 w
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    9 v8 G& ]; v3 a
29.       Dim bodyArray(-1) As Body
    
30. 
    4 ?4 h  h' \7 n
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    : @* x- a: G; o1 l, u! n
33.       lw.WriteLine("Count of bodies in array: " & _
    5 a# {) Y7 h+ v& u; j9 S
34.                    bodyArray.Length.ToString())
    $ j8 ^) v" D% j# \4 W! S5 D
35. 
    9 U2 G7 H( p5 o& p
36. 
    
37.    End Sub
    
38. 
    ( k6 l; {0 V3 ~. F  k  B. F. Y0 G
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    + f9 W: Q+ c' ^$ X% `
40. 
    : x0 X. j% T3 D0 r, D
41.       For Each comp As Component In ca
    ) ~6 z. A: C! y8 C
42.          Dim c_part As Part = comp.Prototype
    
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    3 u" x  j& g" J# F/ ?
44.          For Each thisBody As Body In localBodies
    . Y" Q- ]/ ~% q) G9 ]9 H: g/ B
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    0 E. ?# {. _& R9 ?4 f
46.             ba(ba.GetUpperBound(0)) = thisBody
    : A; H* J1 c# ^) k3 k% _# y
47.          Next
    0 {$ z+ {( X) E( Z) p4 h* n% m
48. 
    7 m$ f, X4 s5 T+ |. t+ S
49.       Next
    
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    ) K, C, N% a9 b' ~- D, ]& B" I! _
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
      }& i( w: S! h
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    1 c2 K+ i2 F8 a' V: [1 N
58.       Next
    4 g/ c$ R2 Q" y$ b, d. L, x8 O- C5 K
59.    End Sub
      }$ L/ P* H. W3 H9 p) ^
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    9 o) q, s/ F- e0 j; H. t. N
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    ( k1 G7 I! y/ p9 f+ E) }
64. 
    $ z- l" a" C, f" q$ X7 x/ a( V
65.    End Function
    9 S% j0 M# I5 u9 W% v
66. 
    
67. End Module
    

复制代码

! E3 {5 Q' ]) U0 p: b  ^