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

admin

NX二次开发源码分享： 打印所有的GDT 信息
% F1 h/ C+ V* r7 k) }- b# X1 U

% S6 ]" P) d, U/ N) Q( S[mw_shl_code=cpp,true]Option Strict Off
Imports System
) I/ J  a! \" u4 YImports NXOpen
Imports NXOpen.Annotations
' n' u, A1 [  B5 M: @
Module report_all_gdts
% c( ?* w4 w1 G; a) v7 r    Sub Main()

. f0 o6 A$ {# \+ C; G8 B. i# m        Dim theSession As Session = Session.GetSession()
  g2 x: |( x& Y( ~) ~        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

; c! z8 j0 z9 }* E" Z/ E        Dim displayPart As Part = theSession.Parts.Display
! e1 z* c- L: q
. Y" k$ S. P7 h4 E/ x1 c7 ~$ D        For Each gdt1 As Gdt In displayPart.Gdts
; y4 [* |6 O6 E            lw.WriteLine(gdt1.ToString)
' f* @/ |% m+ f( C. \        Next
8 \3 w) R' t6 d8 q5 P
' ^6 b& w- D# D        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
7 ^2 W2 P) O: z* y( f7 U        Next

- \  C( |! Z- v1 U3 ?$ Q        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
/ S5 N2 Z& q* C& [) }. [            lw.WriteLine(pmi1.ToString)
        Next
' Y1 {; f$ r- c# h1 @+ M' }
; m! @: d* [3 T) b7 h: i# Y4 G    End Sub
! V0 l1 N$ ?) T5 `End Module
[/mw_shl_code]
* r( N! h  I, |8 `