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

admin

NX二次开发源码分享： 打印所有的GDT 信息
& E' O2 l8 A8 M, X
/ b# J& ]1 i+ N5 _
0 W5 O" g& B8 i3 S- G( q9 x[mw_shl_code=cpp,true]Option Strict Off
7 U9 f+ g3 a! V' g, LImports System
Imports NXOpen
1 v4 F0 q- _' y! W: F) [- }  }Imports NXOpen.Annotations
3 z7 E& }$ U! v" p4 Y, o
Module report_all_gdts
    Sub Main()
, H5 W* k( D$ f6 o
        Dim theSession As Session = Session.GetSession()
6 v. v5 v2 ]8 Q        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
  K( t# P  A7 x: v
" X/ q# l  G5 x' j* ?        Dim displayPart As Part = theSession.Parts.Display
4 ?" K' G$ i' N) y
6 R: h6 [9 J; Y! x        For Each gdt1 As Gdt In displayPart.Gdts
" b8 t/ V8 b0 q, Z, v9 q( m4 g) t            lw.WriteLine(gdt1.ToString)
4 g- q" m# P) q! O/ {1 ]" Q& n+ B        Next

/ R  @" e7 [" H5 D1 N% a( J& k        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next

2 D# j/ @# b" ]2 h9 M        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
. `) x* x2 u) {& L6 yEnd Module
" h# t  R- j) s1 c[/mw_shl_code]