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

admin

' Z4 o# k' R, ?) o7 pNX二次开发源码分享： 打印已经修改的零件信息
) k1 I$ y  l9 s! \: b- u
1 j: |( B2 e7 D& C4 {; \[mw_shl_code=vb,true]Option Strict Off
; H9 W+ \2 U3 L  M& ~5 B
Imports System
Imports NXOpen
: ?% b4 a6 f: f+ Z% _% IImports NXOpen.UF

+ Y  C7 e& l( c8 I: d0 GModule report_only_modified_parts
" P* W6 m' m5 R3 P& R5 v6 S' a% i& e% T) c
9 h" k7 @- [: L$ {) T+ X$ P3 p' Y( u    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
+ Y' H+ h( c& ^$ m. S: ^
    Sub Main()
9 f2 i9 u0 R# \  g( [
% b% t' q5 t+ }) J; r        lw.Open()
* Y8 G4 G( s5 X+ |: R- u* k  Y- Z0 K
        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
$ m! `& C3 Y* V0 `        Dim num_modified As Integer = 0
' C6 K- M6 j! m- ^$ j        Dim num_parts_in_session As Integer = part_array.Length()
# f/ z/ F4 ~9 ~5 W$ E1 `
& E/ _7 @2 N5 @2 x7 y% j5 l9 n        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
! v$ o  U2 _$ f. O        lw.WriteLine("  ")

        For Each p As Part In part_array
. y6 r6 Z. v/ b* Q' @8 G
) ]& Q5 [. R, K# v# n) \- }( e            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
& e& A6 Z' r  t' t                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
% V- J: l6 k- G6 o6 X                num_modified = num_modified + 1
            End If

# W" c  y1 ]  C0 [0 j        Next
% p+ U" X5 o) J7 n2 f* b  s
        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
/ r% d. Z/ \, N; Z" Z- p  C) x        Return Session.LibraryUnloadOption.Immediately
2 X7 e( F, n5 O* {6 v/ b- }    End Function
  P  n2 S' F- _% L2 j5 T
0 X/ q6 x8 I  E/ e+ c; q8 P% `$ F. |End Module[/mw_shl_code]