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

admin

0 s& _3 i2 t/ q" b9 [1 u" N

1. Option Strict Off
   
2. 
   4 \$ j& @7 p" W$ k* R- E
3. Imports System
   
4. Imports NXOpen
   9 W9 a, ~0 C1 x" w6 l4 e
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   4 u  F* U5 T6 B  {, S$ L& S
9. 
   5 T5 c6 h  c7 I( W. \) ~
10. Module create_array_of_all_bodies_in_assembly
    
11. 
    # C: k/ k5 P$ U& K% N
12.    Dim s As Session = Session.GetSession()
    4 U# {* v0 @' \3 h
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    ) L# j. ~8 p& @& H
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    * a- ^5 O$ d' g! c$ S) K! g) D  l7 z" t
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
      a$ m" K+ }. |
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    ) w' b5 M! r$ n
23. 
    
24.       Dim compArray(-1) As Component
    + F# @  X7 r" q' C. _  V* P
25. 
    3 S0 g( t" D" R
26.       stuffComponentArray(root, compArray)
    3 @# q2 a  _+ }4 s* a
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    
30. 
    - o% o+ c% Y4 A3 H" N
31.       stuffBodyArray(compArray, bodyArray)
    % I" m& W% u) c
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    + p. P) u- B* e# R# M3 U
35. 
    
36. 
    + y9 @+ c5 ?0 A$ ~, \
37.    End Sub
    / Q; I" G% Q5 Q+ b' ^" H
38. 
    
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    
40. 
    
41.       For Each comp As Component In ca
    1 B) X' m9 f4 ?+ `0 @
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
      [+ f: F0 L( j, i4 \
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    ( q# H' D; K+ y
47.          Next
    
48. 
    
49.       Next
    . O9 F& Z1 x8 n8 R" t
50.    End Sub
      `5 I) a% Z) `8 N- J1 {
51. 
    + K: @. m  q4 f- R
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()
    . e. H- v3 t5 P& ?2 M# d
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    ( \+ D3 ~8 m& f- V# ~
59.    End Sub
    % c$ X. C; v) r9 h
60. 
    0 D6 k3 a1 J; n3 J! L$ K' U' J. @
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    5 N  z; G) m3 y% _1 r+ D# V
62. 
    7 F/ y3 m7 L3 u' O
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    , s  m! J2 u1 c2 e3 e7 D$ |
65.    End Function
    & `+ O) K  j4 x+ u) i
66. 
    
67. End Module
    

复制代码

3 d. }, G, X& p$ I( j+ P* D& r