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

admin

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

) C! i: u9 ~9 b6 I[mw_shl_code=vb,true]Option Strict Off

Imports System
' B' i3 Z3 w) [- ~" o, TImports NXOpen
3 o9 U; Q7 d8 i3 J; UImports NXOpen.UF

Module report_only_modified_parts
$ @# w1 ~8 W* P8 C4 Z  ]
    Dim theSession As Session = Session.GetSession()
: o, ^; H6 C' j  Y    Dim theUFSession As UFSession = UFSession.GetUFSession()
9 c; d# g9 m/ P5 h/ m2 B; O    Dim lw As ListingWindow = theSession.ListingWindow

2 h* o: k% b$ W  s1 {8 ^" g    Sub Main()

        lw.Open()

; s8 J* H5 U" B) T5 P: W$ y( l        Dim pc As ParTCollection = theSession.Parts
; }. ~+ x- Q; u& S# V4 i* U        Dim part_array As BasePart() = pc.ToArray()
5 l/ R. |0 M" d* K4 f: }3 d: w        Dim num_modified As Integer = 0
- U3 }0 v( \. @; T8 v; W# V        Dim num_parts_in_session As Integer = part_array.Length()

        lw.WriteLine("There are " & num_parts_in_session.ToString & _
3 n$ `1 q5 X; v  ]" O7 P/ C                                             " parts open in this session.")
7 w8 f9 V8 j- w6 U8 r        lw.WriteLine("  ")

        For Each p As Part In part_array
9 x( \: K$ i, P2 ]& H" Q# [* Y
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

5 N- m" b: l8 d5 {3 g            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If
: f9 O$ T( b# E, i
" X1 w' ]) j- }( O        Next

# Q! O/ Z3 n& g2 s        lw.WriteLine("  ")
9 d, {' U3 u6 O+ ~5 Z3 g        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
. ~2 z* ?( i& j" l) ]9 G: T8 S
    End Sub

/ L6 m* F2 F1 C8 R6 B( J, r    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
9 F; X% X( f. o! F, j    End Function

. R9 E8 r  }% H- ^( i1 u! V0 `2 w  NEnd Module[/mw_shl_code]