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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
) d0 Q( C8 t6 X8 S+ iImports 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
'
* a' Y9 k# d! h1 P% i& x& fModule NXJournal
    Dim theSession As Session = Session.GetSession()
8 o) R5 P: i& k2 [9 b/ S    Dim theUFSession As UFSession = UFSession.GetUFSession()
; ~" w$ m/ M- x7 r  Z- q    Dim dispPart As Part = theSession.Parts.Display
: S8 J. R/ z8 K( n- Z0 c
0 l( R8 A6 \( D    Sub DoIt()
8 y# O' D! j, u        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
8 |! M; q1 L* }! ]! H4 ~# r! F        Echo("Number of Components: " & allComps.Length.ToString)
+ e" O7 x9 t; e7 c  _8 E6 p        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
$ F2 q: F5 r2 Z5 K8 T6 l. \        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
) t) [' ]! \: ]        theSession.Parts.LoadOptions.UsePartialLoading = False
% L$ r: J6 o& p3 w3 }% E
: k5 S9 V$ Z/ l) E2 ~        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
( `5 P* Q& U+ ?2 N9 v0 |        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
2 X% ]0 I, r, C# K3 V, H            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
) P, k2 Z* p  F- O5 z
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1
. X" O7 f+ w) k- t
    End Sub
, z9 b0 H7 \, W! k# N
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
4 I; _8 ]% P$ K- L; G* b. Z$ g
+ K' [4 J/ K5 c( f+ n        Do
2 U4 W1 {2 D/ |) e            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
3 o, O. w( e- ]( o" ~            If (aChildTag = Tag.Null) Then Exit Do

, B" |0 X% \* m  z2 h! i            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
" S+ K; p7 D' S' l" C6 C" K            theChildren.Add(aChild)
$ ~$ O4 d* f# L/ I        Loop
, D, r7 {) k, k4 k& M6 Q        Return theChildren.ToArray(GetType(Assemblies.Component))

" R  n; q# s0 t) G  l$ X    End Function

6 g; w9 ^/ |/ {% I) _/ ?' H    Public Sub Main(ByVal args As String())
8 \5 x1 Y1 B9 z" w# P        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
5 ~' i5 \. I" R' k4 i, i/ ~
7 J# g% E% H+ C    End Sub
. Z' i2 e0 I# w9 K
8 ^; w& u4 [4 M    Sub Echo(ByVal output As String)
- q3 K1 x' t7 C- u$ T2 |        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
) Y1 O$ b1 E( V4 U2 ]        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
3 n* y6 t$ h6 k! ]3 N3 ^; [            Return
        End If

        Echo("  Load notes:")

+ _1 a  o. A) `- m% F5 k        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
& _+ V+ y: ?2 Z: U3 H* A- t5 u' P- s            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
4 V5 f# }4 ?0 b3 p6 C
0 U- `8 b/ S$ Q3 j. G    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
* h6 l  v/ A  o1 e    End Function

End Module[/mw_shl_code]
; T1 p8 ?( C- H2 m5 ]