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

admin

NX二次开发源码分享： 打印已经修改的零件信息
  H" h) [# B6 U" w3 z
[mw_shl_code=vb,true]Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
) ~' q0 J9 O1 o' `: k6 M7 f
Module report_only_modified_parts
5 u+ _2 \, [0 `+ {/ a
    Dim theSession As Session = Session.GetSession()
7 m7 |9 F5 o: m: e3 o# e    Dim theUFSession As UFSession = UFSession.GetUFSession()
! J; G! q- E& z    Dim lw As ListingWindow = theSession.ListingWindow
, D2 Z* m) p# Q5 e& _. [7 C
    Sub Main()

        lw.Open()
! M4 P* Q9 p1 D( J4 h9 _8 ^3 E! b
        Dim pc As ParTCollection = theSession.Parts
. W; n7 G; _* A& l4 z        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
$ d: a7 g' i9 b) p) |' c  B  G9 p* b        Dim num_parts_in_session As Integer = part_array.Length()
; W; f! ?0 {, v0 k* d
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")

$ ?6 j: i" `: J) T0 j8 T, v( P        For Each p As Part In part_array
' g% h! I1 i% \
' C' U) c7 F; }$ b            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
7 `( G2 A! }% A
6 e- R: b( r8 h7 x& R, A  g            If isModified = True Then
# b  Z( l8 |2 \/ o% Q                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
3 q9 ]. B( R% E5 p+ |5 p0 I7 z            End If

        Next

7 n, r6 e( A1 z7 t: A: q3 }        lw.WriteLine("  ")
. c( H( o1 A/ L. T        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
0 g! {  W+ e3 |; Q) P( d' E3 \
    End Sub
2 M- T) J3 u& |: N+ Y
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
& d) @/ D5 f; k; u" ~/ \        Return Session.LibraryUnloadOption.Immediately
8 r" G/ K9 c( C: j1 I) f    End Function
7 m6 H( X( F# c, U, [) D, R
9 e; F: B8 T9 fEnd Module[/mw_shl_code]
& K* w7 u  Y* U