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

admin

[mw_shl_code=csharp,true]Imports System
4 I8 s+ t! w" k9 `1 kImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
; T/ {: x& _& u1 R" }! O" r; W$ g6 ^'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
& U6 t. l3 ^9 b" [    Dim dispPart As Part = theSession.Parts.Display
0 b, ?% f+ y: n* H# ?% I
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
( z9 V' s; o8 a: |  K+ S        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
+ R+ Z0 ?# G* k$ {/ m* L' j            Echo(allComps(ii).DisplayName)
        Next
4 J! r' W+ i) T" Z4 ~1 y
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
7 O. r8 L8 B+ b        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
  h. |! M! W* m2 U# `8 z/ D) c" p            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
+ ^& S" Q$ X' e& r
        reportPartLoadStatus(partLoadStatus1)
6 A' Q, _% g3 d4 r3 P* G, V( d        partLoadStatus1.Dispose()
" [2 U4 u2 |" N0 T. q2 v
        theSession.Parts.LoadOptions.UsePartialLoading = option1
! d3 c' m# g6 _
    End Sub
; F4 M( v" C% F5 u6 ~' o
4 f1 A0 m7 r+ m7 t# Q    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
+ @, G, ?2 ~# [' l        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

3 K6 G  N% v! T) }4 ?1 ~6 ^7 |* N        Do
; k6 n" q3 O& P# H$ o  Q* b            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
: f9 W% L0 b" S( R% m  ?/ s8 r
* ~' C: j3 d4 Y            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
9 y8 i4 h% c. U5 i. j
+ S; [, _  z  R# a" j    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
6 h  ?$ r" x: L$ v        End If

& s9 i4 ~! X7 [. V    End Sub
* L* i8 j# b0 N6 \/ x" }. |5 C
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
4 Z; z: Z9 a, \; D0 D. ~    End Sub
6 F7 r5 P% d: ^& R
2 h! e5 a' v& I' g* s3 ]; F    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
2 l9 c1 R: o8 N% U+ J        If load_status.NumberUnloadedParts = 0 Then
            Return
1 f) u8 W3 Z% U, _        End If

        Echo("  Load notes:")
: b* v( n+ _6 Z$ P1 x2 R
9 S  P1 f! ^& F        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
: ~, r5 d% ~! I' b- W& H
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
' D& ~8 F0 ]" |( [" Y- B3 M% ?# i- m
End Module[/mw_shl_code]
( S4 |" b4 _( H: M' I