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

admin

NX二次开发源码分享： 打印所有的GDT 信息
6 P( t- U0 A7 M' a

+ a7 Y' ?, v* b! y: m8 r% G6 \[mw_shl_code=cpp,true]Option Strict Off
0 X5 z0 u+ {6 x  B: N& SImports System
( g* @- k/ Y  X9 P7 F0 R; qImports NXOpen
Imports NXOpen.Annotations

. o7 G1 s& b/ ?2 c. ~Module report_all_gdts
4 D4 Z* Q5 T: Z    Sub Main()

7 f3 y: q) X7 s% K2 h( ]# i  K        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
" N; c8 S. o+ K. l3 G# X        lw.Open()
2 Z( g7 X  y& }# r' M* O5 U5 U' q
" f; E# B2 M* b1 ~7 I        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
/ f* y/ p3 \/ A2 M            lw.WriteLine(gdt1.ToString)
5 v' [" G3 ]# ?. P        Next
8 F5 F! g. c) j
( o+ P" g1 c( q% a* z        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
3 K  v2 E( a+ M8 u; Q' ]9 D2 R            lw.WriteLine(fcf1.ToString)
        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
! _7 b8 c; d4 o7 [, d            lw.WriteLine(pmi1.ToString)
        Next
# c& A5 S: U% g  p, D/ r% S8 N1 J
8 d2 _$ Y* M0 w8 s    End Sub
, n6 q! A. p1 \% [End Module
[/mw_shl_code]