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

admin

) J" d8 ~; U% R0 F' A( h* uNX二次开发源码分享： 打印已经修改的零件信息

[mw_shl_code=vb,true]Option Strict Off
) C: r/ {% p: `3 q
Imports System
Imports NXOpen
7 H8 G* j5 c. o. O& ~+ vImports NXOpen.UF

4 q- A/ I7 S; h3 M( mModule report_only_modified_parts

0 x) v  s$ I) f2 I    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow

" L5 N  [' [: w( k    Sub Main()
  A: A% {3 L6 h
        lw.Open()
3 G6 @3 F- V/ P0 Q/ f" h0 e
5 \; N( G2 b6 r2 E- ^4 F        Dim pc As ParTCollection = theSession.Parts
; Y: w$ m# x1 c4 A% g/ H, c8 p        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
" \+ p6 r4 c6 Y& Y% @
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")
6 n9 k  P4 \8 d. W' x$ G' ~- ^
        For Each p As Part In part_array

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

. s4 L0 u  D+ w1 w1 v: e            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
& h' i% K9 j, a/ I8 P4 }            End If
! t, |5 p0 H+ A8 l' X
/ ^/ v0 B, h1 m        Next
/ |& r+ x4 o/ o1 U2 r! H
4 Q  {5 _& J" e        lw.WriteLine("  ")
9 B2 E# j7 @. p        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
" Q5 l# d6 g5 p( t  |* p; v. V$ d
4 C5 |9 e5 b; q0 S# Y1 R    End Sub

; D8 r1 m5 {7 w) @" L' r* y    Public Function GetUnloadOption(ByVal dummy As String) As Integer
7 V8 @5 q& X! y# F3 R2 X        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]