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

admin

[mw_shl_code=csharp,true]Imports System
# Z" O& G8 N! g2 }Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
9 x( u* z- L/ X'
' The OpenComponents() parameter
/ `0 G( u3 q. v: m6 }0 D' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
  B0 V  M( y1 b8 p$ s. z: J' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
; v; u# v2 E- Y$ x6 s; a+ q        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
% b' e9 t! ~' P2 }        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
4 Z7 E+ _" l# R( v- C        Next

8 \% p% F4 k# E        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
  Y3 A; h: _$ j, R* [
        reportPartLoadStatus(partLoadStatus1)
, b/ Q% D9 H' i- Q9 E, O2 ]        partLoadStatus1.Dispose()
+ c" }1 |2 x5 U4 o, b: F& _" s
        theSession.Parts.LoadOptions.UsePartialLoading = option1
# _9 Q! N$ f. p
# V+ e4 }$ |  B5 b( e7 `    End Sub
$ g; W$ j; w* ~6 {( W% x+ |& E, ~, n1 E
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
) S6 j) M: C7 \8 ^7 n) s2 W        Dim aChildTag As Tag = Tag.Null
: Z4 b5 u( s3 d: u5 l
        Do
" ]5 S3 Y4 O. ~$ @# r1 A- z; b6 E            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
6 k8 d* E8 @0 k/ u9 B
0 v2 }% i- f5 D            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
$ p8 N) b- C! a8 }* U            theChildren.Add(aChild)
        Loop
/ M. ?( i) B: R, ~5 a        Return theChildren.ToArray(GetType(Assemblies.Component))
: r8 i# ~5 r/ t
    End Function
3 R) M2 g% y; \5 }& T3 b) G1 z
5 C# Y- ?$ w# T1 U/ a, i" K. h2 ?    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
3 s# x: k" o# [+ [3 O' j            DoIt()
0 q4 f- C( J: e; ?' F            Return
' V8 J; V1 y$ i8 j& v        End If
6 J2 J5 L- m( I7 r$ r* D. a
    End Sub

    Sub Echo(ByVal output As String)
% _( p4 J/ B' g' z        theSession.ListingWindow.Open()
. N# z  u% Z+ A- b5 N# Z! m        theSession.ListingWindow.WriteLine(output)
" V3 E' J7 b, w: i) i$ L  N! P        theSession.LogFile.WriteLine(output)
    End Sub
2 o& X( ^6 D7 t+ l" x, {
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
3 z. n* o$ V# a/ D7 l5 [2 v' X        If load_status.NumberUnloadedParts = 0 Then
' f% E$ q+ e8 M6 Q' Z  b            Return
) G& i. U0 d/ `  s6 e        End If

! o! V& Q3 G/ {5 [8 ^; v! x        Echo("  Load notes:")
  j+ R/ `, A6 d! n/ p( j5 P
! J% ]8 D5 z* v        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
4 W. A& C) ]7 D% Y- N, l' N7 W            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
* J" C( A7 n% F% l# H% @        Next
- l8 \, O! y# U    End Sub
5 v$ j! b* ?' b6 j
    Public Function GetUnloadOption(ByVal arg As String) As Integer
9 ~9 j' j5 O4 Q  j        Return Session.LibraryUnloadOption.Immediately
' a1 b# H! k1 _5 b    End Function

End Module[/mw_shl_code]
3 [! k* A6 H8 ~! u* B$ S3 n3 H