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

admin

[mw_shl_code=csharp,true]Imports System
- @; x' J! D1 b  L4 b, {Imports NXOpen
( n& W/ C! k, x- m  i& g0 uImports NXOpen.UF
; K9 R# j4 V9 D( O( p: l# SImports NXOpen.Utilities
- x" R: B+ y$ T5 j! Q: t'
: ]% z) h+ D! K" s! g8 J' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
  P9 e2 D4 n/ v" g3 |* f& C'
Module NXJournal
3 D% _) ]/ A$ E0 x7 ?6 K% m    Dim theSession As Session = Session.GetSession()
2 {1 R, V; k! R- y' B( M/ m9 |    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
/ x/ U/ P! _5 ]5 x* i
: }$ }8 N- D% D( h/ C8 c2 V3 l    Sub DoIt()
& H7 D9 y$ `, K! x; a4 o        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
- a' h; h4 @2 b  q) P0 ~        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
% u) Z# o$ M+ w            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
  h( k" `; ~+ Y, G/ b) U        theSession.Parts.LoadOptions.UsePartialLoading = False
& s' ^; j4 }) ^9 e! [7 ~
6 M! t. }) z. C; L/ e        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
7 z( B/ {: G5 T% C- x7 T' G! P        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
0 P" f* W$ X0 J' J! C5 S* N
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
) o" S% Y+ {/ W
- c  J1 s( q# t. ]' l/ c        theSession.Parts.LoadOptions.UsePartialLoading = option1

0 x6 E/ z# A8 \/ ~1 K    End Sub

& `5 K2 v) W) ^3 Z8 n0 |2 m% M    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
; {" b4 q: B# f: f2 d/ |8 A! o6 O) Y        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
. r2 r. w3 {4 p# u( Z        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
# ^; X2 h  Y6 t: Q            If (aChildTag = Tag.Null) Then Exit Do
8 @* B/ ]4 O8 [* k
$ T  h7 i/ |0 M3 x1 [% c            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
1 ]# x, I( G: U; P* O! c        Loop
+ q, p& e" K6 z        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
0 G/ W2 Q, n8 f
    Public Sub Main(ByVal args As String())
! d# G6 o' `. a( \7 O        If dispPart IsNot Nothing Then
5 q1 d; C, c0 d. T+ ^2 A            DoIt()
5 x) Q+ ]0 h; E2 F: y/ m9 d2 ?, i            Return
        End If

    End Sub
9 j/ f2 U: ^0 h: Y8 ?
% q! Z6 C, j7 M7 R    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
) _- m2 U. A4 X. K        theSession.LogFile.WriteLine(output)
    End Sub
8 z- S4 l3 x* g* ~
& [7 I2 J! L& U" t    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

( _5 p6 c" M+ y+ c9 S        Echo("  Load notes:")

5 ~/ C5 U3 F9 ^) ~        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
7 i5 V) Z7 m+ ?' r! E0 `! R/ v            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
. U2 k) e2 r8 C6 i" u- e& }        Next
    End Sub

5 {& ]1 z4 }$ ~    Public Function GetUnloadOption(ByVal arg As String) As Integer
+ e0 }9 g8 v/ f( n! S$ A; v        Return Session.LibraryUnloadOption.Immediately
    End Function
3 _! V5 P' Q4 r. i  K# J
End Module[/mw_shl_code]
% A: T) l2 {7 A  u7 a/ G+ ]$ k7 I