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

admin

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

% P# W2 P+ M' l6 y/ X1 v[mw_shl_code=vb,true]Option Strict Off

1 i% O% z3 r- v* uImports System
6 h8 W' T. L. Q! f  P+ D2 yImports NXOpen
Imports NXOpen.UF

, {0 B6 e! c3 f4 m) Q* zModule report_only_modified_parts

    Dim theSession As Session = Session.GetSession()
1 z% e# _; _+ y% j" |% f* d# o    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
" d! a; f+ ~9 y1 l
0 k3 n6 f9 }- E# b    Sub Main()

        lw.Open()
; Q- i; T1 T+ K3 p% Z
        Dim pc As ParTCollection = theSession.Parts
5 O( f. C, A  N4 S' C; n        Dim part_array As BasePart() = pc.ToArray()
  ?8 O) R* K, W) G. X& ^        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
; i  T: S6 R* E+ n! M4 Q
+ m& ~1 f8 C3 w0 s: X. e- R1 w# c        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")

0 R; W& Y. [$ @+ `        For Each p As Part In part_array

% G' b) [2 R3 W5 {0 l+ O            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
) N! o. V, _/ Q                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If

        Next

$ o8 w% j( {  ^+ h# T  Z        lw.WriteLine("  ")
4 C; s" M1 F/ L# _4 B) H% ^' \$ \        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

    End Sub
( N3 h$ I& n, V+ t" {2 q
6 k+ B8 B: k& o3 T8 `    Public Function GetUnloadOption(ByVal dummy As String) As Integer
: f& ^3 V9 |7 [        Return Session.LibraryUnloadOption.Immediately
5 t( E  p$ g+ j4 x! q4 @    End Function

% s0 q! _' c& V$ o6 E: PEnd Module[/mw_shl_code]