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

admin

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


+ K+ y- Y4 Z( ?. y* p8 @) a. Y[mw_shl_code=cpp,true]Option Strict Off
8 h) X# f  T, W& s; j. N1 [Imports System
6 p1 [: Y0 h( E% e6 h0 RImports NXOpen
: u& O/ y3 l' }) U& AImports NXOpen.Annotations

Module report_all_gdts
    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
7 X3 g3 F1 z" R9 o; I. ^# R        lw.Open()
; E9 ~% ?, H4 e( l; w; e
" f) @4 D3 o4 ~0 J! J: Y        Dim displayPart As Part = theSession.Parts.Display
- o, r6 u6 B: E. y( g
$ Y: x% V2 H4 u3 t" h" I1 f        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next
# `( g% u( e$ z8 ]2 h8 u
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
* P! k; L0 k: U        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next
3 g1 V- ^1 {; q+ v
' g0 U( G3 ]( _) b& n    End Sub
End Module
$ s2 ^3 C1 ~  A[/mw_shl_code]
! ]$ u% i" x" N' a