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

admin

3 _* ?; {4 ^, ?% TNX二次开发源码分享： 打印已经修改的零件信息
6 K9 ?& W1 R) C1 i$ I1 B' `
[mw_shl_code=vb,true]Option Strict Off
2 U/ _% ]' |$ \. b/ b" n
Imports System
1 W" }+ c, \* ^1 w& XImports NXOpen
Imports NXOpen.UF
0 N4 d' z* @$ S
Module report_only_modified_parts
3 [( G+ C4 C4 g) B* U
    Dim theSession As Session = Session.GetSession()
# }1 _5 u5 b0 F* M& B    Dim theUFSession As UFSession = UFSession.GetUFSession()
% h# B8 U- ^1 ^. d) t    Dim lw As ListingWindow = theSession.ListingWindow
( J6 G/ `6 P, C# p) b
    Sub Main()
* u% k8 b( |& d; X
        lw.Open()
( h3 e' Z" X4 R5 S: b
        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
        Dim num_modified As Integer = 0
9 y$ e$ ]& V0 z- {        Dim num_parts_in_session As Integer = part_array.Length()

/ g% W. r6 R- ?/ o        lw.WriteLine("There are " & num_parts_in_session.ToString & _
" E0 U- h9 A# x9 w. e6 V                                             " parts open in this session.")
: }/ W& S: h" M0 a- `        lw.WriteLine("  ")
7 @, ]( K) D8 l
        For Each p As Part In part_array
! r# L1 f# h. m, t+ c  y! _& D  z
            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)
* I7 k/ g4 K% d1 v# \  J6 U; g0 c1 K
8 A8 j1 U1 p+ w' S, O& z* g/ O& B            If isModified = True Then
! G' P$ q3 S; g. U1 Y7 i% n                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
            End If
6 T% Z8 p5 [' h7 C& w8 C8 `
        Next

        lw.WriteLine("  ")
        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

    End Sub
3 p$ M. [0 D7 w$ ?& w8 F' K, ^
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
6 J& \' [3 q# q" s* M        Return Session.LibraryUnloadOption.Immediately
    End Function

$ a5 \. m/ I% ]1 h" k- AEnd Module[/mw_shl_code]