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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
  P; i9 }6 n  @$ T. Y' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
& b0 K. Z/ U# C& K+ K'
# }& z* t/ h. Q% u9 B" }( wModule NXJournal
    Dim theSession As Session = Session.GetSession()
# f5 z" P% @+ O; R" Z    Dim theUFSession As UFSession = UFSession.GetUFSession()
( N3 ]1 N3 O8 f! S    Dim dispPart As Part = theSession.Parts.Display
/ q9 ^1 x0 O8 S( |4 I; t/ I* H
! ^5 G) }( W6 B4 `5 ~& i8 J    Sub DoIt()
* A0 q% \) Z8 N( K7 f        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
1 r. m" M$ [4 m" r( ?6 Y        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
* i. x/ U# @* a- n0 ~  b) H$ @1 j            Echo(allComps(ii).DisplayName)
7 S7 l5 z* Z: n7 G        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
/ N6 t9 n9 F( \/ c- Z6 u! h" D' U) ]
6 s' j2 X4 p" f1 I        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
' }9 ?$ N6 `* d! l        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
1 X; Y- x' d3 F( k% O; y        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
9 s' n% H6 w) e- ]            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

& h* o) ?! H" a  d        reportPartLoadStatus(partLoadStatus1)
* B& }& H4 e5 Z1 l1 N: ?        partLoadStatus1.Dispose()
& m7 q7 E* \6 P
        theSession.Parts.LoadOptions.UsePartialLoading = option1

- }1 R* ^. b$ [4 X3 M7 o, m    End Sub

/ M& y7 E- l) ?7 {    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
9 r* M% h1 B4 I3 Q0 s# t        Dim aChildTag As Tag = Tag.Null

        Do
) ^4 O' m: P+ W7 m            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
  U" p$ j( b1 L7 v        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
1 T. }# q- u5 X: t  ]
    End Function
# e" ~7 o. t8 D7 D; k
. p( d- n+ C9 M9 ^% }! ~    Public Sub Main(ByVal args As String())
; P* G# o" f9 ~, [* m1 E        If dispPart IsNot Nothing Then
' K2 `" l0 u. j6 f; [7 \            DoIt()
            Return
& W6 Q9 O; K  |3 Y        End If
6 l) B2 [* E" h: y0 f
    End Sub

3 R* k1 |3 p3 W' [2 }& r    Sub Echo(ByVal output As String)
3 h7 X" z% U' H  j# G" L        theSession.ListingWindow.Open()
. F: J3 w+ |0 i, u" q+ ~        theSession.ListingWindow.WriteLine(output)
1 L+ E8 \% l" x# i+ @% u0 o        theSession.LogFile.WriteLine(output)
, {( i# R# ^2 w7 Z    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
  v- w0 @4 y6 W" `6 G
        Echo("  Load notes:")
# Z% X* x+ b7 N! O7 C& P$ W
$ _% d5 u) C: ~% E4 Q        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
' d0 o8 M0 d& B        Next
    End Sub
0 g5 M  ]& G; X& @5 A5 c; l
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
7 m! }+ g: E' a) o, [7 b1 U0 D    End Function
3 f7 B: D& O% x$ O; v. i  m
End Module[/mw_shl_code]