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

admin

: a, T+ n% L0 U& c5 l7 lNX二次开发源码分享： 打印已经修改的零件信息

" u" v; D9 n# a$ i- s[mw_shl_code=vb,true]Option Strict Off
6 H! h+ E# O' p! n8 E1 W
Imports System
4 _1 S+ ]" i  \* F7 i! FImports NXOpen
# \) X; E' j6 w2 B( G9 J& gImports NXOpen.UF

Module report_only_modified_parts
2 R0 L0 X- _5 R$ X" p4 E$ A
    Dim theSession As Session = Session.GetSession()
5 `% w9 s' N) F0 v+ E# l) O& T, a    Dim theUFSession As UFSession = UFSession.GetUFSession()
7 w1 ^& c  |4 |    Dim lw As ListingWindow = theSession.ListingWindow
2 L& B: W( Q2 p% J# i9 N
% Z7 `6 ~" {8 ~  Q& X    Sub Main()

* m3 X. n* ^7 A- i& T        lw.Open()

        Dim pc As ParTCollection = theSession.Parts
) x& B( r5 m. f# w8 y8 R        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
/ X9 }  o1 E" E        Dim num_parts_in_session As Integer = part_array.Length()
1 A2 y# q  b3 u5 G
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
0 U- D  q8 y- O  [6 H7 f2 y        lw.WriteLine("  ")
0 {% {5 }  g, w; v
" u, d0 f4 }4 W        For Each p As Part In part_array

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

$ @7 h, N9 ]4 B5 r/ T            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
# B; V* R, X4 |0 B! E                num_modified = num_modified + 1
% i, R# b* Z, X, n: F! W; `            End If

        Next

        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

! [3 B+ Y+ q  _. O    End Sub
( C# U& y3 R/ ?% ^
$ T4 N6 v3 T3 z& m- A- Y7 t    Public Function GetUnloadOption(ByVal dummy As String) As Integer
  m8 r/ O% q! G/ R5 e4 |        Return Session.LibraryUnloadOption.Immediately
1 r* q3 G8 q+ P* T5 L    End Function
& U+ F& i% {7 s% ]4 z
End Module[/mw_shl_code]
& A* V0 Z8 y# x$ B( M  T8 O