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

admin

1. Option Strict Off
   
2. 
   
3. Imports System
   6 y/ @* @# h8 x, G
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. Imports NXOpen.UI
   7 T4 p6 p0 V- O4 @" H8 X
7. Imports NXOpen.Utilities
   
8. Imports NXOpen.Assemblies
   4 m7 |# \1 `+ z. g$ o0 O
9. 
   
10. Module create_array_of_all_bodies_in_assembly
    
11. 
      }6 c$ T2 n# F3 a
12.    Dim s As Session = Session.GetSession()
    
13.    Dim ufs As UFSession = UFSession.GetUFSession()
    $ L) ]( M/ F$ P/ _; R/ w/ K
14.    Dim lw As ListingWindow = s.ListingWindow
    , Y4 z% v$ w4 P% n* H
15. 
    * g: W' b! r( m/ b$ B: d
16.    Sub Main()
    . G* k* y8 R( E9 X7 O' _
17.       lw.Open()
    + {3 K% ]7 g0 ?5 v. n) I# b* i1 N
18. 
    
19.       Dim dispPart As Part = s.Parts.Display()
    
20. 
    ) q3 [- F2 U7 _3 `2 u# D$ D2 {1 l
21.       Dim root As Component = _
    
22.                   dispPart.ComponentAssembly.RooTComponent
    
23. 
    
24.       Dim compArray(-1) As Component
    
25. 
    
26.       stuffComponentArray(root, compArray)
    
27. 
    
28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
    
29.       Dim bodyArray(-1) As Body
    , P2 ]2 \" r% C+ ~+ Q# |# R% m' [
30. 
    
31.       stuffBodyArray(compArray, bodyArray)
    9 B8 ?% V7 h+ s& H
32. 
    
33.       lw.WriteLine("Count of bodies in array: " & _
    
34.                    bodyArray.Length.ToString())
    ' }3 O& }) P! a" k; e3 h3 I; Y
35. 
    
36. 
    3 N2 t5 a; L# {! t& l( J9 }7 j
37.    End Sub
    
38. 
    & \* z2 J+ E8 t, J
39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
    2 d2 X' s3 c+ J; N8 ]$ c
40. 
    % L4 E3 i$ k0 A( u7 F; U$ {
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()
    ; E5 @; l, _  P
44.          For Each thisBody As Body In localBodies
    ' s/ D4 U( Z2 L/ }. l  b
45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    
46.             ba(ba.GetUpperBound(0)) = thisBody
    
47.          Next
    
48. 
    , }: N' h7 Y2 \( K  Q# B3 O
49.       Next
    
50.    End Sub
    2 D" B1 n) O6 S1 s4 w
51. 
    
52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    ! P! \/ d2 f6 m& K2 {
53.       Dim child As Component = Nothing
    ( F8 x! m" A1 f! t+ N, ?
54.       For Each child In cmp.GetChildren()
    5 y3 I) _. \6 _& l5 w
55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)
    % \; E5 W! n% W5 g( P' v
56.          ca(ca.GetUpperBound(0)) = child
    
57.          stuffComponentArray(child, ca)
    
58.       Next
    ! q4 {0 S0 S# H% h7 J" o0 j
59.    End Sub
    
60. 
    : ]* w- K2 z9 a5 ]" P
61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
62. 
    
63.       Return Session.LibraryUnloadOption.Immediately
    
64. 
    
65.    End Function
    
66. 
    " M. u  g. F, b, i
67. End Module
    

复制代码

0 Y  l6 c' B1 x0 |  u, R