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

admin

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


[mw_shl_code=cpp,true]Option Strict Off
7 y  S2 T9 r% jImports System
" S2 ^* R6 j4 G' Y( b! mImports NXOpen
" Z( E3 P4 U: ^) z9 q: aImports NXOpen.Annotations
: G0 \- Q1 |  {2 P
) V4 P' T; d8 ]7 B) q3 T% T- H) XModule report_all_gdts
    Sub Main()
; m" n1 |& p1 [. Y7 J& _. B+ q
        Dim theSession As Session = Session.GetSession()
8 h, q" p( i( J. J# ?% p9 @; ^        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
1 P% Z" b. K7 z$ z
  Y1 D! G! J! B. _        Dim displayPart As Part = theSession.Parts.Display
' W" q& w- A+ p% Y
+ D: ~1 f$ p. M0 M8 X) I        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
4 C) ?& Y% P# I- C5 i9 s        Next
" Y* L+ i- g1 w. ]( u' [% c
1 a  q" R& l( R! X. x# z2 M        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
8 \3 f4 G- Z& M$ j9 o) ^6 O        Next
. v4 R" `# l6 t" Q; k
        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
9 g+ L3 K# L7 b/ D: {1 r1 m! v+ p        Next

    End Sub
End Module
[/mw_shl_code]