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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
5 f! b- @& [- s  S& [3 c' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
7 V6 L" H1 G& v& [- U! D* h    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
- _8 A; T% v+ P$ A  e
1 V  f! d3 {+ _) l4 S5 W    Sub DoIt()
8 d9 r: M( r1 U! i* k# l. s        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

( U, f/ N# N; m9 R( a" v& q" F        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
2 y! G% F9 j+ e. X* w6 L        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
  N" H: @: `1 R  V" W, q! ]        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
; \( d  k$ r. f! B" R! G        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

; n  \6 E! K. ?* x# ~        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

6 y) R. f) p# J& Q. [& U        theSession.Parts.LoadOptions.UsePartialLoading = option1
) G1 h! F" U, i& L# t; S
) O* d7 }$ K' p    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
' Y" d$ y" S+ ?        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
" t( G/ t& V( c        Dim aChildTag As Tag = Tag.Null

5 b' F8 Y6 L3 D! e/ x        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
" e, m% x1 j# d( f8 e
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
9 y: [' S+ i5 i2 \        Loop
4 N/ ]" w5 u" ]! Y8 u2 y5 Q& A        Return theChildren.ToArray(GetType(Assemblies.Component))
" a6 t, g, B: J2 _8 K
    End Function

) q- |% t5 s/ z    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
/ @& d* ^- E4 Q8 M1 ]7 M- Y  i            DoIt()
            Return
6 g2 {5 W. L4 V# h        End If
7 C& n+ s) I/ z: G' H
    End Sub

. D" h3 N+ T) [* M0 P* o    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
" @! s) ~9 W7 Y  {& D. q3 ~
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
8 J4 W9 o2 z7 M# D, W        If load_status.NumberUnloadedParts = 0 Then
- b6 u( l, u0 P            Return
        End If

& g+ o. `7 _2 a8 N! n: d' Q5 E        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
" T% v! O! h4 t% q' ?0 T            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
( a# ]2 c3 y0 w" r% X5 I# q        Next
+ E: p9 B$ L0 W: P    End Sub

- ]$ R( t" `6 N+ S3 Y! o    Public Function GetUnloadOption(ByVal arg As String) As Integer
1 n% K& G# W, F        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]
+ U' \& J5 `( R. |