NX二次开发源码分享： 加载所有的装配组件----全部加载

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
: p9 R! O! @4 w! K1 R1 L8 JImports NXOpen.Utilities
'
' The OpenComponents() parameter
3 W& y9 V- x' p" y9 n' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
8 c2 |. T% d% G4 S8 ~, x& a1 U0 f: s' only opens unloaded components fully (see also PR-8406345)
5 p) y7 u$ x: u1 l' Workaround: collect and open all components individually
3 G. z) ~; m; x4 j9 k'
# ?0 P# h3 |0 A/ W% RModule NXJournal
9 h: {0 Q9 N* P7 l) _; Y& `  q# z    Dim theSession As Session = Session.GetSession()
4 D2 K# s: n3 P; A5 \+ s! M  G    Dim theUFSession As UFSession = UFSession.GetUFSession()
' B" J/ O  ~" e  [    Dim dispPart As Part = theSession.Parts.Display

- y( o& S, y' S8 S    Sub DoIt()
# Q2 m: y6 L* K. T        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
8 e3 o% P' G% r        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
; `1 e' W; F( g9 m$ l* a+ Y/ w        Next

) c) s# N' y+ w% {: W2 m        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
- v  N. H& V" A7 a3 N8 S        theSession.Parts.LoadOptions.UsePartialLoading = False
5 p% p3 t$ N) _% ~# X; o
6 D$ h4 [: M" b% h% l        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
, ?. n8 ^7 i0 d# i6 T9 ^* }        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
& Q# v: |# Y: x1 e# {2 L
5 K. o$ I1 ]6 ?  \        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

( n+ x! f+ s1 U) L. a' r        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
, N: g# `1 w$ C
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
2 P. c# p- }, K& v6 B$ ?% `        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
) p: M% H7 R7 i4 l5 t
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
8 I( Y7 o. K# J  ~( W. e            If (aChildTag = Tag.Null) Then Exit Do
1 B5 [: K* l. K3 K
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
& E% U$ a# q0 E% D  W8 x; T            theChildren.Add(aChild)
        Loop
' s* T) \4 }4 v# F9 w        Return theChildren.ToArray(GetType(Assemblies.Component))
2 y3 B2 |$ d& @9 G5 `3 ^% [1 d( Z
  r% D$ b4 u+ d4 _* }5 S6 w    End Function

' a- Z8 B. Y# ^9 C& W    Public Sub Main(ByVal args As String())
- A' d) L+ t4 r6 i% [( K: H8 S        If dispPart IsNot Nothing Then
            DoIt()
            Return
! u) P1 p8 `7 C- l6 i        End If

) B8 u: N4 E  Y. ^2 w    End Sub

    Sub Echo(ByVal output As String)
+ I$ p  [3 w2 ^( p        theSession.ListingWindow.Open()
* f2 L( Z" T  d        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
  d+ g1 ]; `7 k
2 R4 t% S2 K9 R: |1 c& A    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
) u2 i; L" p3 J& x# I, Y, ^            Return
        End If
3 m  J  ~3 T0 z
        Echo("  Load notes:")

- n9 X4 ^: T; m- H        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
3 B, d8 M0 x; G2 v/ U' w, \! N    End Sub
; I9 N- `/ R, D- j' F" ~% x0 k
* @6 M$ P! |# Y- @' L4 b: U+ y" o    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

, j, H. G8 p0 {0 r+ Q6 w% l9 l' E2 t$ iEnd Module[/mw_shl_code]