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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
. h  `9 j7 R! Y- u/ f& o: kImports NXOpen.UF
* v  L, ~, J$ n" AImports NXOpen.Utilities
# |* o) i: m$ t2 H' \9 L'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
0 A8 U2 p. S2 S3 i% c' Workaround: collect and open all components individually
  l  c$ L; b* n$ t'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
% O0 Q6 _, ]& M1 L7 h3 S5 Y    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

3 g+ |( e; L1 U2 J$ k- Z  f* C    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
2 {, ?2 ]$ t6 Q1 N) K! h6 f9 e        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
6 M) q" L' W+ Z6 [9 n9 e; u' k            Echo(allComps(ii).DisplayName)
- F" @3 f9 A1 [; d7 Y        Next
$ O8 F/ {. |; Y: c) N& ~: q$ ~
( a% L5 m& J. N        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
( ]2 q& [1 I1 b/ e        theSession.Parts.LoadOptions.UsePartialLoading = False
: L* i% a' k$ r" R  \
+ R7 B$ f$ N" ?$ x$ J! C, e3 ?        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
) ~, s/ c1 p0 ~- D& W3 K8 H' Q        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

" f/ j9 G/ C2 |        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
9 G/ [0 l* ?) s7 P
        theSession.Parts.LoadOptions.UsePartialLoading = option1

! B5 E7 T- G0 }. [0 z: |    End Sub
9 b1 O$ }" a; v7 F8 B) J, C
/ d3 _( v) o) s/ n    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
9 T2 ]& t4 `2 g4 {' S; z
        Do
1 ?$ p! P0 f4 R3 q            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
, V3 s/ d! k- |
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
7 ~; ^- f- R; F; }5 ^& S/ }, C            theChildren.Add(aChild)
        Loop
: j7 a8 l5 e* D6 q  O        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
  R7 B" p1 }' \; I        If dispPart IsNot Nothing Then
  ^; u! G7 f- e7 R            DoIt()
4 Q2 j& a! c7 u# Z3 P. L            Return
        End If
8 K' Z' R- `/ {; x& k
    End Sub
' }1 j% P; S3 d3 f1 X
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
- i4 f+ J' A  W4 L    End Sub
; `- U2 j% I' r
2 A7 E* ~& R& f# b    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
' ], B8 C/ t7 B3 l! c        If load_status.NumberUnloadedParts = 0 Then
+ K; y; a* `% {. D            Return
& r! T1 u5 g$ Y% q. f1 P1 E( t        End If
) H: M/ ^, k  E) C( b( z6 q
        Echo("  Load notes:")

! j: G. C0 X, X% b6 J        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
+ J. ^& m6 v; q# P5 X. X        Next
    End Sub
! y5 d+ v  G. s6 B* A2 Z
; p: x' ]0 g$ ]1 F* E    Public Function GetUnloadOption(ByVal arg As String) As Integer
7 }. M1 M5 ^' b        Return Session.LibraryUnloadOption.Immediately
4 x3 s5 I8 S, r: B    End Function

End Module[/mw_shl_code]