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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
8 C1 \/ y$ ~* m) c6 W9 CImports NXOpen.Utilities
'
. L7 m0 [2 |/ F& `1 _' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
, t4 ?5 ?* f: _) K9 H! u& q- A0 w' only opens unloaded components fully (see also PR-8406345)
! w- `. U* ], g) {& O# Z' Workaround: collect and open all components individually
'
% D/ x# A& b! ]$ u4 U/ V0 w0 ~Module NXJournal
    Dim theSession As Session = Session.GetSession()
. O( u6 z  q1 C# t% v4 j    Dim theUFSession As UFSession = UFSession.GetUFSession()
, i8 A# C/ }7 k6 ~' m    Dim dispPart As Part = theSession.Parts.Display

4 L1 U# M% j# [& b) X! c8 \    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
' u& T3 j3 _" A4 G0 b- L        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
+ y( A6 i0 V" g$ U  ?0 K9 k2 h            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
+ y% F( d& ]7 M4 f: j
# j8 N: d; h3 `, N5 ^# q        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
0 V/ T& O5 Y. [) ?# L. [
        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
  u2 h7 M; |' T+ T        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
+ |" u- n1 U+ A# ]4 T        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
0 M7 B, x( g7 `# v4 l% K) a4 O- O            If (aChildTag = Tag.Null) Then Exit Do

& N( w8 B- X% D; G/ h1 M            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

- G5 q0 V3 p$ ]* t1 \    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
& c4 L, T6 C5 m3 d$ O" I            Return
        End If

    End Sub

; v- w4 j* }0 k    Sub Echo(ByVal output As String)
; L( ]7 G; q: m0 {' i/ }; o        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
  z3 `( X" A, }. K6 c; j        theSession.LogFile.WriteLine(output)
    End Sub
9 D! r) B; n$ J
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
9 x/ o. r5 Z+ ]6 J# ]        If load_status.NumberUnloadedParts = 0 Then
            Return
  R& l6 x, S7 r# Q. z- i        End If
$ h+ ~/ L" _: w
        Echo("  Load notes:")

% K1 Y4 i. `2 z3 {* ?$ Y/ b9 ^        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
2 o# T. a/ n6 i) n  K+ L9 t            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
( H" a" m+ A4 P. Q& M) R    End Sub
$ u0 Y9 ?) r$ A( f. U( P
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
" A. @/ c" t5 Y! a7 J    End Function

End Module[/mw_shl_code]
  O6 a% ?/ X  l3 z5 p' i( f