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

admin

[mw_shl_code=csharp,true]Imports System
Imports 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
2 k; _5 K7 _7 F% f  q'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
% P# l) \* m8 g, ]    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
8 S( t( ?/ G( |
/ c- b" m) b/ t/ @& r/ A    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
/ g7 R- Z$ F* y/ R& v        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
  a. J0 m8 _8 _* n# v/ S/ ^. C        Next
/ W+ Y. P& S1 V
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
7 a# b+ m% v* @6 S
3 w! f+ M, K0 s, t        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
! ~" T( [$ |8 q        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
! q$ \6 W: r* {/ T: @            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
  o' G& W6 _$ J5 g
        reportPartLoadStatus(partLoadStatus1)
  e" N. {0 \" v( T: @5 i% h        partLoadStatus1.Dispose()

+ A0 D' B: W/ t        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
% E/ }/ P) l, ]7 u) \  w
5 ~5 }) V% q& \; y7 k  p# h    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
. v& V% j! H5 H' n( I- p) F9 R        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
. ?* f( t4 x* z: ]. U! ^# d        Dim aChildTag As Tag = Tag.Null

% m( |# o( y3 M8 `        Do
+ t+ \; t/ j2 T            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
* v4 ?+ q7 o+ L0 Y            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
( D8 W5 a5 |8 z$ Y6 E        Loop
' d" L" b3 r: I' u: V& ~/ Q) X        Return theChildren.ToArray(GetType(Assemblies.Component))
, L/ }& b( e' V1 H
    End Function

; G0 k; G) k: G    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
7 L1 l5 x3 N) Z7 x            Return
2 @- L+ ?; z; {: [        End If
# s% R( _( ^5 h
    End Sub
" e* N9 h" T5 ]" m: ]4 V9 k) J' R
  V( I4 q) x( j' u    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
, P6 e- o% s, _% [        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
8 p4 i& C, P8 x3 f' _( Z    End Sub
0 T' p/ r, ^( u- L
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
4 p/ N. x. A. o) q        If load_status.NumberUnloadedParts = 0 Then
0 ?/ F$ h0 a  ?$ {            Return
        End If

- X5 m& O+ D2 g4 U+ d        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
0 W" S7 F8 V" h3 ^8 G7 V            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
' x' g0 k" F5 ^5 M7 [, F) B        Next
+ O/ _( z  z. i; ]" y+ ?8 }  ?    End Sub
+ I# z$ s" U1 w8 j% p8 Y
* l1 _  i( z: F) l, [/ o    Public Function GetUnloadOption(ByVal arg As String) As Integer
) N) Z9 g* t# Y% t. Z5 P        Return Session.LibraryUnloadOption.Immediately
    End Function
9 r  D: ]2 k" w
3 F$ Q$ W6 W; f9 g8 a, tEnd Module[/mw_shl_code]