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

admin

NX二次开发源码分享： 打印所有的GDT 信息
6 n( Y8 F" X! e$ C* F
" g1 I" w8 f- Q/ w7 {0 ]3 t
" e6 g) H- [* q: |" q) t[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Annotations
3 h: q6 h7 U# u2 n2 C
Module report_all_gdts
$ \9 r' e! A" o; T& s, I+ v. E5 ^    Sub Main()

  j+ q" S! w( k& r2 ~( c, b0 A! P! f        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

        Dim displayPart As Part = theSession.Parts.Display
0 D' K4 j& V0 w6 A* L7 D' ^( x; v" @
        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next

5 _; A- B- I# S* O        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
$ n1 x5 }  a7 K8 g1 |            lw.WriteLine(fcf1.ToString)
- y0 F- P5 N% K  T( b        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
End Module
, }* Y3 Q$ f2 @! e" i5 G5 t1 j& }[/mw_shl_code]
# R- h# M! c- M% K/ `