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

admin

NX二次开发源码分享： 打印所有的GDT 信息
5 X# R2 s4 \3 W. b7 V$ a* K" I
9 y  r2 h& d- [9 q# o6 ~
# W4 z6 Y$ _& O. H+ x0 l/ [8 g8 s" ?8 h[mw_shl_code=cpp,true]Option Strict Off
Imports System
6 `, |( m, f4 m' G1 o( PImports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
, `5 P' b' t# y* g$ g    Sub Main()
" V, O5 b1 b; E1 N6 w
        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
2 T' h9 O6 @/ n" x& P3 P5 K1 x        lw.Open()
; B' o' W6 K, b" |3 H
        Dim displayPart As Part = theSession.Parts.Display
3 v  C8 x" {2 P
) }2 {9 A/ ^3 R$ Q        For Each gdt1 As Gdt In displayPart.Gdts
8 g! T1 Y: H5 q" @# W2 |            lw.WriteLine(gdt1.ToString)
" s5 W* p& ^# F+ n' n+ e% O6 L        Next
3 d' v  K$ e7 q% ?
. o, O1 v- b. {5 Q1 P3 v3 L6 ?        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
8 P7 J4 I" w. W- ~, j        Next

% A9 \0 I6 Y- d( Q+ @3 d) c9 A        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
& ]% `5 b$ ]: Y! x7 T+ N0 wEnd Module
3 |+ `( a' K( e, z# ^9 a[/mw_shl_code]