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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
2 J) f$ p3 N* _* u; I. U4 GImports NXOpen.Utilities
; K4 z  _: u9 T1 h# g$ r/ a'
0 j9 }, v6 i, m- \4 ^/ W9 z  C' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
# x; s9 d$ e  W9 w' Workaround: collect and open all components individually
'
Module NXJournal
9 [/ j% R: O/ J8 s4 e    Dim theSession As Session = Session.GetSession()
5 V! \6 V8 Y1 x8 z$ i0 r    Dim theUFSession As UFSession = UFSession.GetUFSession()
: v- v5 g* x0 k4 O4 C5 N4 k$ F    Dim dispPart As Part = theSession.Parts.Display

+ T7 |; S" j1 L) A0 U    Sub DoIt()
6 z/ @8 Q& Z; b* v9 J9 ?0 j7 n        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
; u  j5 ?9 D  `        For ii As Integer = 0 To allComps.Length - 1
; D0 u- Q; N1 W- Y0 N6 i$ B9 ~2 Q            Echo(allComps(ii).DisplayName)
$ M5 E; ~% L/ S        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
8 W$ h  K( ]6 w0 }9 n2 }        theSession.Parts.LoadOptions.UsePartialLoading = False
" P, k* I* S  _/ A- e
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
- [  M, y; a& D
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
( n0 E7 {& N) y% w' ^8 C
+ n" C" a; _" C; }7 b+ e        theSession.Parts.LoadOptions.UsePartialLoading = option1
& `5 n- b6 ~" d3 W! o
8 L3 T1 b. ~/ s4 X2 e    End Sub
4 n. J  ]' B7 e  E: ^3 S- J8 K% J
1 ^. P/ U# J" c    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
" ?+ ~. S- Z7 c) G3 X* Z        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
. @" h! J0 t, b& G        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
& ~# W# `# m- Q5 T3 w" l1 j            theChildren.Add(aChild)
' [. `/ k; v% `, {, |% |        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
1 o8 ^2 a- W, A) r. e+ q4 g
' j9 q( ^  ~1 m' X6 z    End Function
  B. _7 d( J+ E: f4 S! f" U: W
7 H6 K) B" _# n2 ]. B    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
: j# G! P& p0 @$ K; V' v% M$ Y* _            DoIt()
4 H; G- z) O: L7 N' l& m            Return
- J) e2 E# c; _6 {* j$ y! v        End If

    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
) g+ {. k: d3 t        theSession.LogFile.WriteLine(output)
% y% @# o: d; z6 q5 Y. }5 @; k    End Sub
7 i/ R5 N8 ^$ F& o
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
- i4 Q" Y- x; R% A& Y        If load_status.NumberUnloadedParts = 0 Then
  r5 a( h1 p6 O% v. Z            Return
        End If
2 }5 E) d; m( N* S% ^0 M
        Echo("  Load notes:")
) f/ Y+ P: ?. k0 F% b6 ?
! M) S$ e: w0 `( {& h% Z. ^* y        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
& {3 f; L$ i1 N( g3 I" V    End Sub

' J; S( H. N( K    Public Function GetUnloadOption(ByVal arg As String) As Integer
1 t! G8 K8 y: a8 q" s1 U2 J0 A0 [        Return Session.LibraryUnloadOption.Immediately
4 ~6 u( E! m! r  t, r9 l4 O    End Function
" x3 t1 @, }1 T
  [3 T. r0 K  M7 n3 y5 \' N' TEnd Module[/mw_shl_code]
3 g3 [  G8 T( ^6 P7 g6 J