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

admin

NX二次开发源码分享： 打印所有的GDT 信息
& h0 V$ `6 Q: ^9 A2 J2 F8 M

& B; A  Z( p% l$ t[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
    Sub Main()
+ p+ m( c9 q$ y! r2 T
        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

& j) A; a) Q, t+ M        Dim displayPart As Part = theSession.Parts.Display
7 A( |5 r* M4 L1 h- T
1 f2 Z  \2 T& T, j8 F        For Each gdt1 As Gdt In displayPart.Gdts
+ l/ ~$ b9 |0 ~. `# F            lw.WriteLine(gdt1.ToString)
        Next

        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
0 l6 ]8 X  Z+ U  c; v        Next

/ o+ u( L5 A2 I4 s5 Z        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
" z! N( t7 d8 ~* x' N            lw.WriteLine(pmi1.ToString)
5 H' b4 x) H8 ~: i        Next
- v, w! ~3 l. {' o# {6 o. j2 S
    End Sub
End Module
[/mw_shl_code]