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

admin

1. Option Strict Off
   ! l* W9 k) {3 d! e$ M8 t# o: ~
2. 
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   
9. 
   & F8 l8 I5 @, L# Z. O& p2 j
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    7 m! g, L9 J" O. z- d
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    8 D- L" H' y/ m  L/ C
14.    Dim lw As ListingWindow = s.ListingWindow
    0 O! y9 j4 l, a1 w0 y
15. 
    8 o- s, O/ O, }
16.    Sub Main()
    " ]# K- r  o( C4 A& q
17.       lw.Open()
    - q- n8 S3 Q9 S7 P
18. 
    + @/ |" D+ s" a, m# ?  M) L
19.       Dim dispPart As Part = s.Parts.Display()
    2 I. D* H" y2 p8 z. a. n3 h
20. 
    ( N% V/ O+ y* Y6 a, Y
21.       Dim root As Component = _
    . W4 F" O8 o7 q# X  r* }) D/ Y+ [
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    
24.       Dim compArray(-1) As Component
    - b7 k  q  g+ r! S. |) q/ y
25. 
    5 `, i% x, w& q8 r
26.       stuffComponentArray(root, compArray)
    7 [. J: g+ Q# }
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    : U/ d+ H: {0 m1 J
29.       Dim bodyArray(-1) As Body
    
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    ( m1 t' N7 @$ \3 Q9 H
32. 
    * ?) P8 R9 V  [1 V
33.       lw.WriteLine("Count of bodies in array: " & _
    $ o6 C4 S/ X% e2 m( E) [$ T) [2 S
34.                    bodyArray.Length.ToString())
    
35. 
    
36. 
    
37.    End Sub
    
38. 
    & r) c0 k! G% p0 D8 I
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    3 i2 T" x+ l# d+ F
40. 
    
41.       For Each comp As Component In ca
    # O, m/ I6 o) O
42.          Dim c_part As Part = comp.Prototype
    ! S# a, T9 G" v* V% ]- l
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    
44.          For Each thisBody As Body In localBodies
    ) F4 H5 b% c3 o# n
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    * O4 H+ F7 w8 s  Y& b, ^
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
    
49.       Next
    
50.    End Sub
    # a9 M6 L* d0 \6 j2 f" t
51. 
    & ?* }1 d. o6 y" K5 A5 w
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    0 Q9 b0 r7 j8 ^5 m
53.       Dim child As Component = Nothing
    
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    3 v. d% L4 B6 f/ Y
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    0 Q  o7 a" y# S% b  \2 f! H
58.       Next
    6 z: Z+ |7 o* B* L/ E
59.    End Sub
    
60. 
    % k  h; M; A, |9 s/ E2 }3 f
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    3 h  T) q' N2 g/ s* C: o5 H! o/ T6 J
63.       Return Session.LibraryUnloadOption.Immediately
      M7 R% v1 }2 ~( y% Q
64. 
    , j# P6 c$ Y+ ]: G& u2 M' f
65.    End Function
    
66. 
    2 j( Q9 Y# z  Q, A/ B
67. End Module
    

复制代码

4 q  g/ H5 y" x* I4 L- z

) l( f; L8 T, i* O