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

admin

5 e2 b3 k, ~) W1 V2 X, p

1. Option Strict Off
   : S2 y$ f& Q1 j/ P, v  E% }
2. 
   9 E  w- ~  T0 G  f4 K' x; E
3. Imports System
   6 B) v# g8 r: H$ s, n4 u- W. Z
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   7 S* W, d$ n8 |0 H. E
8. Imports NXOpen.Assemblies
   
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    - d6 W( }& j5 H
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    ) w  M+ U/ K: c
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    ! S6 _5 `2 j0 [7 ~: ^: i, `6 g3 }
16.    Sub Main()
    
17.       lw.Open()
    1 q2 o! o9 r4 I* _7 ^( j
18. 
    ( i. w" Y1 {2 b9 H' X$ W. v. \
19.       Dim dispPart As Part = s.Parts.Display()
    - v7 r# m$ @$ ~$ T
20. 
    
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    " V- h0 Q$ D4 I/ K# X
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    ( N, O4 {5 l0 ]1 D) f" K% Q. a
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    $ E- @' s. \) f2 j+ U7 M7 _3 W
30. 
    : I  O3 m  P2 j' |
31.       stuffBodyArray(compArray, bodyArray)
    
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    ) d# y  A- O; p/ [
34.                    bodyArray.Length.ToString())
    
35. 
    0 X% z% h7 m1 o4 U5 w; p
36. 
    & m- @7 l* l* R
37.    End Sub
    
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    " Y4 R" h1 A; _# \( C% Y! L; g! e, y
40. 
    
41.       For Each comp As Component In ca
    5 ^- J! ^+ Y6 p
42.          Dim c_part As Part = comp.Prototype
    ; Y2 Q1 H- F4 s2 f$ H
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    $ e& F% E2 \) x$ z, L7 x. @
44.          For Each thisBody As Body In localBodies
    5 P0 ~+ a, `8 J
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    * E. P! F6 W/ _$ D
47.          Next
    7 U* h" V* ]+ O/ c
48. 
    
49.       Next
    
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    & A/ Y! Y  m5 Z+ n3 _
53.       Dim child As Component = Nothing
    ( [! F, R+ L/ ?1 M* U  n- A
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    % V9 Q. b; ~+ W8 D
59.    End Sub
    
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    : r. A0 J2 \- M9 Z8 \
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    # B, r, e/ W$ Q! Y2 U6 ~5 N( l
64. 
    
65.    End Function
      c+ \( x* s0 V6 `/ g
66. 
    - D- q3 _+ ?; [8 Y" z! f! Z
67. End Module
    

复制代码

$ e8 G7 U4 I0 A