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

admin

4 v1 r  Z6 w. A: KNX二次开发源码分享： 打印已经修改的零件信息

; A5 Y5 v( m! K& ~" E[mw_shl_code=vb,true]Option Strict Off

% |: L- F7 O3 L. l- i  {Imports System
: Z$ s& R5 H5 D9 v, mImports NXOpen
) F7 ?7 q$ @2 K, u9 Q9 EImports NXOpen.UF

Module report_only_modified_parts

    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
9 J6 s; z$ m) U8 |4 i4 p: H; Q3 L
9 Y2 N( @/ o! L7 J. ]% F2 }2 C( n    Sub Main()

        lw.Open()

        Dim pc As ParTCollection = theSession.Parts
2 O$ @, O! q4 p        Dim part_array As BasePart() = pc.ToArray()
) l8 _9 I) y, N; T6 h, E        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()

* c0 A  S. Y8 D$ m; G  k" r& K& l        lw.WriteLine("There are " & num_parts_in_session.ToString & _
  Y5 A( f5 F3 \3 h                                             " parts open in this session.")
        lw.WriteLine("  ")

        For Each p As Part In part_array

            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
9 }% p6 K5 R; k3 I* B                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If

0 `5 d# ~) o- U9 @" d        Next

: W$ q! F! u' m2 o4 V4 o% q$ H        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
: D9 c% U# ]2 i0 X
3 C( G9 Y3 \$ r' F9 ?; f* y    End Sub
8 F+ Z5 d) M3 ~3 f2 o
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
+ D" Z# V% {: E4 \8 s) m        Return Session.LibraryUnloadOption.Immediately
    End Function

4 y" p" g$ H% w: O& ^$ F, |1 eEnd Module[/mw_shl_code]