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

admin

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


7 @+ D5 |. L* z- [: ][mw_shl_code=cpp,true]Option Strict Off
  Q8 J1 L9 L. }! n% cImports System
Imports NXOpen
Imports NXOpen.Annotations
4 {6 w* s) V  D4 S' D% I$ O$ N
; P7 H, D: M9 j- D1 xModule report_all_gdts
5 ~4 l& _! h# g; m+ H8 s7 P    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
/ d: @0 b4 K3 ~
        Dim displayPart As Part = theSession.Parts.Display

* B4 R3 k8 |8 D0 P        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
) N6 m+ V6 y/ {( o5 c* x) @# V        Next

        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
) g! |5 j% H3 [        Next

6 w3 M+ P/ I8 g        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
' y4 x  q" b& N% G        Next

1 n( L; E! j$ s* R8 }# m7 P' Z    End Sub
End Module
8 h$ Z" e' x. Z[/mw_shl_code]
" c6 ^' O7 J8 d! R3 L