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

admin

* P9 a# H7 c, _+ i; B# d! U( RNX二次开发源码分享： 打印已经修改的零件信息

[mw_shl_code=vb,true]Option Strict Off
5 p$ r! ^0 G+ v+ M
7 K; K6 `6 c+ DImports System
Imports NXOpen
' @# j) `1 k4 R1 q; M+ m7 gImports NXOpen.UF
1 G: q$ e( t" }1 a7 w; _
Module report_only_modified_parts
$ b! y/ ^/ L5 U. {  e
; j" L( F5 Y- Y( `6 M    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
6 @( H8 E3 {4 X' ]1 D2 I1 ~+ o
    Sub Main()
; R0 m7 m, H8 P8 O) ]
        lw.Open()

        Dim pc As ParTCollection = theSession.Parts
% G8 n* d: Z0 M. k9 H, b( n4 d( ~        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
. N: a$ ~" ]% ^; M! k; S
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
8 _$ M  Q1 s, Y! m: t$ Y        lw.WriteLine("  ")
% D" [: d/ v) o6 r
        For Each p As Part In part_array

            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
! W3 \  x; g  W0 n6 L                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If
4 S$ V; t. t% ]3 z" y
, f0 \. t. `1 z5 W9 L3 G        Next

        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

    End Sub
# U6 \  `# r  j' q/ m+ @, X* Q' ^* l
2 w7 f1 m6 b" k& ^8 ]( L' Z$ F    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
) f% u3 {* V* }9 E    End Function
$ l1 B& x4 c* Z- w
/ W# \+ a: \4 lEnd Module[/mw_shl_code]