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

admin

# l8 C) d3 X, @9 dNX二次开发源码分享： 打印已经修改的零件信息
4 ^8 ]) S+ j4 ]# J
[mw_shl_code=vb,true]Option Strict Off

+ x0 y3 f1 M7 Z' LImports System
* T2 `8 D! C$ Y" _0 p+ \8 gImports NXOpen
/ p) N; I' E6 D0 H3 }& vImports NXOpen.UF
# \+ h. I' V% y' B3 f0 _, T  f  Y
! v& W8 W4 r2 N& n$ cModule report_only_modified_parts

2 Y8 P9 h' L3 Q# b    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
, K! I% U1 {. R; ~6 \( z    Dim lw As ListingWindow = theSession.ListingWindow
5 n; y+ u+ y$ X. p8 H
    Sub Main()
  [; S" }' k5 e( h; m# z, n
4 y+ a' @" Q' S. t) {" R# Q% ]        lw.Open()

        Dim pc As ParTCollection = theSession.Parts
* X- z& P! i$ T        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
7 o! a. p9 i* Y' C        Dim num_parts_in_session As Integer = part_array.Length()
" P7 B, x7 V; b8 O
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
8 J" u, a1 W7 E; H$ Q3 c& a                                             " parts open in this session.")
        lw.WriteLine("  ")

) c) b, L, H. C7 C0 G+ U! D/ N$ U        For Each p As Part In part_array

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

' J% e6 U+ [$ T6 ~# F            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
. [4 E! h+ |" `/ z% y                num_modified = num_modified + 1
9 W/ O: C: J$ f4 z! n            End If

        Next

) B8 }5 ]2 y+ \" Q- j- P. K        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
- w- B$ w* s. |1 _1 L
    End Sub

8 B) I2 T5 q4 Z    Public Function GetUnloadOption(ByVal dummy As String) As Integer
# k0 X& L4 O  x        Return Session.LibraryUnloadOption.Immediately
, a" y! G; y, k    End Function

End Module[/mw_shl_code]
) G" Q) K, r; P* ~1 Q" K