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

admin

[mw_shl_code=csharp,true]Imports System
8 k+ J& f5 l) XImports NXOpen
* Z# S+ k/ K. }1 T: s; WImports NXOpen.UF
# [% r1 C- i6 A3 S2 p+ {* K, lImports NXOpen.Utilities
1 m; m& E2 _; Y. f! s'
( ~8 S3 Y" ~3 _0 Y/ M, E9 g0 ~' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
3 h. \( X+ [( ]'
Module NXJournal
8 A% @- Z& Z: j. m    Dim theSession As Session = Session.GetSession()
, o' `! A7 i) R    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
- ], T2 P/ E+ X9 s1 T0 M* ~( T! G        Echo("Number of Components: " & allComps.Length.ToString)
% T5 Z+ g4 x- X; H4 J# w7 }6 t        For ii As Integer = 0 To allComps.Length - 1
2 S! j: w% F0 C            Echo(allComps(ii).DisplayName)
% Z  \+ K* H1 x5 [        Next
8 v) w0 C9 V: z4 v. w1 M( L3 v- Y
* y3 g; D" J1 H5 _3 i        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
9 A5 ?$ r: c* \' [- h, v
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
' k2 y5 {% f, A' M% b2 h9 a3 v        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
# c6 U  W) e1 X3 I
        reportPartLoadStatus(partLoadStatus1)
$ E, d3 W1 s1 a/ Q% b0 A        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1
- b# G1 D' D; c0 `5 c- V
3 o+ s3 I% O. ^2 {    End Sub
# z6 k$ X8 c5 x% S) ]+ b
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
% |. g* E2 ]+ @0 `# F/ W* f( Z        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
1 ~' s3 D0 x1 K1 S9 ~7 e
0 [6 O. ~3 ]$ d9 x6 A        Do
" U6 k+ T6 e( f3 r( b            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
2 t( k# X& F7 |: e) @            If (aChildTag = Tag.Null) Then Exit Do
. ]! q. L2 ]9 C$ @  \* O3 Z
5 k) P+ W1 D! V* b            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
% f0 G( X5 ^7 e& w        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
; h1 C1 w% n$ q! B! ]' s
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
  w: [# u# A# c7 A
4 w' I4 k( \; ]8 r$ i, I" l& d    End Sub

& |1 w& s! R- |; T9 u" J    Sub Echo(ByVal output As String)
8 S% C+ b, z' ~: n4 B% A! ~  t$ w$ n8 z        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
6 O( h  `2 `( K6 |  i0 C        theSession.LogFile.WriteLine(output)
    End Sub

, Q- J6 l- G" u% v    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
6 L7 v  A. y( `4 s" g        If load_status.NumberUnloadedParts = 0 Then
            Return
! [* M( H, G" p* W7 X( g        End If
, [; g* v: F; B' z7 G0 k
) X. M6 _0 a% r3 |0 H( Z! f        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
4 O# t2 ?( w! X1 e) H: z& z8 c        Next
    End Sub
+ E9 q5 |  O5 l) S1 l5 j
    Public Function GetUnloadOption(ByVal arg As String) As Integer
! |: _- T. e- ^5 H' e/ J$ b        Return Session.LibraryUnloadOption.Immediately
    End Function

# x' c' @/ G# J1 T$ Z4 _: P4 sEnd Module[/mw_shl_code]