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

admin

! R8 v. b7 Z# m( l6 \NX二次开发源码分享： 打印已经修改的零件信息
% H# C, u# @8 E$ j, N. x
[mw_shl_code=vb,true]Option Strict Off
5 M1 I0 e6 l* I' D6 \: \. X$ K
Imports System
5 y( ~. k) A+ g3 y8 `: P' T3 _( Z% h" {Imports NXOpen
Imports NXOpen.UF
; ?: P5 B$ b! a% u
Module report_only_modified_parts

- g) ?) j3 ?4 V( T% _; t    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow

( J. F; V& w0 R, q. H# K, a* Z    Sub Main()
2 ]& }0 L: o' k, Q' p' c; u! g3 L. J
) s. |- ~4 }. A2 m5 ~0 V& C  \$ X        lw.Open()
/ p2 \5 m: a! d% w1 T
        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
* t1 ~* ~1 W' ^4 |- X5 B0 U        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 & _
# Y( V2 Q/ Y9 J6 m& q: t/ ?6 s3 J                                             " parts open in this session.")
, ], M/ }5 j0 |5 D        lw.WriteLine("  ")
3 N% H+ U* l" a$ O9 ]
4 T! {9 A1 N( H" F& a, J        For Each p As Part In part_array
& h+ y% e/ l1 |/ t% N
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
& o# G' ?! V7 v$ A+ g                num_modified = num_modified + 1
7 _  B3 D) a4 ?            End If
! R, H. l9 h3 @2 `& i
        Next

        lw.WriteLine("  ")
& \, n: t% r/ ^( e        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

% q& y6 _* k/ o- O' G    End Sub

2 ~5 v7 c/ Y. t" L% C2 x    Public Function GetUnloadOption(ByVal dummy As String) As Integer
  E, r- X" [7 v- o3 z/ I& I! h2 l; M        Return Session.LibraryUnloadOption.Immediately
    End Function

. o+ P# ~0 B# j/ v- {* z2 _, x9 ]& jEnd Module[/mw_shl_code]
% q  v1 ~8 @% a4 z3 {& z; C0 H8 [