NX二次开发源码分享： 打印已经修改的零件信息

admin

  u% g* w+ {+ C0 j* W9 A, UNX二次开发源码分享： 打印已经修改的零件信息
3 e( r5 {. s6 C( ~. E
[mw_shl_code=vb,true]Option Strict Off
7 f( Y2 f& r2 s$ E1 R' q
Imports System
# y  u) Z: k! l7 K; YImports NXOpen
6 W: H8 U5 W& ]) {* dImports NXOpen.UF
/ `1 b4 w8 c7 R( R/ k3 U
" z6 o- h, {# z, QModule report_only_modified_parts
+ C6 G8 g# [5 O
4 S- Y! k; C6 ^% P    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
$ E; q. m1 b! Q    Dim lw As ListingWindow = theSession.ListingWindow

    Sub Main()

        lw.Open()

        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
: D* i1 ^+ t' D8 I        Dim num_parts_in_session As Integer = part_array.Length()

        lw.WriteLine("There are " & num_parts_in_session.ToString & _
- Z$ G! d7 Y0 {' E5 k  L( ^/ w0 g4 J                                             " parts open in this session.")
        lw.WriteLine("  ")

        For Each p As Part In part_array
: f: O  O  I7 R
* B3 ^3 H! f2 l+ x0 U2 w            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
3 [5 u" u) i) J; k                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
  M% Q( T" M3 {8 B& i5 ?1 l            End If
' c9 ^% z6 y& ]
        Next

        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
7 L7 O+ V  O( n( y
    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
+ k0 a2 B; {# e2 @! `. X        Return Session.LibraryUnloadOption.Immediately
  T3 G4 j  K7 i) ]' E, Y9 u& p( _1 E    End Function
4 {9 B6 t! h  D4 \# t# L7 B+ q
End Module[/mw_shl_code]