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

admin

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

[mw_shl_code=vb,true]Option Strict Off
; v4 }8 ?; f, Y$ k% [
Imports System
5 \/ J, U. A7 h( I8 UImports NXOpen
8 P$ y  s  w9 U. r% M7 y8 LImports NXOpen.UF
5 t" j# l! A- ?5 R; v% |
0 C5 X' s# p4 z- \& l: BModule report_only_modified_parts
0 }" Q& h) Q, o; Y8 ~% ~7 z
* F8 ~/ D9 W7 u# r  Z9 y    Dim theSession As Session = Session.GetSession()
: K# b  ?4 R4 q6 ^6 ^& h    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
1 y% a8 Q. e( t7 n8 b, |* Z
) N$ O4 E( B) u% J4 H7 |9 w    Sub Main()

        lw.Open()
; @' P2 ~0 f) q- @' ]
        Dim pc As ParTCollection = theSession.Parts
& y9 |! Q$ H0 y) v; D+ a        Dim part_array As BasePart() = pc.ToArray()
5 x: r" y$ |, h+ @) B        Dim num_modified As Integer = 0
- H3 C' ?* H6 [* C  k        Dim num_parts_in_session As Integer = part_array.Length()
! G8 ^, d& |  e' ]4 i
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
& w0 H( C' z" K% u2 j                                             " parts open in this session.")
        lw.WriteLine("  ")
) T- a' N5 r3 z9 M) Z
        For Each p As Part In part_array
; `8 P& j! c. t2 \: m
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
0 a1 H" V) x8 D" o$ H& g; E
" u; r, P! n, K: a            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If

- ^/ F: y. t( l- E        Next

( e5 z- Y: h3 e( K. N" x+ s        lw.WriteLine("  ")
6 d# l' F. }( W1 A        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
2 M! e8 N- C4 u8 U( i- o
    End Sub
3 r% e' h1 I5 t$ y% X: \5 }
: U* \& ]1 Y0 t( k+ J3 @9 q! N/ G+ R# }" q+ c    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
. U7 p" B" R* `  s( K
( R* F2 K' i9 f$ j! g* n3 yEnd Module[/mw_shl_code]