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

admin

NX二次开发源码分享： 打印所有的GDT 信息
* t' G8 g* Q  [# e

[mw_shl_code=cpp,true]Option Strict Off
Imports System
9 ?* {/ G  k; HImports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
/ d) C; F3 y' S    Sub Main()

3 P# y9 |  r% ^        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

        Dim displayPart As Part = theSession.Parts.Display
1 v) o: [% i/ {# [8 Q0 \4 _
        For Each gdt1 As Gdt In displayPart.Gdts
0 e7 k  E0 Q! L# @/ X; S            lw.WriteLine(gdt1.ToString)
        Next
5 k# X: ~/ N5 K" O# T' M' Y/ }/ ^
7 r0 p2 d2 J  P: k        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
  |2 N# e8 d. x' x        Next

" V: f' b$ B5 q        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
$ Q9 P7 G: K# N# d        Next
, D" ^3 j1 C' d1 a# V6 {( m7 H
! B- x) e$ A# h' ^2 A: Y    End Sub
End Module
[/mw_shl_code]