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

admin

NX二次开发源码分享： 打印所有的GDT 信息
' M1 H8 b1 M! ]1 J  C# j' H

[mw_shl_code=cpp,true]Option Strict Off
$ F9 K7 S+ \! l) d$ aImports System
Imports NXOpen
8 K, `5 R4 W$ |, h7 h9 s9 o3 d. F* ~Imports NXOpen.Annotations

7 J' a& m% b1 [3 gModule report_all_gdts
6 c7 a( Q: u$ g/ A# y2 I/ C    Sub Main()
3 j' D: `% b; I2 c- y5 u
/ D/ Y2 n0 U- [2 V7 [        Dim theSession As Session = Session.GetSession()
1 W* G; {0 i1 ]. R! p: [: D        Dim lw As ListingWindow = theSession.ListingWindow
9 u+ c: u* `  T& }        lw.Open()
, l( T/ N% T: _2 ?- ?7 v
        Dim displayPart As Part = theSession.Parts.Display

5 V; z' D, H9 B: `8 ]9 h        For Each gdt1 As Gdt In displayPart.Gdts
3 ~3 q5 X5 U8 Q2 |4 g3 ?            lw.WriteLine(gdt1.ToString)
9 H$ p4 A/ m1 j6 r' G  j        Next
( ~8 g: m- Q. b0 H' d
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
0 Q$ X, d1 _& ^( E        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
4 ~3 m0 ^6 g/ Z3 [/ U0 S+ AEnd Module
. v6 k* @& P! l% M+ ^  g[/mw_shl_code]