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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
* [. F+ b* f2 |- rImports NXOpen.Utilities
' V; {8 ]# C5 c) ^2 u) V4 {$ g! N'
' The OpenComponents() parameter
/ ~9 n  h1 }3 a, [+ s" o- v' Y: H' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
$ j  {0 N) n0 u4 W' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
& z( a! X( Z8 z$ N
# _. z* e8 D9 r; U5 q+ a2 [    Sub DoIt()
; i, R$ Q  L: ^: m        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
# m# B" c8 L2 y7 [# a        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
1 A( E! w' q$ u! F2 i            Echo(allComps(ii).DisplayName)
, ]( @) g7 k8 V# R4 `1 r        Next
  h! `) b* \& |2 b' |9 r& ~$ g0 A5 B
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
4 R2 J- @) E( @+ }' w. \! v3 e
6 M' U; A( a" t, b        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
9 T# {( z: L5 }' [$ l        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
+ [& y1 U1 W* _5 {
& ~: J7 V6 t8 b/ Z' W) D$ J        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

7 `# v7 Q/ ?. L- @6 J        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
7 g. x) N6 F4 r0 A5 w- P  R) l
' j. ?6 Q, Y3 _$ L! B( _    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
) r' ]& q8 P2 W* J* G( c: S        Dim aChildTag As Tag = Tag.Null

        Do
7 y- s. X6 y" a& W) R- V# R            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
* b+ D* s1 w$ x5 }8 k7 M5 T  r  b: z
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
8 W" M3 o( J% n1 @3 [            theChildren.Add(aChild)
% ]1 ~. w! S! M' v3 i5 a! \. o* ?        Loop
$ x# H1 J6 l# V& b1 g: J        Return theChildren.ToArray(GetType(Assemblies.Component))
* M& E- Q/ r3 A% B
$ n+ E" B; R: T- }7 H( ^; O. ~# S    End Function

, r1 R7 b& @( C0 {' U9 F' t    Public Sub Main(ByVal args As String())
5 L" x5 t* P5 b! M        If dispPart IsNot Nothing Then
            DoIt()
. v& ^4 d+ K6 w1 |            Return
; w9 V& Z$ E2 U6 Q        End If

( ]5 W: o: t, D9 b! z    End Sub
+ D/ l/ n7 O4 J, f
  p& R8 b9 O* W    Sub Echo(ByVal output As String)
+ J/ F6 D! r7 p. Q        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
/ m( |9 d0 {# n, r2 y4 Y        theSession.LogFile.WriteLine(output)
. f  Q* K6 {( K    End Sub
! Y: Q0 s  z+ W
$ x% Z1 R7 b6 Y) ?    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
, G$ [% X/ `/ q1 `4 R6 z* l& f' I        If load_status.NumberUnloadedParts = 0 Then
" C. u! M0 }+ S* f" k' L            Return
9 h4 u6 ^2 R/ b; j6 n4 @        End If

        Echo("  Load notes:")
7 Y4 [1 s& j. O+ _6 S8 C5 n
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
5 K7 E9 I* i( k9 K4 `9 R6 Q            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
# a9 z2 _* S7 D5 l$ g2 C7 q2 Y        Next
* s5 R; T' O0 V  K+ v    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
0 u. F. a* k% S, N* `
+ B  r  `  F8 }- N' U. d: U% dEnd Module[/mw_shl_code]
& ?; y# q. w4 U