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

admin

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


% P5 O$ _: D/ P" Q" ][mw_shl_code=cpp,true]Option Strict Off
3 }% ?$ r* x  iImports System
0 b( l* f( x- K  N4 d/ _8 DImports NXOpen
8 m! f( @8 m8 O& V( `) [2 PImports NXOpen.Annotations

Module report_all_gdts
    Sub Main()
7 n, Q3 \, F( l& K4 b5 v9 t  i8 I7 }, h
9 Q$ z, l# a4 `  F; ^        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
& |5 ^9 p3 `5 @        lw.Open()
9 ], ?$ \( t$ j- u  D
8 U  I2 I" L9 m, P) F% G5 x& c4 j        Dim displayPart As Part = theSession.Parts.Display

9 }! h: H, |0 V* t( a) o; q, A        For Each gdt1 As Gdt In displayPart.Gdts
0 h+ D* n, J# y            lw.WriteLine(gdt1.ToString)
        Next

        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
, d- \2 ]! O" q. R) x; n  k4 J        Next

. _* T  K. M3 ^        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

! b' D( v5 q9 H    End Sub
End Module
8 F- \7 L1 b& t( ^- L! \! V' [7 B3 H[/mw_shl_code]
  y1 Z. s( u/ L0 I  N" T