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

admin

1. Option Strict Off
   
2. 
   
3. Imports System
   2 u. W" @5 [' P5 P1 L& }
4. Imports NXOpen
   
5. Imports NXOpen.UF
     G; L/ j9 _+ V8 |
6. Imports NXOpen.UI
   
7. Imports NXOpen.Utilities
   1 G0 N9 G/ J7 O* A4 ^& `* q7 c
8. Imports NXOpen.Assemblies
   ) h/ R: j  k: O; ^8 y" I
9. 
   4 w, D5 |! ]8 `! p
10. Module create_array_of_all_bodies_in_assembly
    2 @3 O5 L. n: [# ?0 ~
11. 
    # V# P4 D2 W7 k: u1 k1 V9 N
12.    Dim s As Session = Session.GetSession()
    5 G0 ^& b8 j* j" x
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    : K& d: P% l$ q' z1 f7 b
14.    Dim lw As ListingWindow = s.ListingWindow
    
15. 
    1 k! ~7 {+ O: I7 _
16.    Sub Main()
    1 @& q( c! N: @9 A/ ~
17.       lw.Open()
    2 ?$ q; j! B5 e9 s1 p
18. 
    % e3 a: r: @2 u7 ]* C$ x% t
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    * P6 Q2 T& I! F
21.       Dim root As Component = _
    . f. v# R+ N) u: C$ M% O8 g
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    
24.       Dim compArray(-1) As Component
    ( J/ ~. \# B8 U4 o, Q
25. 
    
26.       stuffComponentArray(root, compArray)
    , B7 g5 z3 F6 e; k( \  p( n2 @
27. 
    : r& c$ F) T: A
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    . E6 J# F; p" o5 ?
29.       Dim bodyArray(-1) As Body
    
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    - J1 K9 Q7 A/ H7 v
32. 
    * |* H3 o( `; {. x
33.       lw.WriteLine("Count of bodies in array: " & _
    ! t7 o* U* A0 V4 U
34.                    bodyArray.Length.ToString())
    3 B& L- G2 f" _4 g4 C3 ]5 ]( b
35. 
    
36. 
    
37.    End Sub
    
38. 
    ( q: q2 Z' }4 x
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    , M, K5 _- F2 G' d9 h( E6 l3 u" I7 v/ X% E
40. 
    2 A* t) v) ~' r( A8 w4 j
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)
    4 t$ Y7 ~0 g& d
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
    ) C) \4 h6 P4 E( e8 T* Q0 T  q. S
49.       Next
    
50.    End Sub
    " d; J! `: G4 I/ n: V; v1 ]4 U7 o
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    : O; T# Q/ `  U2 P9 ]- N% u9 k1 w
53.       Dim child As Component = Nothing
    
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)
    - q+ O( }' B; I) |9 H
58.       Next
    9 `7 ?8 S4 `2 n4 x8 ]4 V* j
59.    End Sub
    
60. 
    
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    6 U/ {$ I) M8 P) ]$ ^' A5 u
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    
66. 
    2 T2 w+ v% Z8 F
67. End Module
    / R6 h4 U1 {; F3 n. v

复制代码