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

admin

NX二次开发源码分享： 打印所有的GDT 信息
" g) j! o8 R9 Q9 @4 l

" n2 e: g1 u& |$ D3 X[mw_shl_code=cpp,true]Option Strict Off
Imports System
! G9 p" i" K) c$ K$ \Imports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
, D3 Y8 K  O* W% ~    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
$ i* S: f/ f) X1 O$ f8 @        lw.Open()
- ?; P( m1 Q9 q# k
        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
* H/ R9 x* {1 H$ F# O            lw.WriteLine(gdt1.ToString)
        Next
0 ~3 R3 W. g, R# [& T) @4 F( c# m
9 e- \  c; D( D        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next

$ B% Y1 @2 g0 ~. N# Q; j& U! c# X        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
" t2 j* x2 P9 t1 }            lw.WriteLine(pmi1.ToString)
. e& G5 m. m* S. Y$ {4 j        Next

+ d# b% R: @8 n1 o    End Sub
End Module
[/mw_shl_code]