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

admin

4 D) ?- D! W  b9 ]) o+ |NX二次开发源码分享： 打印已经修改的零件信息
. o5 _; D4 J, X( z" J9 {0 P
[mw_shl_code=vb,true]Option Strict Off
3 g) n1 O0 }4 K: s
Imports System
Imports NXOpen
Imports NXOpen.UF
2 q" S4 y" d; v" o, V. A
: d6 f. l* T3 H! L! ~; QModule report_only_modified_parts
* Q( ~/ B! W! ]. k5 n$ y
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
% }. ], s7 L- A1 p) u    Dim lw As ListingWindow = theSession.ListingWindow

    Sub Main()
, |; `' w  m4 c9 w) H" K
7 X  l. B+ A8 _1 Z5 W! q2 _        lw.Open()
4 m) e. B7 |. \7 u5 p9 w6 E
        Dim pc As ParTCollection = theSession.Parts
& r( \$ S" D6 M2 S: U" G        Dim part_array As BasePart() = pc.ToArray()
' P3 G: X! q3 v8 n        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
  f( d* K$ M$ r0 `/ ]! ]3 `. A+ ^8 ~
% Q. N6 U. c0 W" i) q( b+ b        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
# B; I- c( {( Z; }& x, a  T        lw.WriteLine("  ")
, w; \8 f' d& K+ l" S
        For Each p As Part In part_array
) ]. ^: j6 C6 q5 o4 n: E
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
3 P$ J4 M( _1 H4 M' }
. d3 K6 f/ ?3 H0 r            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
( U- d7 O4 x3 P                num_modified = num_modified + 1
; v, t0 ^( B8 y            End If
! i/ O: u6 u1 d
' D8 X$ j( g2 J( K7 ^" y( J        Next

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

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
9 B4 F" T9 M' m$ B3 i1 q        Return Session.LibraryUnloadOption.Immediately
    End Function
& V' H( W$ ?- M7 J. {
End Module[/mw_shl_code]
* @) l! r$ u% J