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

admin

[mw_shl_code=csharp,true]Imports System
( ~+ ^" v. T+ HImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
! {7 G6 _7 Q8 w! X3 P3 b    Dim theSession As Session = Session.GetSession()
  w0 `- v6 w. s, z% X+ J    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

2 n  {0 c3 h6 m3 j# C    Sub DoIt()
+ G; E" q, \5 u3 `! |# O        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
5 J% W* n( O/ c2 w9 l4 A' e; K' L; S        theSession.Parts.LoadOptions.UsePartialLoading = False
2 N5 b0 Z. ^5 E& b. B. z" U$ X" n
5 m8 z4 X6 N. p        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
2 ~5 @# O( \) f: E8 s        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
+ c+ y5 F+ |# ~$ r  G: ~        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
$ q3 O3 a7 ]6 A# A            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
" l, z  d2 H" m9 O  f
+ l  q& n  f4 @" [        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
$ f- {# K7 w! F6 p  E: y3 ]% E
        theSession.Parts.LoadOptions.UsePartialLoading = option1
  H: ?) \- }5 Q+ v, b
* @6 t6 ^3 g/ P' ^6 d    End Sub
7 _* l8 f+ e2 Q$ O5 s# M
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
7 I: R) J0 U2 I) G        Dim aChildTag As Tag = Tag.Null
- _9 R% \( o1 {& k* p7 B. a3 W
: o; H  [! U4 J: }/ x1 A. [% H        Do
            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)
- e1 j, P) x% [# P7 m            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
: ^/ W1 \& D4 @3 T" |9 e$ J* d& L
+ F- ~4 ]* A: n5 _" f    End Function

4 R* t: s0 O9 p4 h+ M, [7 `/ m1 j    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
: _* n! b3 m! d- H3 T            DoIt()
            Return
        End If

    End Sub
5 N1 j/ i0 A/ y+ ~% m" ?+ O
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
7 w. c6 ~6 x- r/ n
% W3 a; T5 r( e, r( r4 V    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
" r; A; o8 R& o        If load_status.NumberUnloadedParts = 0 Then
            Return
4 [+ E3 {8 T" O; x        End If

        Echo("  Load notes:")
& n8 O- Q! B/ P+ k0 v6 e; Z$ k
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
6 N6 f; _5 Q+ P7 ?. e        Next
    End Sub

2 C( p1 w) }" P8 ]6 x    Public Function GetUnloadOption(ByVal arg As String) As Integer
. f# n1 q6 Q4 l- \6 D: G        Return Session.LibraryUnloadOption.Immediately
    End Function
2 z1 q" T( [. P* F9 x- ~& `
End Module[/mw_shl_code]
# r7 I. Y6 [" V9 m" o