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

admin

NX二次开发源码分享： 打印所有的GDT 信息
; D8 J  b1 Q# A  Q6 m! g  ~

[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
* a' U$ u: V( g# x    Sub Main()
3 ?* F! C& A3 T. T  K: a
        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
' H, ?& Y3 w( c        lw.Open()

  w3 L% x, H3 G4 f. m3 S2 ~        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next
+ }! S2 t6 ^! F$ [$ @* V6 I( h
$ D: ?# X9 V3 t; z; @( u, P) `( d        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
. F3 Y; X9 a. \0 T        Next
1 P9 r" E* @9 w) s
        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
) J6 w6 D. ]: @; R) c6 _            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
End Module
[/mw_shl_code]