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

admin

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


# A, W: f4 Y, }. a' r[mw_shl_code=cpp,true]Option Strict Off
Imports System
( l, z" u+ p5 w7 DImports NXOpen
Imports NXOpen.Annotations
# Y3 G' e0 f7 ?6 C, X
2 d. o( L' l; u" s3 a8 l" `Module report_all_gdts
    Sub Main()
- k" F' M0 y8 _) q- T7 o, h! b
: g$ a7 o+ p/ R        Dim theSession As Session = Session.GetSession()
# Q2 W/ n6 f1 n4 n# `        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
- W9 @6 N9 z! C1 G        Next

9 M5 v$ P% Z2 t6 k. \6 ]        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next

0 J, J. u% }+ r! W        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
End Module
[/mw_shl_code]