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

admin

0 c# ~7 g, ]+ V0 e, T  t& QNX二次开发源码分享： 打印已经修改的零件信息
5 i+ e5 }0 F/ Q3 S
[mw_shl_code=vb,true]Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
9 Q* F8 f% D) E1 E1 v
Module report_only_modified_parts

) q7 [, I% [# a    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim lw As ListingWindow = theSession.ListingWindow
7 A  Y2 F0 U2 Y" E& T9 B
    Sub Main()

3 i$ |0 d$ T" Z: ^2 ~8 T        lw.Open()

        Dim pc As ParTCollection = theSession.Parts
        Dim part_array As BasePart() = pc.ToArray()
, Y& G* ~" k  m& X9 E3 [% K        Dim num_modified As Integer = 0
# S: b' S* @* I1 B5 E7 H' F        Dim num_parts_in_session As Integer = part_array.Length()
$ ~# C6 w& G  M7 i9 ]/ r/ Q5 a: O* v- q
        lw.WriteLine("There are " & num_parts_in_session.ToString & _
                                             " parts open in this session.")
        lw.WriteLine("  ")
* @1 y/ E, Q! F
        For Each p As Part In part_array

" e( n1 i  N' {( @            Dim isModified As Boolean = theUFSession.Part.IsModified(p.Tag)

: E- S  a* T- [: O            If isModified = True Then
                lw.WriteLine("Modified Part: " & p.Leaf.ToString)
                num_modified = num_modified + 1
9 a7 r; T0 B! v2 M            End If

        Next

+ w" y& C) ^+ ?( S6 n' r1 z; k4 K        lw.WriteLine("  ")
# ?, }$ q" t# T+ }+ ~$ |        lw.WriteLine("Number of Modified Parts: " & num_modified.ToString)

5 e% u) d- _* v3 j3 k    End Sub

- @2 d( g- I9 z$ N    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
8 ?# Q; ]9 R& i3 W; f% Y. ], ~* o    End Function
& v  E* n) Z. u* h
9 j. ^: S+ V) ^2 ?/ @End Module[/mw_shl_code]
( q) U. Y2 `7 v1 E" L