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

admin

NX二次开发源码分享： 打印已经修改的零件信息
3 z/ M1 E' z- \4 s: k' U- E& z
[mw_shl_code=vb,true]Option Strict Off
5 B1 o2 T' w! Q, }" h* G
Imports System
Imports NXOpen
Imports NXOpen.UF

5 p# y$ y/ N  T" q6 rModule report_only_modified_parts
4 x! d4 J4 W7 K
    Dim theSession As Session = Session.GetSession()
3 N7 m* |0 z8 X, B    Dim theUFSession As UFSession = UFSession.GetUFSession()
" z0 e: a4 C! X- H" v    Dim lw As ListingWindow = theSession.ListingWindow
) b( J3 C' y2 n: P( \
$ j! s- X+ X% P+ L/ u9 j+ G& e    Sub Main()
+ m) K1 u3 j, _! r! r$ c3 S- {
4 Q5 g' j- w) \4 l' B% S0 C        lw.Open()
* A- X' Z* x. e8 N3 R- g# G
        Dim pc As ParTCollection = theSession.Parts
3 e4 O7 c1 Z- W$ ~) B        Dim part_array As BasePart() = pc.ToArray()
& ]& }$ V/ _! }' \' G+ l0 g        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()

' D+ o/ J0 b1 s. v: d        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")

! d$ O1 ?# r* `0 ?( a8 Y3 A& T5 L        For Each p As Part In part_array
* l2 \' \+ Y9 ~7 N; k! D+ `
1 A/ C& I' G, }            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If

        Next

% |. u" v" F$ o6 k* \$ q2 A; Y        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
0 a5 `1 m% I. d, D2 v
    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

: j2 Q" X/ Y" h' m$ V" L/ ~1 D- }End Module[/mw_shl_code]