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

admin

% ~& S0 r0 W8 V/ ANX二次开发源码分享： 打印已经修改的零件信息
5 t9 Y. z; h) u6 t0 V
[mw_shl_code=vb,true]Option Strict Off
! T/ s2 U+ R- C) U' o
Imports System
/ X$ s' `  i$ H( HImports NXOpen
: b8 b1 k! f( ?6 V1 O: {Imports NXOpen.UF

  P& J6 F- y- }+ i: DModule report_only_modified_parts

    Dim theSession As Session = Session.GetSession()
5 g- G" X  ?0 O, g* |$ P    Dim theUFSession As UFSession = UFSession.GetUFSession()
4 ]$ f' b' b4 Q! h2 u9 i: w! B/ m    Dim lw As ListingWindow = theSession.ListingWindow
# V  L  n2 Q& S0 }3 @* {) @
    Sub Main()
2 M1 j) Q( I2 r7 t, ?' z
        lw.Open()
" P6 }6 |* L" T% G
        Dim pc As ParTCollection = theSession.Parts
! \. Y* \6 K& ~# c        Dim part_array As BasePart() = pc.ToArray()
, J& m2 J* [# K  j: G6 {        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
  `8 }* i4 d5 g6 Z3 x
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
) s) Q" B1 D& m* R: c                                             " parts open in this session.")
        lw.WriteLine("  ")
) S+ d. h& @8 c+ u
        For Each p As Part In part_array

- P# I# E  L: C5 h& a% {            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
% c, D; w8 x3 h) G
            If isModified = True Then
9 P: X# y1 A( q2 [3 b) T                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
9 G0 m9 {% I( J! N                num_modified = num_modified + 1
0 ]! c- H8 F+ @8 H4 D2 u6 a& T            End If

, W  y. b8 j0 u; _! a( `# [# [1 ^        Next

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

    End Sub
; N% @, ]) m4 b6 q
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

# j% P" c* S: N' J4 b8 Q  fEnd Module[/mw_shl_code]