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

admin

NX二次开发源码分享： 打印所有的GDT 信息
& r; m8 T& m) v6 t* b

[mw_shl_code=cpp,true]Option Strict Off
. }1 r' M2 O. x3 fImports System
! P- Z& ~$ z% l! ?4 lImports NXOpen
  J- H* v* a* T( vImports NXOpen.Annotations

Module report_all_gdts
    Sub Main()

+ P2 Z+ Q/ l' L% U: k        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
: I1 f* w, b( C* x
        Dim displayPart As Part = theSession.Parts.Display

/ y" B- E2 t( s2 s" B3 O' `; G        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
9 c& b* p# u3 G* k# t) v        Next
" i, k5 X* q. |7 h
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
& |/ Q  a) u1 K2 }3 ?2 Y            lw.WriteLine(fcf1.ToString)
        Next
- H6 D# [( _: r: n& O6 b  H
; T. s" B$ h! a7 L7 E        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
) \0 I0 J4 G' a& K; hEnd Module
[/mw_shl_code]
( N8 t$ z: x; @4 c3 {9 s