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

admin

: F7 v9 d, O' K* l1 I: }* [NX二次开发源码分享： 打印已经修改的零件信息
' {; p2 `  H; J
/ J/ y3 H. c: W. b- a[mw_shl_code=vb,true]Option Strict Off
$ N+ [- U' W' ^1 L
% I- U, M! z. i6 v& h9 `Imports System
% C0 W5 V. A) }9 G+ `; g+ Q( BImports NXOpen
Imports NXOpen.UF

Module report_only_modified_parts

    Dim theSession As Session = Session.GetSession()
2 d8 I$ s3 u" X$ r+ u- Q    Dim theUFSession As UFSession = UFSession.GetUFSession()
; ]. a7 S1 H& ^1 e* B    Dim lw As ListingWindow = theSession.ListingWindow

+ y4 F! ]1 T$ h6 G& F  n    Sub Main()
, n+ L  T; G/ V) Z
' t  c" p! y9 ]( z        lw.Open()

4 t! S; X" S. n% S5 _- h) @0 w        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
. B2 \  i! P3 ]: j/ h        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()

        lw.WriteLine("There are " & num_parts_in_session.ToString & _
2 O) l$ D' ?) t3 P5 [3 W" D! [                                             " parts open in this session.")
        lw.WriteLine("  ")
7 G* _3 m  z: a
        For Each p As Part In part_array
+ o. p" c9 w, J- X' t: N
1 h. K" r: D: W' b' R& \  T; e: R            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

8 k2 m7 q8 s7 b  b            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If

2 Q% c* \+ h3 v2 j6 @9 h3 m' }+ ?. V        Next

! a6 H# H* c. F# I/ U3 K        lw.WriteLine("  ")
( [, i, F# V3 t% W        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
: I& V1 I1 D" H1 z  \. M7 F
7 m1 w0 [) V$ O, J! c    End Sub

/ O8 o/ l8 H2 w4 Y0 A) N    Public Function GetUnloadOption(ByVal dummy As String) As Integer
- I7 b( R. o8 P' q        Return Session.LibraryUnloadOption.Immediately
    End Function
; S/ q) T8 G& o4 g
End Module[/mw_shl_code]
' K2 S+ i. r; p, [6 Z& h+ Z* U