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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
+ x6 m4 N, D+ @7 aImports NXOpen.UF
5 w( O/ f* N$ |! [$ x; T& cImports NXOpen.Utilities
5 b, E$ t1 C$ l0 w5 S) ]'
) U# r, m, L- f! K6 V' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
+ ^# O! R. H5 |) F' ZModule NXJournal
    Dim theSession As Session = Session.GetSession()
9 C4 |# _5 W/ l6 r8 s    Dim theUFSession As UFSession = UFSession.GetUFSession()
: T% ]' x" M; E. c    Dim dispPart As Part = theSession.Parts.Display
- F7 V' ?  D8 S2 B, x5 u. E
, ]2 G: S# T5 g1 t7 @+ ?  X9 @! H9 n4 _    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
$ M- f8 h( H( m        Echo("Number of Components: " & allComps.Length.ToString)
/ W# U( F+ @; G: `$ l* q! _; f        For ii As Integer = 0 To allComps.Length - 1
- M4 `2 v0 x2 ?+ H# e, `# R; N            Echo(allComps(ii).DisplayName)
        Next
$ l2 ^; b# ?; K3 _
# C2 j0 w* e2 d: i) Q: g* Q+ |. R        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
" N" v  N% Z0 G8 ~) T1 d" o
4 ^7 W5 ^% c8 r        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
8 o/ O( S; L5 E) D4 P        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
, t  ?) G/ P7 M" ?. g! Q. a        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
8 K9 H: p7 s% |8 a* ^9 I
( {& F; S9 l1 S* g$ W        theSession.Parts.LoadOptions.UsePartialLoading = option1
3 o( `: N% l8 ]) h
) h- w: U! S" X4 J: z/ E2 N    End Sub
) p- f% @; y) U
5 i6 m' n) S- g$ W$ L4 W% V" _! g5 X" X    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
$ @9 y1 G/ U3 b( f+ |# K
* l4 V) a* }, y4 M        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
7 B1 y/ r2 E% ~            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
2 Z, J0 s# n, y3 _4 f  \% v        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

3 c6 d( h! g5 J1 \    Public Sub Main(ByVal args As String())
) ^% |$ w# C  i* X, D' a1 L        If dispPart IsNot Nothing Then
            DoIt()
' K, M6 t% I" _% q1 \8 ~9 n            Return
        End If
! F5 B6 @/ g8 z& P
    End Sub

9 B& e6 X) \  A$ Q) {    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
( W  A. h1 y# x. H: Q
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
  S2 c4 f" K( n5 W8 S( Z7 t8 g        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
! ]6 c( a' A) Z1 }( |  M( o  j6 Y& O
        Echo("  Load notes:")
) ?1 O% H' `( Z; D( m
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
% X/ V5 |* ~* ]4 j            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
8 u9 ~. `* r2 y2 O- r. b) Q! x* w
1 y( t3 D: ^5 S& r% |, j    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
- z) ^) D* Q) r3 y7 v0 c    End Function
4 \$ s9 S9 }* w6 Q
End Module[/mw_shl_code]