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

admin

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

% A6 P; n4 ~* W, b* t* [
[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
5 @6 d/ _. n4 Y: XImports NXOpen.Annotations
) U: e0 Y! m4 Z6 p) Z1 `
Module report_all_gdts
    Sub Main()

* {- E. ]4 k1 S        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

        Dim displayPart As Part = theSession.Parts.Display
7 k6 B* Y. X6 z2 s2 E% @- ?! j. s
; d& W# M1 E4 @        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
" w) R, g) Y2 j, m; t! K        Next
. V! q: [" c* @' F' D" \
* }+ o! a5 p; _        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
2 R  X) a$ M0 e7 p9 w( H- d        Next
/ Z  p, _6 H5 E1 U3 m9 H8 A
        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
: F) H* @$ d, B4 |; ~            lw.WriteLine(pmi1.ToString)
( n, N9 I$ k' x6 _4 p        Next

! b* U/ ?) o9 R2 w* W6 `    End Sub
End Module
[/mw_shl_code]
0 X, f4 \7 B. ], M" Y) }9 u" `