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

admin

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


/ [; V2 I  u$ U3 S+ ^5 d[mw_shl_code=cpp,true]Option Strict Off
Imports System
* ]- J% x, L& {- o3 F; XImports NXOpen
  i, {" m5 g! LImports NXOpen.Annotations
6 m" D, @7 ]6 E- y) D
) }% a+ ?$ _# ]6 cModule report_all_gdts
; J2 t* k9 P9 L$ p    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

. ~+ w7 }  _. o" n        Dim displayPart As Part = theSession.Parts.Display
7 ~  I% X8 K- ^% E
        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
3 b0 c3 t3 y" h# ]) j        Next
9 C3 q6 u! S' f$ I
, u' Q6 L0 d: J" y        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
, F: u3 U3 I- F% f7 g( `            lw.WriteLine(fcf1.ToString)
        Next
* w7 L2 f# x6 D6 v! a: O5 y
5 c5 `3 n8 R8 F% K( U& Y        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next
! N4 f5 n6 _! H8 A7 W
    End Sub
End Module
[/mw_shl_code]
7 t/ z' |3 p3 r