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

admin

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


[mw_shl_code=cpp,true]Option Strict Off
5 d; z  n/ o4 z- ZImports System
8 o0 s. ]' {: F6 ]# pImports NXOpen
" R6 R3 {1 d( w0 u6 `: l; ?Imports NXOpen.Annotations

Module report_all_gdts
    Sub Main()

  n, U$ P( b7 h, k. M/ r2 f        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
% C: B1 b$ c* [. H1 L& h        lw.Open()

. d8 w3 W% B* @+ {        Dim displayPart As Part = theSession.Parts.Display

6 A6 t# A& |( q! H& H' u        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
+ @4 `+ G: w9 Q  |* p        Next
) D* e8 F) Y" U: x' T& C5 }+ T
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next
) r7 u$ r" n& B
6 v9 g  g; C- G" b        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
9 L; ?/ z3 d5 h6 J            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
  D( [6 S. t6 ]/ ~. [+ O9 m: C; ~End Module
3 }) ?- d; X- X9 Q[/mw_shl_code]
; j3 K9 v: }+ u& N$ Y6 W4 f