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

admin

1 [7 S4 |4 a1 w& o. x' nNX二次开发源码分享： 打印已经修改的零件信息

) U/ ~, I5 ^3 B2 j; w1 j[mw_shl_code=vb,true]Option Strict Off

5 K. {( i5 c$ o3 _" bImports System
* w0 @' L7 c) A/ D0 t+ \$ EImports NXOpen
Imports NXOpen.UF
1 ?8 Q% p4 J" k# M
& ?# W' S* ?4 k' hModule report_only_modified_parts

    Dim theSession As Session = Session.GetSession()
  V  k+ d  l* K, F" {! X$ q    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
& I  p  J9 ^' |$ R1 z/ I
. B) T! f: H9 U* W5 P7 \- f; l( Q! f    Sub Main()
# l* p) n4 n0 f! ~9 ]
5 l: U( l: T- t. R0 A) {, v        lw.Open()

& `0 W$ e& v" w0 f: j0 r        Dim pc As ParTCollection = theSession.Parts
$ C/ K1 h' ]. e8 f5 E% |% P" U        Dim part_array As BasePart() = pc.ToArray()
  q7 F) s0 H% ~+ t% P        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()

        lw.WriteLine("There are " & num_parts_in_session.ToString & _
( m% P' i% C" ^5 d. S                                             " parts open in this session.")
; I2 @$ f. @: p2 p        lw.WriteLine("  ")
  z, b' E3 w  d2 q. T4 k7 y1 P  `. R
        For Each p As Part In part_array

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

            If isModified = True Then
8 O" o+ I9 b) z' g7 d3 I" c4 j                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
; ?# D' ]+ T$ V. _                num_modified = num_modified + 1
            End If
; q6 U! S8 r! X6 _8 d
  @% v9 T" H  D, G; q) e* `        Next

        lw.WriteLine("  ")
+ s, _2 W( O: K3 U! V! w        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

1 q/ q. I: c0 }1 b* l3 ~    End Sub

) L& F. Q1 n3 |7 \8 y1 I    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]
2 O" C7 o! @$ D0 u