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

admin

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

2 Z' X7 T" X7 g5 N# {# ^: K
- ~4 M" ^* U% A* a+ i[mw_shl_code=cpp,true]Option Strict Off
  F' b3 n: o* c: p8 i+ zImports System
* ~; o2 B  Z" Z- B7 [1 EImports NXOpen
. G. G9 M7 @/ r" ^$ a* DImports NXOpen.Annotations

- _5 }. F8 }$ V  \Module report_all_gdts
    Sub Main()
6 A5 U8 X$ N% M4 ]0 x: x6 |
        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
- f: p0 g' T6 B3 j+ F! Z; `( v        lw.Open()
& I7 @& U; X" |
        Dim displayPart As Part = theSession.Parts.Display
% {! d* q. Q' h; E5 R
        For Each gdt1 As Gdt In displayPart.Gdts
" ^2 L/ n# Q3 A; C: Q            lw.WriteLine(gdt1.ToString)
9 ?: b- f8 |5 A# s" ~3 _        Next
* O0 \, h6 o  v5 m5 O, S9 g5 I  z
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
- m( w1 e# o' c) y8 H        Next
- E' O3 {$ [& n
- s/ k- d8 f1 M6 R' _! M) l        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
5 `# i. M% k2 T) y/ z& t            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
End Module
[/mw_shl_code]