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

admin

: j5 l: C, M# g( aNX二次开发源码分享： 打印已经修改的零件信息
1 X7 r& v! O+ g, ~: \
[mw_shl_code=vb,true]Option Strict Off

* A! \5 [: M3 b+ g! H, OImports System
Imports NXOpen
5 ^. R) i7 {1 ?+ ]5 K7 x6 ^Imports NXOpen.UF

9 ~7 e( b& i" T& ?5 X. [/ H& t3 CModule report_only_modified_parts
* N1 U8 \4 Q' c" r/ N
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
' i& J: [6 A, ^- ]: |+ n% ?  W  O
    Sub Main()
0 V3 |  N4 O/ J( b. k  a# w$ v, X
2 P  d2 s' n9 Y) E! o        lw.Open()
2 {' B6 p9 ^. y: \7 R- x7 D
! x; @$ c8 N, ~6 z- z+ Z  T3 w  \        Dim pc As ParTCollection = theSession.Parts
' I- b) K" v& x7 A) x7 _        Dim part_array As BasePart() = pc.ToArray()
0 h; B' k2 Y7 z4 t' m        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
9 Q* K2 h  W9 `7 t
3 K% r' h! n( e- S0 h        lw.WriteLine("There are " & num_parts_in_session.ToString & _
: o0 x4 |6 [6 @                                             " parts open in this session.")
        lw.WriteLine("  ")
: f4 L$ }6 ~7 D. v
8 ^' O- y4 r# ?) [        For Each p As Part In part_array
# K$ N! M% X1 G) f: D9 v/ o
- l) ?, M& G. |% `% u- _            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If
) l  `" h- P8 U, E
        Next
3 W* L: L6 Z. P( F
& l- j! C' p" H3 p) g# L        lw.WriteLine("  ")
0 }0 ^9 g+ l6 c; u& \# v* i        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
' l" O  R5 p( M) O6 j3 Z4 s7 A
! t, I8 e' U- ^) Q9 F# R+ j2 |    End Sub
/ c. d, l4 L2 ?5 p4 k( z$ V6 Q0 m3 R
# S+ U" u+ @7 P9 Q" `# [1 m    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

+ {% g( u* D; X: F, \End Module[/mw_shl_code]
9 }. w" Y$ H. _" d. D: q6 [