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

admin

NX二次开发源码分享： 打印所有的GDT 信息
1 x5 R% ?3 I2 b1 U
! p9 ~8 G; R# p& [# o+ Z3 r
[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
8 h0 s; ~8 I6 `Imports NXOpen.Annotations
$ J- @8 g8 G+ V. ]  w6 n3 n+ \
0 A2 V* X$ ]3 l. ^' lModule report_all_gdts
    Sub Main()
1 K3 E/ i+ P; s/ C* Q9 U
) z8 J0 P- ?) c' i5 N        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
, Y3 _4 W' j1 S        lw.Open()
5 b% D1 p" f8 Z  D: ^
        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next

+ J( N7 ~, P7 n+ v# f* V' c        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
) j" i) S% R2 }$ G7 z% m$ K            lw.WriteLine(fcf1.ToString)
5 F: |0 F) k# ]3 U6 A1 u1 i4 X( w        Next

& Z# D1 A7 H) x9 A( |, T! J# d4 }4 ^) ^        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
, j1 x/ H2 G7 A9 u        Next
0 v0 t# ~" A& a2 `# Y$ o
    End Sub
. E2 i! {( d0 l1 e/ j2 L. ^End Module
/ d9 K# v% i9 w0 _4 s9 E[/mw_shl_code]
) ]' O. _: l$ V$ N+ n! M