NX二次开发源码分享： 打印所有的GDT 信息

admin

NX二次开发源码分享： 打印所有的GDT 信息
. l; e) A$ ?6 Q

[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Annotations

8 G4 ]7 p5 _) y2 @5 QModule report_all_gdts
6 H* h% A$ Y/ x7 Y8 G' B$ v    Sub Main()
7 n9 B; H2 I( Y) z
; d. U* N3 B  T1 V1 T5 V) c% Y8 ?        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
  K7 Q. X  c+ [, F; R& h: H5 F' y        lw.Open()
: d3 y' q& w  H+ x4 ?
( U5 P" ~4 T7 T9 D5 z$ e# C! O+ W        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next
- S4 Z8 p: I( D; v% @
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next
' ?( F/ [0 u4 B7 }
2 ~, X/ d6 Q5 q+ V7 O- u        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
# p* s+ k4 T6 c: w% \! K            lw.WriteLine(pmi1.ToString)
        Next
% |1 D7 O7 t4 T9 c) z" p, |
$ z2 W4 G3 d1 `' c    End Sub
End Module
[/mw_shl_code]