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

admin

NX二次开发源码分享： 打印所有的GDT 信息
+ s4 x+ K7 B$ t' y+ W! p& _' S
' P! H/ G) [3 V) P& C
9 l  z3 ]$ T! x7 f, g[mw_shl_code=cpp,true]Option Strict Off
& o& j3 W2 N8 o/ m" s& J1 UImports System
/ o3 _7 {! e' y- j! `) c# J4 A* dImports NXOpen
9 V2 k1 b9 f* l: BImports NXOpen.Annotations
; p* D/ y  {5 K2 \
Module report_all_gdts
9 E: P6 L% Z7 S" Y4 v+ E( J    Sub Main()
+ ]8 u1 L. L2 z
        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
, z) j9 m, X: O. s
        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
) C7 [6 ^. P5 |4 ~: p- {. |: Z9 c            lw.WriteLine(gdt1.ToString)
  q% E1 I! E; ?0 W3 [- B% H) k        Next

        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
/ S5 t4 v6 H  B, R            lw.WriteLine(fcf1.ToString)
; w5 U* o7 q& I) z9 U7 f8 j        Next
* y% y, u$ v. Q
  V% \& t5 }* R  d9 u: }* }        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
% Y3 w1 q+ E, V4 n1 _# s! d2 ^End Module
9 |, l% B4 i8 a; N' E[/mw_shl_code]