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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
- P& F4 I- ^2 qImports NXOpen.Utilities
" ?1 N# U5 ^$ p$ p4 ^7 r- p7 g'
( @5 S( l) P' @: F, {' The OpenComponents() parameter
3 g7 e8 j; V4 U# L6 R' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
% o; O0 H% z' w: _( ^2 ?  p1 g'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
& ~9 I' C3 m: j6 o0 W# {    Dim theUFSession As UFSession = UFSession.GetUFSession()
" J( F9 O& _, i% b. L    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
3 n* u9 \# |4 R6 L9 c        For ii As Integer = 0 To allComps.Length - 1
5 t( _/ V- q* q( U* w* u; n' B            Echo(allComps(ii).DisplayName)
        Next

; p0 |7 o6 a" [        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
% n3 x% T1 d) g$ A% w5 b8 |5 r
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
: i; ]: {: S0 {3 p; w' ^' `        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
3 |3 }1 Q- ?7 ]5 u! E2 K" k- {            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

  X0 E2 S3 {: D' e3 C        reportPartLoadStatus(partLoadStatus1)
- X0 b$ W2 U  V$ p5 B, {' X        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

3 h9 i5 j1 ^& o! K8 I: L    End Sub

, g' M. q9 f9 l    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
, B: U  Y1 ^2 S& ^
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
3 m6 ]0 e& }2 ^, {$ b* e8 o            If (aChildTag = Tag.Null) Then Exit Do
6 j( F4 e- H' ~5 l* A; b, L& N
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
6 G; F& }# W$ {7 p8 Q
0 Z) y0 Y2 X& F5 i    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If

+ v: C, \  S: @! O3 `) E& b    End Sub

3 g" {( x0 K( V7 G    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
6 k; C$ X+ B1 x3 N        theSession.ListingWindow.WriteLine(output)
  M% [( p4 Q1 V+ B6 s1 F        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
/ J$ j: B4 L. ^) s+ @# i" Y2 g- s) f        If load_status.NumberUnloadedParts = 0 Then
1 t/ ~4 N" r' h. o! Q  b: T, e8 `            Return
4 @/ ~. [* R7 h5 O; A, O        End If
: @* t& p9 T5 j, M2 O
6 c+ b7 S+ h" t( J        Echo("  Load notes:")
1 l! S& V  j! m1 g0 ]. K, S* \
' s$ k$ |( `$ ?6 `+ T% e' e/ w% [        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
4 j" Z/ E& |* C7 s& ~* h/ A    End Sub
4 ]9 r/ ^1 ]! m0 ]( w) J3 _! Y. \* M$ E
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

$ u) q7 }, ]6 U9 ^7 jEnd Module[/mw_shl_code]