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

admin

NX二次开发源码分享： 打印已经修改的零件信息
9 O' T9 {5 _0 w3 k7 E
[mw_shl_code=vb,true]Option Strict Off

+ p- W% e7 H* t1 {+ d( TImports System
3 r& t4 `$ N: z! O: ^0 ?9 M( hImports NXOpen
  Z$ ~+ R. m7 E" SImports NXOpen.UF
& J' B3 q7 C" }' W
( Y5 C8 J. J( K* T2 P# PModule report_only_modified_parts

# O" Y! Y3 e6 P( [7 v    Dim theSession As Session = Session.GetSession()
! ]5 Q% G* g# ?- G" D, h6 m5 `% U    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
+ R/ ?; j: q, C7 Y0 q1 M. d
    Sub Main()

' }4 B2 L' d$ Y) f3 l" `& m. X        lw.Open()
0 L) n5 m% b9 t7 j1 q
. r5 h" w4 Q5 d7 t  W& ~# F        Dim pc As ParTCollection = theSession.Parts
. ?; J# h+ L8 x4 o% A8 B        Dim part_array As BasePart() = pc.ToArray()
  Q# H! z: j; O4 y        Dim num_modified As Integer = 0
+ p) ~. [' H4 p" e4 t. n; r        Dim num_parts_in_session As Integer = part_array.Length()
9 F. y! [4 f8 B9 j
3 U, R6 J( [6 n. O" C& ?        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")
9 \: c& {; ?. G, k. e, q
) r; w& _+ l4 {/ c. `        For Each p As Part In part_array

% u/ i' f6 R  L' s+ o            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

' z3 Z# G' `6 i) }$ o# L            If isModified = True Then
9 T2 }0 A% n2 K! V3 G$ Y2 }                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
! r! }4 ?0 j& z                num_modified = num_modified + 1
  W6 o# g0 l, h8 k! C# E            End If
9 L' B) O, {+ Q  i( k
        Next
6 u  L1 f( [" ]+ c* Z9 A. w
        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
9 b2 I& Y) n+ D6 f
    End Sub
! \4 T; G# f9 f' Y2 A" p& G
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
5 I5 R. n' `& P9 O  V    End Function

End Module[/mw_shl_code]