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

admin

1 S' s6 t7 n) j2 RNX二次开发源码分享： 打印已经修改的零件信息

& L4 ^: D; t( b$ W% S[mw_shl_code=vb,true]Option Strict Off
7 z/ X7 I" _- Y& p1 Z. ]: [' h% y
$ r1 D& }' G. m+ E' z; fImports System
Imports NXOpen
# O' j$ r3 G* N7 u/ [Imports NXOpen.UF

6 X1 k5 I. l3 T4 H# ^/ ~7 j2 ^Module report_only_modified_parts
9 f! [8 w$ A+ p8 c% S
! q" b: r% y, p2 A# _    Dim theSession As Session = Session.GetSession()
! o- p4 _; l5 F    Dim theUFSession As UFSession = UFSession.GetUFSession()
+ k, s3 c' h8 i: y    Dim lw As ListingWindow = theSession.ListingWindow

    Sub Main()
! a$ ~& `/ R- s
0 x- w" ^. G$ e% _3 r# s( ]( z        lw.Open()
) L* t2 z: F7 {, ]
        Dim pc As ParTCollection = theSession.Parts
; ~1 o" _& \, x7 S* z        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
+ z2 _! e5 R/ {7 |* b$ n: C" K        Dim num_parts_in_session As Integer = part_array.Length()

8 c3 i6 G) s! L+ A: r. k. G. F$ G        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
8 L0 H5 i! J' o        lw.WriteLine("  ")

        For Each p As Part In part_array
; B! a' q" n5 A! v/ I' Z
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
1 P- S, |; c3 ~; \; o) f+ b                num_modified = num_modified + 1
            End If

# Q+ j4 H- ^& T  u5 _  h        Next

( K0 ^7 q. m  E4 S- |" n        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

/ h  H* t: L$ R8 \/ t    End Sub
9 n7 m& \" S  M* F
3 `/ F# {# v4 n9 k: @4 E    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
+ I3 v7 O0 J6 Q9 ~& ?) S; n6 v2 Y    End Function
! I, d* O  z/ @* ~
  m' T8 w* P5 P' m& O" e; rEnd Module[/mw_shl_code]