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

admin

4 n. i; f% E" \NX二次开发源码分享： 打印已经修改的零件信息

, B" [. u- ?. ]0 H, t[mw_shl_code=vb,true]Option Strict Off
0 i" Z! Z- R8 @, `3 p
Imports System
) l* j; ^2 t2 T' U) u6 ]Imports NXOpen
, G' o: v5 E9 K! m6 d0 E& {Imports NXOpen.UF
7 Z  X7 S) B" k8 H2 F( @3 z: C
Module report_only_modified_parts
% L+ z4 H$ O' }# H$ _* K0 e* ~/ K
4 }' i2 v  ?+ K    Dim theSession As Session = Session.GetSession()
! `" ]8 [' l: J- L& B: h    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
" u6 ~3 Z# P& [; M
    Sub Main()

        lw.Open()
/ [$ j% ]$ @0 X# K
        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
: U/ ]; O% x  Q$ O        Dim num_parts_in_session As Integer = part_array.Length()

( V, }( t9 S# H" ?8 i9 K        lw.WriteLine("There are " & num_parts_in_session.ToString & _
/ {) X$ n: u$ ]% r# Y5 M5 a. p                                             " parts open in this session.")
  ^8 G! A- p# {        lw.WriteLine("  ")
7 z4 e7 T8 ?+ I$ Y, g% t
        For Each p As Part In part_array
; r4 {, a4 I/ D7 a# I
7 u  p& q  p- k/ T4 S- W# r1 L            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
$ l6 E! X' [/ x$ U) I/ g% n                num_modified = num_modified + 1
            End If

        Next

1 E4 q8 I% A: \  h4 [; i        lw.WriteLine("  ")
9 K! a: Y1 i9 m+ K: w# y        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
- ]! k2 V, M/ Q/ ^* Z- l& o    End Function

End Module[/mw_shl_code]
4 |( h+ e6 u+ t8 M5 M8 ]9 z