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

admin

$ }, c6 ]2 v# e' d# m% u' \- b

1. Option Strict Off
   
2. 
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   8 a/ G* l9 Y( r
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   , b9 ^: Y6 [* K' s; e
8. Imports NXOpen.Assemblies
   * ^' @7 a5 q0 t& n
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    & H/ v2 S( Z$ Q7 J
17.       lw.Open()
    6 ?) _) P( `/ p8 y2 t" s( f1 |
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    + V5 \8 H4 w8 ]) R
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    , }4 S2 R9 d0 v. N* X
23. 
    0 W1 ~5 P( @! J) w
24.       Dim compArray(-1) As Component
    * A) t% i; ^7 B8 q; w. r0 }" W. S# F
25. 
    , X4 d  l  x" U. |) G9 E! s
26.       stuffComponentArray(root, compArray)
    ; z8 U5 _5 K; n
27. 
    . l5 E0 Q" H; ~7 C6 h% ]) w+ [
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    + _; g' n* ~  Z/ q& O) h$ H
29.       Dim bodyArray(-1) As Body
    
30. 
    4 o8 e' E6 y1 {6 Z3 }
31.       stuffBodyArray(compArray, bodyArray)
    - F& n1 _0 \% F; ~" A3 d# t2 l: W
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    ! q, c* X" N$ b$ p
34.                    bodyArray.Length.ToString())
    ; u" q3 p  x5 z, n# c( Y
35. 
    + y2 N& N* e; A8 r+ E& A; v
36. 
    ' X% U+ ^! t! H) U+ r( b- y
37.    End Sub
    
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    $ o2 K! s0 t* p+ x9 q9 N
40. 
    
41.       For Each comp As Component In ca
    / b8 q) o* \7 l8 o0 P
42.          Dim c_part As Part = comp.Prototype
    5 g% ?7 v  G% h! C3 [) n
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    
44.          For Each thisBody As Body In localBodies
    % l6 Q/ ~6 W9 N9 |, J
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    / s5 O+ Y# C8 B) w5 K
46.             ba(ba.GetUpperBound(0)) = thisBody
    ' c2 ~3 \; V, y9 }. V- g
47.          Next
    
48. 
    1 p( l5 B. _  G: }
49.       Next
    
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    ) D1 Q& {# N% r& n- n
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    2 \6 P0 }8 ^# G) N) Z
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    8 k# ^5 W% T! J* \$ V
57.          stuffComponentArray(child, ca)
    , ]: d/ U0 h* L/ a% w9 T
58.       Next
    2 {* e- b5 ^' p  R7 d
59.    End Sub
    & Z3 ]! m! u7 W' E" h5 e
60. 
    $ l+ M" r# G8 i
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    ! d+ K- d: U; @5 A
63.       Return Session.LibraryUnloadOption.Immediately
    - I' a" T6 r2 s$ i3 ]) G
64. 
    : t, j# ~, B" R* T
65.    End Function
    # j5 ]! h6 O! C4 t
66. 
    
67. End Module
    

复制代码

8 H2 G% X" {: _: W- `

! c, u. K' t3 I- Z* y: p" x