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

admin

NX二次开发源码分享： 打印所有的GDT 信息
' J& p# g$ R5 d) r$ B! B6 X

[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Annotations

" N5 p3 e5 b5 R8 k- |$ U0 X8 |! aModule report_all_gdts
! N% E( g7 y4 G9 J    Sub Main()

        Dim theSession As Session = Session.GetSession()
0 Z5 D/ f: s2 f0 z: v" c        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

4 t" w! _, H; f4 [% E        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
- r$ b7 T! [7 M+ Y& {: T; Y            lw.WriteLine(gdt1.ToString)
- i3 L% Y/ e% d/ U) c' K' o% G/ O        Next
5 G4 v$ k# F( z3 v4 E9 u
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
4 p( u* c* \, |4 W& m            lw.WriteLine(fcf1.ToString)
        Next
( Z' u6 A5 y- V- }
( f; {( G! M! G. z$ q+ L# X" P1 m        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
! t, A! _( M" X+ Z, G4 t        Next
, k, l# [' h( A+ {& b: H
5 O' r; ]/ X) u  L: `    End Sub
End Module
[/mw_shl_code]
$ p. S  J- P8 ~/ S! `0 G' [, Z