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

admin

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


[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
+ r9 o" b( Q, s" p7 f$ ^Imports NXOpen.Annotations
/ K+ \2 o2 G" N
Module report_all_gdts
    Sub Main()

        Dim theSession As Session = Session.GetSession()
* b- c- w' ~% O5 \- C        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

5 N' K3 G1 P# b        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next

# m, j9 K. L# O0 O8 H9 k7 M: u5 o        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next

% K" y6 E$ U2 y: m. H* u        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
- Q1 G5 l9 N& E! W* d2 W& ?            lw.WriteLine(pmi1.ToString)
6 M% w+ j  ?2 @7 h+ ?        Next

1 X1 Y- W, X4 T* X8 p- L0 }/ _: m* {    End Sub
End Module
, Y9 P0 ^+ T  J9 V[/mw_shl_code]
' X" i0 C5 i# t4 v* g, B