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

admin

[mw_shl_code=csharp,true]Imports System
! g& Y3 c' s& ~  ?% |5 Y! C* }4 A, ^Imports NXOpen
Imports NXOpen.UF
0 p& e, A* L$ L3 r: `* i  O7 CImports NXOpen.Utilities
3 _8 E7 E+ H8 j'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
. f0 F1 S1 j3 E  w2 |8 S& X' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
& T1 ]+ N: ]4 p; z* t- }4 L    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
) m6 T5 G5 I; {! Y5 L
3 t1 {$ ~' u) P' {8 ?/ D    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
6 f. ]2 |6 E$ N: e! g        Echo("Number of Components: " & allComps.Length.ToString)
2 w$ M' J: T5 l        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
* j0 N" l- m7 W! Z2 v% p        Next
9 F" r+ \1 D6 p9 @& e
" [* C1 m% j" N# u9 }- N        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
6 w2 L% c8 s2 V+ J$ I        theSession.Parts.LoadOptions.UsePartialLoading = False

  C$ Z/ `) `- {1 m+ j% K' I        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
# _2 B1 [  Q. A        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
( e2 [# i2 q& d8 R  @; m- {            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

- b# _  a  `- x- N( t, x* f* K        reportPartLoadStatus(partLoadStatus1)
3 m( P2 C- q9 a' f7 P        partLoadStatus1.Dispose()

5 t' \7 g, b( g" e! ^: N7 y: p        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

6 g* x1 V7 ^% g2 w' i8 m5 f; Z; {    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
+ p8 ^9 p" K, G9 C# \! h! p- m        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

6 }6 j$ p" n% `* E+ B  e9 E$ ~        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
" U4 ^1 n2 O4 c  r( j  F            If (aChildTag = Tag.Null) Then Exit Do

. r  I+ O! N' F3 T% @  u            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
, c  g5 U4 V# @& t0 k2 b4 U* w            theChildren.Add(aChild)
6 ~; e( Q9 ~2 ?  d+ [. A        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
1 e1 o1 B. L  y/ E( P9 ?
    End Function
4 X8 j: F* L( E6 |9 b
6 N8 d, r9 h( H. |# y9 ]) P  d' i    Public Sub Main(ByVal args As String())
4 k' k' A. p% a! ?6 e  Z        If dispPart IsNot Nothing Then
            DoIt()
            Return
& m/ L! B6 ?* c  g        End If
( j* |5 O7 p  w& T& T5 y: [. a3 S
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
7 h' H$ n8 _; r2 N+ w        If load_status.NumberUnloadedParts = 0 Then
3 R2 D/ L* [3 {8 H) r7 z            Return
        End If

4 S& Y# ]' Y( l. J& ~! m. w' @        Echo("  Load notes:")

# f6 ?3 O6 f& }5 v        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
* A# h& ^! W* H1 a( x9 s        Next
1 o  z' c# H  q/ U    End Sub
& N7 b; h8 `6 j- ~' V5 }
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

6 s9 R% ]- x" L: S1 j) s4 R6 c* J3 sEnd Module[/mw_shl_code]
& `7 V4 o' X" K  P8 V9 R' E