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

admin

1. Option Strict Off
   ( R  m- k: ~* D3 i3 N6 U0 s
2. 
   * z# }+ i) _# f4 |$ _0 z
3. Imports System
   
4. Imports NXOpen
   6 f1 V! o5 L- |" l8 b& {- u
5. Imports NXOpen.UF
   . R' \2 q& l% Z3 H+ Y1 M" v
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   2 p; j" T0 R: _
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    % ]' b6 W. g( |6 _' E( }
11. 
    ! m9 L& Y- ^2 j' X. ]
12.    Dim s As Session = Session.GetSession()
    - O: m& r6 {) o5 r" {" k+ U0 m
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    ; K% l, `% {, `( X! T
17.       lw.Open()
    1 T3 a5 X9 M. D& q+ m5 H
18. 
    $ g0 p# @& x" o  t
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    ; J: d4 |9 r" j1 q$ k, L
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    + }) y- Y8 G0 H, S# }
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    8 `$ i* r3 n* U, I5 f% }
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    & r' \# |% F6 B0 a
30. 
    " x9 e! f( h) f+ r
31.       stuffBodyArray(compArray, bodyArray)
    % w* j+ U. W' e. R# L
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
      M6 f5 `/ b) X% z1 @
35. 
    
36. 
    - P; f. w% d$ F/ N7 T; W! W
37.    End Sub
    1 f) X; S1 s- L; l
38. 
    ) ^7 j( O' G+ j$ C7 F
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    
41.       For Each comp As Component In ca
    
42.          Dim c_part As Part = comp.Prototype
    
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    
44.          For Each thisBody As Body In localBodies
    
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    5 M% }/ \. s8 K2 M, v& A
46.             ba(ba.GetUpperBound(0)) = thisBody
    / R( p# |1 _1 k2 v) J" w! S: [" P3 g
47.          Next
    6 t/ C0 j& ^$ U, s+ g) [5 `$ i1 d
48. 
    
49.       Next
    / ]: s, U  D6 S( g' N& q; c+ \
50.    End Sub
    / _. \: ]4 @/ l6 S+ D& b6 c9 H: F
51. 
    
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()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    % E; K/ r1 \, s& c3 v
56.          ca(ca.GetUpperBound(0)) = child
    ) H! ^  W: u- Q. S3 A1 u
57.          stuffComponentArray(child, ca)
    0 s  _  N6 s& M5 h3 h% _
58.       Next
    
59.    End Sub
    8 y, S) V) |* [( @7 d; ~& e! `
60. 
      `  ]9 P% k; @  |2 N8 }. f
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    : J/ h) Z& O5 f8 L; W. y: u/ r9 l: z
62. 
    ( G- K* j9 @) E7 c
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    ; G  p. ]1 C% p6 |9 ?
65.    End Function
    ' i) ]+ }) ~/ I. P7 m" s! W2 \
66. 
    * I# T& X- e$ p2 M2 @: D% o/ z6 x
67. End Module
    

复制代码

0 m0 J- o4 c5 h! [3 O