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

admin

( C8 W+ g+ [) X& P1 jNX二次开发源码分享： 打印已经修改的零件信息
7 t3 a8 T* ^, w7 m7 r- m2 k
[mw_shl_code=vb,true]Option Strict Off

Imports System
0 C/ A8 d2 F0 T! ?6 g- KImports NXOpen
4 ?6 q# G  |( E" DImports NXOpen.UF

Module report_only_modified_parts
9 S: v" n/ }# V; b2 ^: Y/ j9 p" `
; [1 A2 P: }* k) e' D3 K    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
0 v- ~. V2 q; h- r- H    Dim lw As ListingWindow = theSession.ListingWindow
! Z% i  J$ J# Q7 @8 `
) m8 u9 ?, M! l; I6 B0 M    Sub Main()
; p  U+ b* c- _3 X7 V: b
        lw.Open()
& V+ N* j% A( a: z5 p- N3 H6 n
2 L$ I( G# N: b& [        Dim pc As ParTCollection = theSession.Parts
5 A" V2 x7 k- Y" n) y; h0 A        Dim part_array As BasePart() = pc.ToArray()
        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 & _
: v; ^1 v- N/ g2 c! D# C                                             " parts open in this session.")
( @* W) j+ {# ~; ]+ ]        lw.WriteLine("  ")
7 T) S+ M6 e6 C1 N1 ^" N* U
        For Each p As Part In part_array
1 b( j) w& Q% M- m1 ]$ U" I! ^+ u9 N) _
' Q2 y4 n/ |% `& m  r# z            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
; G' M$ Y7 _1 D' {* Y& z6 T6 S
            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
" k. @% m! G0 K1 \: S. V                num_modified = num_modified + 1
( O  h3 n- K7 k6 [' w' A/ ?+ P            End If

( H- k  H1 O, W4 D2 x7 g        Next
: o  q6 K( ~2 m( L8 B1 O
( L6 ?  F( N1 n        lw.WriteLine("  ")
0 c# f; X* s4 h2 N! A6 Y        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

& p8 x) I0 l3 E9 l    End Sub
, @4 e# x- ]0 u) W; z& I
) T. Y8 v+ t" D    Public Function GetUnloadOption(ByVal dummy As String) As Integer
" D6 g7 A( @+ z7 V% b9 D        Return Session.LibraryUnloadOption.Immediately
    End Function
8 c. R3 X! h# K/ a. P
End Module[/mw_shl_code]