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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
* V: U5 N7 K# z& |* j& OImports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
% B, t) D* @) e1 k# g! E; @# F' only opens unloaded components fully (see also PR-8406345)
' w; S! d7 a+ V: U; e9 _" M$ H' Workaround: collect and open all components individually
% X( e1 y8 H; T# Q; }4 z! H7 k'
Module NXJournal
0 F) D* N5 t7 a- `! n# B4 x    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
  ]' o; ~. I6 `    Dim dispPart As Part = theSession.Parts.Display
' e; x9 W3 o8 n; u# G" C+ n" X
    Sub DoIt()
, y0 x  ^6 L2 P        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
/ B& M8 m, {# \& u. w0 m7 d2 a            Echo(allComps(ii).DisplayName)
        Next

6 E8 o$ b' G) K        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
' E3 V6 W/ T* x% ~5 c5 E        theSession.Parts.LoadOptions.UsePartialLoading = False
0 T" ]0 r& W' n+ D/ X
; F/ ?6 k2 \6 n# \5 E% d        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
# R* u; ?- i  _- ^* ?5 R        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

+ y. {: m1 g0 w6 |# ^9 B- C- K        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
; L$ E6 z2 ]0 N! R" w
8 n' a9 f" d% Y. k& ~        theSession.Parts.LoadOptions.UsePartialLoading = option1

: @% k! x7 ?* [% d: n4 |' x    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
. ]5 `6 B& M9 ^  F( ~
: w- G1 C8 A. _        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
: i) F0 o& y0 s            If (aChildTag = Tag.Null) Then Exit Do
; L! `. Q6 r9 |
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
4 w9 r# W" Z* Z$ i            theChildren.Add(aChild)
$ `' K, W, {: }. S2 ]& z& t# ]: \        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
5 y" u* w4 R; D
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If

    End Sub

8 m& r. ?& t* r5 s! ?, n    Sub Echo(ByVal output As String)
* e$ ~# S+ Z; R% i' Z2 r) l        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
, P1 S, U% z! S+ T+ K) Y) G! T    End Sub
3 j6 F. q( H9 ~( o- u
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
4 M8 f, j$ O) i7 h" [8 V$ j        If load_status.NumberUnloadedParts = 0 Then
" d  x- z+ e& t9 W+ O4 j            Return
, ~$ W0 \4 d' F7 e1 Z( _5 w        End If
* n4 ?' t( p+ E" F
+ w' y9 @' I0 ]( x8 Q        Echo("  Load notes:")
' N& d8 n* J3 ~+ p- ~7 H
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
! L/ e5 S' m7 S            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
6 i! _; k( z& ]4 k  E, ]4 M        Next
    End Sub
6 h5 I& Y; G* S  S9 N
% m2 x/ b" w$ S    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
! Y4 a9 o5 g7 o! ~    End Function

; d8 U4 P2 m: w! t! NEnd Module[/mw_shl_code]