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

admin

[mw_shl_code=csharp,true]Imports System
) ]# N1 c, Q% OImports NXOpen
Imports NXOpen.UF
5 `* ]) B0 |+ ]2 l' G2 M- WImports NXOpen.Utilities
, h& @& g# @! b7 m3 O'
6 v8 J: N  _5 q4 ]' The OpenComponents() parameter
9 g% _- p* _7 M7 q( h% {* D' W' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
0 M9 N6 D; D9 f6 h' Workaround: collect and open all components individually
'
Module NXJournal
/ \  z. F" Y4 G9 e+ G; y* d    Dim theSession As Session = Session.GetSession()
2 W& a% l4 e5 z, u9 q$ U0 w    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
; j9 j& m6 l/ \9 S, V- {
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
* A! c% e& M/ N0 Y4 Q) h        Echo("Number of Components: " & allComps.Length.ToString)
, v+ L! W. `0 ?& m  D        For ii As Integer = 0 To allComps.Length - 1
: e0 U1 F  a1 c* `' U2 S$ u- X            Echo(allComps(ii).DisplayName)
2 p$ m: [) g3 ]& ~        Next
% G' f; P* B9 v3 N
2 A3 N4 D$ i0 ]( X* F        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
3 D6 \0 t5 N# f; X        theSession.Parts.LoadOptions.UsePartialLoading = False

3 |/ A6 Z- C+ o' O        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
/ d9 \  T# J4 r+ A8 s- Z. N9 X        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
0 w3 v( m& D, l% X* Y- u        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
4 g. E: W. c$ ^' g8 a0 e
$ K0 N, L. X$ l6 O/ h3 S        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

5 u3 A' a/ ^9 Y: J% U    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
- ~( ~2 F& @7 T        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
5 A) y  E1 N5 v        Dim aChildTag As Tag = Tag.Null

        Do
. _4 b. K' U: T' @! ~7 E- ~5 a            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
0 t: {$ @" g- e            If (aChildTag = Tag.Null) Then Exit Do

' l# q5 I% w9 Y! y            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
' ?& G8 {/ Z5 ~" J" r/ }0 ?- ^            theChildren.Add(aChild)
        Loop
. o/ M. o- h6 @( x        Return theChildren.ToArray(GetType(Assemblies.Component))
$ V  t2 g7 P& o4 L6 k
    End Function
( p* f% Q2 }9 D/ t9 u8 y/ w. t
    Public Sub Main(ByVal args As String())
# X" N; Y7 ^# L6 m+ i        If dispPart IsNot Nothing Then
( d2 ]+ G# h0 n" @5 M+ ]            DoIt()
            Return
! N- u2 F$ V5 Z6 ^5 T        End If

+ i9 j: e: l% G9 I/ q    End Sub
/ X+ C2 k( i5 D7 x
3 M3 B2 i# M  H% [    Sub Echo(ByVal output As String)
8 h3 t4 Y- I8 j; k/ U: c8 c        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
2 e3 R" p5 h& p$ F5 H        theSession.LogFile.WriteLine(output)
    End Sub

) ?4 S/ u6 G9 J- ]: J6 [    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
3 L+ x: |8 C$ c4 C$ ~# U            Return
        End If
  @: _) S+ B9 Y+ Z. k
        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
2 @% ~1 J' k. M- R0 F1 g        Return Session.LibraryUnloadOption.Immediately
    End Function

6 I. k, a1 s! g$ X) l2 P3 J) H4 cEnd Module[/mw_shl_code]
: w! r7 P5 o6 |( Z( E