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

admin

[mw_shl_code=csharp,true]Imports System
: }. W; f( b8 jImports NXOpen
6 c) V0 g7 U# p6 wImports NXOpen.UF
Imports NXOpen.Utilities
9 t1 X$ b& d8 e2 s) x'
5 k' W: ?, _5 g, O' The OpenComponents() parameter
2 O+ N6 G; o6 y, ?0 ^' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
1 A2 d  Q( {) |7 ?9 D    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

0 b* R; _4 K2 T: ^# X4 U+ o    Sub DoIt()
7 S" [) A( C' m' V5 L        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
) R, ~0 u, j, Q: S* X        Echo("Number of Components: " & allComps.Length.ToString)
, ^( D1 K* I9 v, J# I% X        For ii As Integer = 0 To allComps.Length - 1
5 Z; q1 T5 w% C            Echo(allComps(ii).DisplayName)
        Next
( {4 [+ z; b9 G5 |5 ]4 b
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
! ^# f0 u/ S: w. G. O% K        theSession.Parts.LoadOptions.UsePartialLoading = False
3 Q0 M/ M  w) C3 W, I; A% {
% Y6 W1 l0 P6 K" O        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

( o' M5 |8 Q" C7 V1 u$ R- [4 O1 B        reportPartLoadStatus(partLoadStatus1)
- a; x, i5 l6 l8 k; @) Y+ J# s' \        partLoadStatus1.Dispose()

: P" n0 T5 G% ~) x1 Q        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
; D* J3 ^* ^& Y# |: w0 S, ~
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
2 O+ y! H/ _! q        Dim aChildTag As Tag = Tag.Null

7 S1 E+ ]: B9 f        Do
& o. S$ l# X: B8 I# k            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

6 j8 B; x; m' ^6 ]7 M$ ]! [            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
" m7 }& O9 g) l1 W" e        Loop
) w8 U; r' \6 M7 Z        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
' R( u1 P8 M, z/ [0 ]1 ^* l
  b9 X! a1 Z# s. g1 e+ I6 L    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
) E1 P& x$ [6 N: G. I, [            DoIt()
            Return
        End If

7 x3 L' s5 y1 \; y  l    End Sub
% L) k  g# |2 `' v+ l6 Q" k
8 |" z7 b, J4 t% b    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
% C* d  T( |" w& Y% n
6 x/ w( J6 u$ m8 J: M( g$ |    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
3 ?. y. \3 w6 p1 V            Return
  r  a! U9 B* f& g        End If
* K/ y  s. X  z7 f8 g
& O# k, m5 S* [- o. V! `  a        Echo("  Load notes:")

) u1 Z* e0 O) F$ z1 m* D1 s        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
$ w6 `) t, V0 J            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
7 k% B2 e5 ~; R' a" O, V        Next
    End Sub
9 |6 e. Y* S5 T( U, g2 k
& M  `4 M# L% {& [6 j" L$ I    Public Function GetUnloadOption(ByVal arg As String) As Integer
1 r" T% |: k0 e' R0 C& S        Return Session.LibraryUnloadOption.Immediately
    End Function
' ?5 a7 ]; A1 M
% P2 @7 X7 w1 q' d6 l) MEnd Module[/mw_shl_code]
5 A# V; q4 `9 _4 j( R2 D8 F