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

admin

[mw_shl_code=csharp,true]Imports System
9 ^3 X7 K# `+ a" P: @) c2 |4 j. xImports NXOpen
9 P' L1 {0 e# o8 BImports NXOpen.UF
1 x+ h3 b9 z8 X9 V0 X) b" ZImports NXOpen.Utilities
+ M  Z* s9 A: @'
$ C5 X& u& X6 Q7 I' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
# _, M4 t5 ?. v' C6 t# P* E' only opens unloaded components fully (see also PR-8406345)
$ R# g  M( G# z# H4 @' Workaround: collect and open all components individually
'
Module NXJournal
$ `! G+ W! l& Z    Dim theSession As Session = Session.GetSession()
' R6 F  E& _* e% X& U  W. k    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

" j: T0 n2 T5 U* ^4 O0 A1 r    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
4 l  m6 {8 F) S) X/ Q4 j  U            Echo(allComps(ii).DisplayName)
  u5 I/ m6 k3 |. ~" P        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
0 b  B9 m! A# ~8 @' T2 W0 F        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
  N1 ^/ ]: j2 h  A        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
# I' J" s, [  B8 ?4 u) I0 T        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
9 [) [" d% }( B/ W% m" `- ?3 f- \3 F            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
: f. u4 x% y$ M$ a
& ^2 |3 T7 F1 c1 C8 X) f/ {        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
4 F! d' |9 l5 O7 A, _/ X; t% l
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
# ~# }7 ?% A) Z8 m) {6 W
2 l) U  b) E, c7 {4 F        Do
5 _2 q/ @+ H8 B' R3 M/ r8 H            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
3 L- h& k3 U7 {1 u+ n6 s9 P+ V2 E- s            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
  U$ J, [7 _$ W, e4 \  D        Return theChildren.ToArray(GetType(Assemblies.Component))
3 H* S& p  K* q' N5 H+ d# p
    End Function
& K8 q6 \( T9 [" x( n
    Public Sub Main(ByVal args As String())
6 x( c$ t+ T  t2 {$ P5 @1 Z        If dispPart IsNot Nothing Then
+ S! S4 ~. h/ J8 a$ ]/ f: ^6 G            DoIt()
/ S* F, R& z* c' ?4 B  _+ i            Return
' e! z( S. \. {7 c: z        End If
! }# H& a7 B& ?- `5 P+ @  F& [( D2 r
    End Sub
* e  N) B: X7 K% H' J1 i" N
7 F1 W) i& L+ h% t! E  x    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

) T, Z4 C- B( S    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
9 N. j* P& Z0 J- |: s: P        If load_status.NumberUnloadedParts = 0 Then
7 ~8 t$ g5 R! K9 Q6 f8 {            Return
7 d1 s+ a2 V! f$ c        End If

        Echo("  Load notes:")

# g0 o9 ?0 e* x& j6 s# p        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
9 T6 c' Z% [/ l        Next
    End Sub

4 W- V' K; S5 D' D& f    Public Function GetUnloadOption(ByVal arg As String) As Integer
4 \. X" ]7 [+ u" y; b: }        Return Session.LibraryUnloadOption.Immediately
3 W. w- o. r: q: C! c    End Function
9 Y$ ^0 w3 `! ]9 E& h
3 J! Z5 r. F. m( xEnd Module[/mw_shl_code]