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

admin

NX二次开发源码分享： 打印所有的GDT 信息
3 q5 _& g/ x" g8 Q- ~+ I4 `

: L1 i8 t- ^& ?5 L[mw_shl_code=cpp,true]Option Strict Off
Imports System
' R1 x2 s5 W4 u# fImports NXOpen
5 W$ B/ P. D4 xImports NXOpen.Annotations

5 q; C4 m9 T4 I! o. _Module report_all_gdts
7 i. Y5 A4 y1 ]! o  x    Sub Main()

+ O) }, M  l* c( f- H, t        Dim theSession As Session = Session.GetSession()
) Z& ?7 v- W9 [8 c# ^" ]        Dim lw As ListingWindow = theSession.ListingWindow
. [& _0 l/ x3 n- K- G5 ~% w        lw.Open()
! ^9 @/ i9 n/ A  t5 O+ @, g0 ]
/ _' k1 z8 S0 M. X( g        Dim displayPart As Part = theSession.Parts.Display

) d: ]/ d( [5 K& d        For Each gdt1 As Gdt In displayPart.Gdts
* b# K) |8 t. Q) }* n            lw.WriteLine(gdt1.ToString)
* v& J* l0 i3 L  S        Next
$ `4 q6 K- f7 m. q2 j0 b9 p
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
+ ~% M$ G  P6 N            lw.WriteLine(fcf1.ToString)
& `4 ~/ d+ q  V& r        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
$ z( M. _* J" h( |% v            lw.WriteLine(pmi1.ToString)
        Next
9 C* Q/ V% N6 H5 U
    End Sub
. X8 W1 j- ?# d! w7 wEnd Module
[/mw_shl_code]