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

admin

NX二次开发源码分享： 打印已经修改的零件信息
8 q8 S! r9 W# i/ [. M3 W. K1 p; q
7 `* B, X6 ~" m- e6 Q[mw_shl_code=vb,true]Option Strict Off

5 {" q  a: u/ C* u. dImports System
) `9 L8 m1 `3 d$ i0 k8 r6 [8 _6 AImports NXOpen
  f- V7 g5 p9 O5 j! q! ]7 ~4 z2 v* m5 sImports NXOpen.UF

% N! ]% W* e7 Y/ e0 d  S0 A1 kModule report_only_modified_parts

% E7 E) _% g9 ~( z# k* H1 R    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
1 I, `: d6 v' l) _4 l    Dim lw As ListingWindow = theSession.ListingWindow

) k9 G9 |  z8 H- l  |    Sub Main()

, |  y7 E# k5 R0 }$ k7 {" E        lw.Open()
. w3 c0 m! e; h* m
        Dim pc As ParTCollection = theSession.Parts
% r5 t2 q" c6 G8 g! l+ g        Dim part_array As BasePart() = pc.ToArray()
4 B5 v; K/ Y; x% V; K8 o        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()

6 K+ h# {( B. i& s1 n- B- a* t        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")
3 [( n! I* q  t  ], G) E/ i" u
        For Each p As Part In part_array

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

            If isModified = True Then
" O' G. E& {8 ^3 i' f' M$ G                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If

        Next

2 w+ P* Z! h5 b# a9 ]        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
, p4 W% b- F2 Y& P% `" s
    End Sub
( d) v, M0 o4 b6 G! L
0 _+ m9 S& s/ Y7 B* u+ R    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]