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

admin

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


! j# T- e  `: A8 P9 ^! w[mw_shl_code=cpp,true]Option Strict Off
$ t! q9 M' m2 w" H- S$ FImports System
Imports NXOpen
Imports NXOpen.Annotations

2 G2 K# [- m8 {) VModule report_all_gdts
    Sub Main()

        Dim theSession As Session = Session.GetSession()
+ m' F! ^8 j! Q' j# n" {        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
! c% i: i& X' I2 C5 x+ n7 [$ d
+ L. ]% Y  p5 ~4 G        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
+ L+ Y  V& ], B- U! |9 t        Next

7 y5 `  i( n: ~: g        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
5 ^$ F1 u3 b( `            lw.WriteLine(pmi1.ToString)
' O7 I0 ]* k/ \4 ]8 d        Next

    End Sub
  `4 ~- u) m. A) o: e& QEnd Module
& P0 S2 h7 X7 Z4 o3 m[/mw_shl_code]