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

admin

3 f/ T9 P8 q% O6 n; ^NX二次开发源码分享： 打印已经修改的零件信息
& L: u5 @2 S/ g! K: S- s
1 U- L6 ]$ h2 ^4 |6 O[mw_shl_code=vb,true]Option Strict Off

Imports System
Imports NXOpen
( j: G/ W- B& h; [( X+ E% z8 L: ?Imports NXOpen.UF
) f) t9 l; C% E. f* B
Module report_only_modified_parts

8 n8 o, h2 z* C4 q* ~! }9 ]1 r4 g' Z    Dim theSession As Session = Session.GetSession()
0 L+ z4 G9 `7 z4 V. n8 V    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow

. l5 j$ x) P5 L7 ~. j* C0 P* h    Sub Main()
3 u, W* ]7 u( P" V! h
3 t# w8 n# F7 t        lw.Open()

        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
7 g6 X' j9 U4 Q        Dim num_modified As Integer = 0
        Dim num_parts_in_session As Integer = part_array.Length()
  g2 \4 u1 ~+ @8 U8 L
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
# O+ e8 _" W" h/ ~& R        lw.WriteLine("  ")

+ i8 d. e8 L8 L        For Each p As Part In part_array

- U- a' i; n! |+ t/ H# H- G, q            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
% Y1 L/ I: C# o; c! V& ?3 _9 h0 ?/ a7 i
/ y5 O$ I+ k9 V  n5 f8 G% k8 n            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If
) L( ^' r2 B7 H# F& I
        Next
0 w5 d+ C9 a% @6 j% G
        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)
  ?: W; b' B3 M! E, i7 ?% t
    End Sub

) R6 i5 i. ~" Z" j2 |- n" R* {    Public Function GetUnloadOption(ByVal dummy As String) As Integer
! Y8 v! P: x2 Y        Return Session.LibraryUnloadOption.Immediately
) Z& ~2 ~  q- J4 x    End Function

End Module[/mw_shl_code]
9 C; S5 H. R9 A2 j3 R! @