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

admin

NX二次开发源码分享： 打印所有的GDT 信息
" C) O; F* _9 [

[mw_shl_code=cpp,true]Option Strict Off
9 m! `6 o1 U; t- I9 @7 tImports System
Imports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
* n8 q5 [, z7 y% t, D1 P3 N    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
) V# T! O9 W! D7 S1 J0 R2 a" Y        lw.Open()
9 T7 }. h2 A: C1 {4 C
8 N) k5 L; A; S6 |) w8 S7 ~        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next
* ^. L( F' r- b3 O
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
) \7 N( J; g  R4 a7 e# J0 W' E0 q            lw.WriteLine(fcf1.ToString)
        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
% G/ g* n3 D6 j; d+ t, j" _        Next

+ w6 g1 R) [: N5 r! K) }    End Sub
End Module
; S$ L* R) D5 B[/mw_shl_code]