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

admin

NX二次开发源码分享： 打印所有的GDT 信息
7 k- R6 J$ S, v

[mw_shl_code=cpp,true]Option Strict Off
! F: `1 P! m) q& e6 iImports System
Imports NXOpen
Imports NXOpen.Annotations

% H7 r* N. \- U  C/ l4 i, d- ^Module report_all_gdts
: ~/ B* H; n$ a* j+ H/ ^, L    Sub Main()

        Dim theSession As Session = Session.GetSession()
: D0 ^) M3 x. Q/ z, q+ p: e        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
0 t, n7 p' P/ e/ g! s. C7 l( |' @
        Dim displayPart As Part = theSession.Parts.Display

' j! M* d/ P+ h3 i, C0 `8 m  w        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next
" ?7 U$ c! N) f- N/ Y
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
( K6 Q" M- V% Z8 b& y4 f' U            lw.WriteLine(fcf1.ToString)
        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
7 c! {( U; t# p6 _% O% E- @, @        Next

    End Sub
% V8 I* e) ~" H# OEnd Module
[/mw_shl_code]