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

admin

7 a4 h4 e9 @2 f( l5 Y  O, tNX二次开发源码分享： 打印已经修改的零件信息
% |1 L& ?+ d: r" B8 w
[mw_shl_code=vb,true]Option Strict Off
% n" @5 S# I/ z8 R' D/ Y
6 j! @; W- f, _3 gImports System
Imports NXOpen
Imports NXOpen.UF
( }0 ?* i' j  `
" @2 x7 @- Z1 N  YModule report_only_modified_parts

: g$ g0 ^' z3 J, G& g) |    Dim theSession As Session = Session.GetSession()
, ~4 L7 [. m* |8 x* W, c) J    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow

# @) _9 i1 ^7 v    Sub Main()

* F7 U; m9 ?) q0 L# M; G        lw.Open()
0 k' V3 T& w$ p) ^% r. ~0 x
        Dim pc As ParTCollection = theSession.Parts
- q" C& T& r" P7 e9 }, {        Dim part_array As BasePart() = pc.ToArray()
. Y8 }3 I5 c" b$ K3 G- `        Dim num_modified As Integer = 0
3 t2 r* T% h! {/ p# |        Dim num_parts_in_session As Integer = part_array.Length()

; B8 _) K$ p' L; s  e: Y9 O& k9 H        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")
, W/ V: B& k  v2 g" |2 V
& e. {# p( S, F        For Each p As Part In part_array
% I5 k# C& _& w6 N" Y' {1 |3 }
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
& W" \7 G  V9 f# m) A! }; j( Q% I* J
( x4 X+ Y/ y8 V1 L8 P7 b            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
5 i6 m" ]$ u4 h2 D            End If
) X  t( I3 N( J1 Y' _7 |
        Next
* a) Y# O5 T+ e; ]
        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
  t2 S# r* ^$ V( k        Return Session.LibraryUnloadOption.Immediately
) T8 j3 s  ^2 y: c3 `; Z    End Function
- @. U) ^& ^% T1 Q, @2 N. N5 w
, ~3 i$ b/ s/ [% b. {End Module[/mw_shl_code]