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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
  v9 h: A3 M2 H. C% nImports NXOpen.UF
% d$ B! P! V9 q6 R/ S$ g: Z7 x' zImports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
( i% J6 g$ t4 N- H1 `5 V0 {' only opens unloaded components fully (see also PR-8406345)
5 G- p1 ]& ?& n0 v' Workaround: collect and open all components individually
2 t$ \% D; ]: [6 c  l2 v- _* q! r1 a'
1 H( j# o- \2 c+ l0 y, [Module NXJournal
; ~3 X# O% e& G9 b( B0 @8 `& q    Dim theSession As Session = Session.GetSession()
; w* ]3 x( N6 ?/ P    Dim theUFSession As UFSession = UFSession.GetUFSession()
" W3 _$ M/ I( o  f8 |    Dim dispPart As Part = theSession.Parts.Display

* [3 d# V2 d& W    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
; \4 Y. k! E' c& T3 n, G        Echo("Number of Components: " & allComps.Length.ToString)
! L0 ], U( q+ V0 d6 j        For ii As Integer = 0 To allComps.Length - 1
, p( R' \- M0 i: t" B0 O            Echo(allComps(ii).DisplayName)
        Next
8 E# C% S4 B) @" B1 i" t: L( q
- L% R. |% E+ a- X        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
6 p0 h4 w* V. D* Q! m3 _, H        theSession.Parts.LoadOptions.UsePartialLoading = False
& c' n1 Q2 o& X" [( M* ]& q# X: Y* D
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
% [# `) ^  \+ y# @1 Y0 H) m        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
3 d% p5 {1 Q8 U  Y0 @" [        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
  l* O5 |- P- s" ~+ O  M, C
+ O: H8 {, T% X; _5 U: v$ z1 U        theSession.Parts.LoadOptions.UsePartialLoading = option1
7 f# j9 t" M' o! f  k" D
    End Sub
% x0 L  G: d2 Q/ t
1 U2 X, C' D9 o7 o. q  i    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

" G: k& g8 ?* o6 T( R$ E! I        Do
2 @9 D; ?& n' G( j/ w7 {            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
' G+ x6 ?( z% J7 u3 ~/ E            If (aChildTag = Tag.Null) Then Exit Do
4 M4 R2 l$ F* `+ f
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
; @' s) Z; B' r' Q/ g            theChildren.Add(aChild)
; i! [' P2 N( O: P! b7 E/ t        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

6 J0 f" `' E* x: s" Q    End Function

    Public Sub Main(ByVal args As String())
( S( W9 p4 N1 L& d8 ?& l+ q        If dispPart IsNot Nothing Then
            DoIt()
: ]2 z) c* Q9 }6 P( k7 d% Y            Return
        End If

, |7 T. ^9 y0 b/ B0 t* J. c" H; v    End Sub
. J. D9 j# o1 [
* m2 D; J. g- b  k  K2 }8 {/ q    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
6 r: G" B; y, G- {        theSession.LogFile.WriteLine(output)
    End Sub

  u% I2 H4 \( b8 u; ~    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
  v; S$ M8 ^2 P- ^        If load_status.NumberUnloadedParts = 0 Then
+ A, t" [% N. S8 w' g1 f6 ~            Return
2 J4 K* ]; B$ U3 I' g        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
) @2 e0 P0 ~# b            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
* _: O6 O3 `6 J0 Y, \# W        Next
2 ?* U- Z5 o2 g    End Sub
4 C6 P7 `% p# G
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
2 p7 e( J' E( |& _6 e2 x, P
; d: ~9 A8 T# r) Y2 YEnd Module[/mw_shl_code]