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

admin

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

" {2 L1 l1 n: l
5 O7 W- U2 I3 u1 J1 e: h9 V[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
" h: a8 [4 I8 lImports NXOpen.Annotations

7 y3 u/ F/ c) c; ]7 fModule report_all_gdts
# ~5 G* O+ o; {# f3 D: ~    Sub Main()

        Dim theSession As Session = Session.GetSession()
1 Q3 W/ f9 I) Z) ]1 X4 d/ d        Dim lw As ListingWindow = theSession.ListingWindow
7 B& D7 F% f0 p+ o6 m        lw.Open()
% H# `; r7 x' V' w% \7 }
        Dim displayPart As Part = theSession.Parts.Display
+ _7 H& P$ M6 {% h4 o3 U: z
/ B& H& E5 R: E        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next

        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
* j  R0 G* x" t' q; n% T            lw.WriteLine(fcf1.ToString)
        Next

4 c! G6 I( p" D1 Q  g& ^" Z& s        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
! a) ?* J- |. ~6 {! c            lw.WriteLine(pmi1.ToString)
8 h3 P9 B0 u, g( t8 ^6 H" u' t        Next
, t. u* Z; J: ^* E- m
1 G6 a5 H+ }5 d    End Sub
% W7 u/ e* o& t4 m. A  {End Module
- D9 s$ X3 K4 Z[/mw_shl_code]
: g8 W: q% C, [' d