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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
. l9 p" N' e- c  Z6 OImports NXOpen.UF
0 N8 Q/ W4 Z, j4 K, m7 ^Imports NXOpen.Utilities
7 y: o' S5 w& I3 `+ f* B'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
& Y' @$ j0 f5 |  V# F+ O' c' only opens unloaded components fully (see also PR-8406345)
% I. _4 e5 w+ z! d' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
3 q' f7 W" I8 `. ~1 N! {  u* ~    Dim dispPart As Part = theSession.Parts.Display
- B! ~" [: C8 Z" o
) S) S9 u% ?, Z* z5 c5 t  }    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
; x  |1 ?- y, Y2 d) N( k7 ]9 k2 {            Echo(allComps(ii).DisplayName)
        Next
" B9 w) U: Y9 }" O* `9 Q  [
* ^* N4 B1 K- b' d5 p& |6 M/ u        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
. o+ h' q) ^& \: A* T) W* S        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
9 y- t5 ]( w6 c- X0 h  B" O7 h5 {        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

+ @* D7 V8 s3 j        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
4 @- f' \" y/ @6 o8 `& R8 H
2 t, w9 a3 m! f! ?0 _# `/ \! a$ E    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
0 ?' w& Q5 G1 a9 B  h* R        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
  Q' c$ j8 C- {
( t7 [  N' o& |) P3 {        Do
4 o: ^8 c  ?7 H# E            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

: A, f4 I. j5 `( O. S            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
, G5 t! [; M. t% v+ F! |6 {        Loop
$ }$ u' s/ h% ?6 p" M        Return theChildren.ToArray(GetType(Assemblies.Component))
/ F8 n( b$ ~. t2 F( d
, k3 K* i' h5 g  |. f3 ~0 m) V    End Function

    Public Sub Main(ByVal args As String())
% m- }- r$ m) O. u) w# j        If dispPart IsNot Nothing Then
            DoIt()
$ I+ T: z+ Z* q# J# Q            Return
5 K( t0 x* _; t        End If
/ `8 h5 H7 O- W' ~
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
+ x6 G6 @+ N8 M& ?/ }! j( E  P3 s& ?        theSession.ListingWindow.WriteLine(output)
- Q* T+ f1 |+ q  i        theSession.LogFile.WriteLine(output)
$ C& V' r! O9 [0 \+ o    End Sub
3 N; `  ]' \- i! `& Y* f
* P. p9 k5 T$ o    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
4 T) `( H7 b! W1 |" o% l; m        If load_status.NumberUnloadedParts = 0 Then
: z) J  v: }' i  t+ V) n1 `! p" t            Return
        End If
1 M8 H7 N# z0 i, S2 S
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
' B3 T) x8 i* z, T7 F; i
$ t5 @9 u4 u/ A! w& Y6 i) NEnd Module[/mw_shl_code]