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

admin

NX二次开发源码分享： 打印所有的GDT 信息
) w; c& c9 {$ m) X) Z
7 i% g  N  Z; h- T
[mw_shl_code=cpp,true]Option Strict Off
( N# i7 u1 \7 g/ b5 {Imports System
7 Q, P0 m; H$ O, f: q7 C8 lImports NXOpen
7 v- R/ E+ m( U: C* UImports NXOpen.Annotations
( R2 U0 k3 x- E
- ]# h, |7 K* r% GModule report_all_gdts
    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
3 B* v) H+ U8 w
        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
/ v8 F! N5 i4 ]* ?0 O1 J. j- o1 j            lw.WriteLine(gdt1.ToString)
        Next
. u9 Y% {  D  `! L7 H' r3 s
  q) _4 |0 F. q0 b2 l( J        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
7 T/ v+ S3 \8 L+ D! d        Next
6 ]' s& v' @) }/ p8 Z1 K
        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
$ a$ x7 h: `% _$ b& H; z, Z; D        Next

3 o4 Y- l% K& a, F4 l) Z    End Sub
; S8 W( T  Z6 ?+ M. NEnd Module
# Z, |- q& X1 j" E[/mw_shl_code]
3 ~0 p; c9 z) t  l" F