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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
7 w. ~1 G/ f" ]! v) g) ^+ l'
1 e2 i1 P$ n* |% R) X, u. ~1 [8 v7 Q' The OpenComponents() parameter
- c# L* i/ Q$ m3 Y/ o+ F" q0 j' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
0 v: s; j3 g$ ]8 T7 D+ _% g7 C    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

) a& `6 s8 Q3 \+ z0 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
$ J- Z* B& H# N; b& V* P) U            Echo(allComps(ii).DisplayName)
" T1 V+ B6 m  ?2 V$ E: Z' j        Next
7 o, \+ b0 V1 y
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
/ w/ P- W, ]! u6 j4 r( Z0 O2 X# c        theSession.Parts.LoadOptions.UsePartialLoading = False
. M' \( w" w. S
% ^: B. F/ d# n$ m        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
! o+ Y4 B9 @4 r# |1 r; g: |2 \, Y
+ ?; d  U0 y- L, L4 p! w, U( [        reportPartLoadStatus(partLoadStatus1)
" c9 a3 k8 z9 A* j! u) |' p        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
" N- K6 m( M2 t* X9 X
" ?1 h( L" J  |9 t7 y% }    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
( [$ g! ?" r( H7 K, p6 ~7 D
        Do
4 T- ^5 W3 z( g# ~3 C0 }            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
/ I% P  e7 B9 e& _/ s: A! z            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
2 X9 y1 m- ?! S+ ^$ B, I& ~            theChildren.Add(aChild)
        Loop
& W! Z! ~0 j+ P" n6 \! J9 k  A; A        Return theChildren.ToArray(GetType(Assemblies.Component))
8 F4 D' B# p1 b8 e
. R. X' {( g9 R' I8 j1 m, ^    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
7 z7 c3 ~: V1 w$ p' M8 P            DoIt()
7 ]1 X1 j' l" D. }4 f% A            Return
/ D+ L; u$ H; Y6 B        End If

5 W4 n8 u; h, o* {$ D: R( w3 ~; @3 g    End Sub

( H' P3 a' F9 _' Q) f, \& _* m    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
7 `$ `2 _- u7 ?9 A4 c0 t        theSession.ListingWindow.WriteLine(output)
/ _# _3 O2 F+ Q( Z        theSession.LogFile.WriteLine(output)
    End Sub

2 b! N, L1 u- @2 d5 i    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
8 W4 n0 M/ G9 v& s        If load_status.NumberUnloadedParts = 0 Then
4 j) Q* R7 D2 ~6 K6 m            Return
1 O, k4 k8 @# C        End If

        Echo("  Load notes:")
7 x5 o6 A3 H; y* E% n
$ C! S* w% S3 A3 A4 x' c6 N! n        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
7 Z; _# h% b7 @9 [% ^7 g
    Public Function GetUnloadOption(ByVal arg As String) As Integer
5 f) F3 w% S" x2 h        Return Session.LibraryUnloadOption.Immediately
; l6 Q5 T7 v, U0 m; Z    End Function
! w# v* G$ B) _
: T4 q' ^) }+ j; b4 C1 b# \9 ]/ REnd Module[/mw_shl_code]