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

admin

0 N1 q  c0 T: m9 Y  d* ?) K; U- `NX二次开发源码分享： 打印已经修改的零件信息
  W4 f+ H4 m+ J
[mw_shl_code=vb,true]Option Strict Off

6 K% _. N. N% ~" @Imports System
Imports NXOpen
Imports NXOpen.UF
' g! @, W% o0 F4 v
2 c: s2 ]4 L! Y6 H8 ]) o8 x$ lModule report_only_modified_parts
5 |' I, l+ f0 r/ T% I, H
" f& Y5 A* c$ H    Dim theSession As Session = Session.GetSession()
+ a# C/ P) K' t; B6 h1 {' A+ r    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow

% L$ q5 t1 c# Q2 h    Sub Main()

* F. f$ P5 s4 @/ X5 L" Q* c, {        lw.Open()

3 Q4 x1 k: ]2 B$ P        Dim pc As ParTCollection = theSession.Parts
" I2 [1 C4 I& P        Dim part_array As BasePart() = pc.ToArray()
# a% s8 c# [3 z& o( O( L2 I) G        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
2 U  \* I; [7 d9 b2 E5 V
* T  l( f- j- J7 ~% o7 N4 c3 ~/ }        lw.WriteLine("There are " & num_parts_in_session.ToString & _
, Q3 x1 @& k1 }" {                                             " parts open in this session.")
5 N* h" @" K. ^) q3 x& p# J9 @, e4 k        lw.WriteLine("  ")
  B8 W% @4 N- f3 Z* @4 y! S& V
/ P# C1 \' r: L0 Z  O  }! ~        For Each p As Part In part_array
; z. U5 Q  r4 u. o$ C" A% w, l! H
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
7 A5 I" G; K( v9 C2 p
            If isModified = True Then
% ~; Q' y* w+ y; {                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
) J, J% |! \7 R* ^, D" \4 U                num_modified = num_modified + 1
            End If
# I0 L2 C4 Q4 v' y9 c* j0 v
: l' u& L3 @! K6 j% `        Next

4 L6 o6 _- j7 s- A4 g- S        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

    End Sub

( u9 ]" m% Q, m# P    Public Function GetUnloadOption(ByVal dummy As String) As Integer
2 \  e8 q; i7 C( j        Return Session.LibraryUnloadOption.Immediately
1 [5 q9 I4 n; W9 q6 d% S8 u, n    End Function

# y( g4 q) W8 S- ~# C, z8 l# MEnd Module[/mw_shl_code]