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

admin

NX二次开发源码分享： 打印所有的GDT 信息
4 v7 B( y6 j! d3 F
: G/ H: N& z* V/ c8 g1 P+ o+ l
[mw_shl_code=cpp,true]Option Strict Off
, y- \& g2 \- wImports System
8 v4 P7 F  e9 ~Imports NXOpen
Imports NXOpen.Annotations
# d$ y# y- n) N& G$ b. u
: Y, h! u, F4 C2 \$ a" h" bModule report_all_gdts
) k; \; o$ ~5 t/ o9 l    Sub Main()

  a, K3 O' C# U9 t# i        Dim theSession As Session = Session.GetSession()
- b2 W5 k( h7 J6 j  ~' T" R: P$ r        Dim lw As ListingWindow = theSession.ListingWindow
8 [# r. }& N9 U; w$ y9 o6 w        lw.Open()
* a8 O1 J2 w" s9 U$ F  ^# G0 A/ k
        Dim displayPart As Part = theSession.Parts.Display
  `  P+ b  l  {
! ^1 L6 m% i! P$ g1 p6 N$ R7 s        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
% I: J+ _" @/ N7 c4 h' X) U        Next
8 E# L8 f5 |; ?
4 r$ J' a' l. P* j# U" e4 V        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
  h1 }& @- D- j2 G            lw.WriteLine(fcf1.ToString)
        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
! x8 y* j% x' h  O9 e* O" O        Next
! Q$ _# Y) a7 d+ O- b
    End Sub
End Module
[/mw_shl_code]