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

admin

2 s* q, T: j" V* v. w

1. Option Strict Off
   2 ^: e& I* B6 g' ^
2. 
   
3. Imports System
   1 ^; x1 Q6 F6 J0 O/ z% H1 L4 j
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   0 m9 a2 B+ ?; G
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   5 Z' c9 ^7 p% \5 |/ _
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    + ]9 [' W4 n4 ?! b3 `6 ]5 t5 N" N
11. 
    5 M1 q- [8 S4 b9 X2 r% Z$ Q* F
12.    Dim s As Session = Session.GetSession()
    ) v$ g. x% @5 Y* h
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    6 w: {9 h* g4 I3 s5 ]7 r/ P
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    
16.    Sub Main()
    
17.       lw.Open()
    
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    $ k" T% X' t6 |: l
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    7 T* v( T: R- ~3 Q  J7 E- h
23. 
    
24.       Dim compArray(-1) As Component
    
25. 
    1 Z. c5 m7 ?; K" b9 \5 |
26.       stuffComponentArray(root, compArray)
    
27. 
    : Z7 N  e& H# D& ]. z
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    0 f1 d7 t, C/ l4 P2 `0 ?
29.       Dim bodyArray(-1) As Body
    
30. 
    . I* o$ T0 r0 c1 J- F5 m# `
31.       stuffBodyArray(compArray, bodyArray)
    - T3 Q# @& X1 f
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    
35. 
    
36. 
    9 x0 }8 f- i0 \7 @
37.    End Sub
    
38. 
    ' U6 K, E' E/ m8 E- K* F
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    2 m. ^& r' `7 d% s
40. 
    / O8 b! T/ M# v* \' P7 M3 V5 ~- ^
41.       For Each comp As Component In ca
    ; j7 ^; A4 ^* k( \: B
42.          Dim c_part As Part = comp.Prototype
    
43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    * R* ^7 o1 X+ C2 y, B  b  B9 J
44.          For Each thisBody As Body In localBodies
    ( o! q2 q2 u3 v1 T' V6 g6 L
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    ) x$ ^7 a& z! G) `& U! J
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
    & R7 b4 _4 G+ e: I
49.       Next
    : H! w) u# x9 c1 H
50.    End Sub
    
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    
53.       Dim child As Component = Nothing
      ^0 l0 p; t- q% J$ I6 W" o; U4 @
54.       For Each child In cmp.GetChildren()
    
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    . I& Y9 D& v. e7 K, V) P
56.          ca(ca.GetUpperBound(0)) = child
    8 q7 l8 _! x1 W5 @
57.          stuffComponentArray(child, ca)
    1 l) l1 S+ K- z
58.       Next
    
59.    End Sub
    
60. 
    0 V" M4 O' q' @  ?; i; [, O, q
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    : O4 x8 B; B. g* F* T* |$ n
62. 
    ) ^- G& T7 W, T) ~
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    . E! i$ o: @" S9 I$ X7 x
66. 
    
67. End Module
    

复制代码

8 \% K# B) Q8 Y