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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
2 j" _+ d5 @! D4 u7 p, A% w! s'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
7 l" J6 ]7 _- e# B'
Module NXJournal
1 y: K/ u3 ?+ }9 ]' G    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
9 V! e/ U* Z& B    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
8 Q" |9 N! S, P7 S+ I6 n' ^+ }% u* T, U        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
/ P* Y; K/ P0 V: p, q        theSession.Parts.LoadOptions.UsePartialLoading = False
2 A- G5 q' @" K
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

( s% s! v2 M6 S+ r. h        theSession.Parts.LoadOptions.UsePartialLoading = option1
' S& e% v' Y; C) M) V
! @7 ^+ J7 B' V" m& X, q& n    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
3 m7 {" b8 g3 `" }4 d        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
. {1 x& R/ k+ C9 a' v2 j        Dim aChildTag As Tag = Tag.Null
( V4 M5 n+ Z' @" L& Z; B
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
' f) y; T7 W6 z            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
; Q5 J; w6 Y2 C: M            theChildren.Add(aChild)
9 a5 q# _! O) J: I6 z        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
- ]( O" {1 f. R. B
    End Function

    Public Sub Main(ByVal args As String())
! B) ~" v8 Z4 w- a" ]% o        If dispPart IsNot Nothing Then
' r( }# Q% [: P1 _$ x            DoIt()
( w- r. M" Y. d/ _9 W            Return
        End If
( S2 K9 M: p) Q7 |! d, b
6 _. o/ \4 S. T1 Y- r    End Sub
6 u# }# F/ z% M; ^( R2 X* k' B  c% W
% t$ l7 e/ q# `: @  {    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
- x- _" f% Q8 E% y5 G" r$ ^  d9 n        theSession.ListingWindow.WriteLine(output)
" u- m" w7 `' v, e        theSession.LogFile.WriteLine(output)
  w) s$ R" W& H# j$ v% l6 k    End Sub

: e" b8 }9 q$ s' V3 g. C) k6 K/ J' H) V    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
& }# Z4 q; f1 b" J3 e6 |" C        If load_status.NumberUnloadedParts = 0 Then
0 F' a; r/ ~/ U  u1 s1 j            Return
        End If
$ K# q! d9 I1 A; I, {( y
        Echo("  Load notes:")

; x4 C/ o! J  c4 k        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
- @# x: x* L# l( ~! n        Next
- B* w, T7 h9 G7 q, L8 Y2 u. J    End Sub

' {. z: {, H2 c+ q: t0 M+ z    Public Function GetUnloadOption(ByVal arg As String) As Integer
2 Q8 u4 U; n7 a5 c% M. V        Return Session.LibraryUnloadOption.Immediately
) n8 U% X" @* f6 O    End Function
, Z  @  L/ a5 ]- ]% I
. I- _( E' p; _  H# w, H. wEnd Module[/mw_shl_code]
0 a* C6 b4 p8 ]- M7 f1 ?# P' p