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

admin

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

& F4 W- u* l, k/ ][mw_shl_code=vb,true]Option Strict Off
& ^0 l7 C2 o1 a" o* G3 m, X6 L
Imports System
5 @  M2 e. Q1 `& U6 \2 h8 K% d" CImports NXOpen
5 E5 b4 |6 C; P, B* D3 E  d4 ~Imports NXOpen.UF

+ @0 a3 y* O3 B  eModule report_only_modified_parts
, a5 U( k3 Q( _3 O
% }! V2 }, s/ e0 M- O7 x9 [    Dim theSession As Session = Session.GetSession()
7 _( _) m  ?% q) h5 G    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow

8 l, D! `1 E, K. m/ b! J: f    Sub Main()

; m3 N/ o! G* n) T6 w; q1 m; R        lw.Open()
  M1 ^4 U( Q  u% i7 C
/ a7 X0 _! e8 P% E2 t        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
' f. }- T2 f# T' j7 ?        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
+ _" m2 t  t1 m, ]( h7 m
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
' B9 o: k! ]7 [# j. I2 o; ^9 y                                             " parts open in this session.")
        lw.WriteLine("  ")

        For Each p As Part In part_array

5 V* l3 }) Q# k, w- G            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
2 z& D; `/ e, c' d  P1 H! k                num_modified = num_modified + 1
            End If

& e9 M7 I- o; b) R: Z0 p  S" f        Next

        lw.WriteLine("  ")
. C+ P: Q8 \+ [- Y3 n        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
% S9 Q" J/ [: J: r* e) j
    End Sub

- L7 ^( @: G5 G; n9 p* h( _1 V    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
( D9 \1 I; G- J7 P" P/ P
' J+ r7 s1 X: _End Module[/mw_shl_code]
" D% [% F* ?! g, T# H