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

admin

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


[mw_shl_code=cpp,true]Option Strict Off
Imports System
Imports NXOpen
) [( S/ B' c9 ^/ C8 N, AImports NXOpen.Annotations

  e' X4 t. x6 [1 X" eModule report_all_gdts
    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
1 e# H! U! f) n% p        lw.Open()
6 d2 c, F4 Q4 z3 I4 T
        Dim displayPart As Part = theSession.Parts.Display
+ c, u" L/ D( X/ D) e. p
. E8 k7 `) M6 P0 f" D6 y1 B        For Each gdt1 As Gdt In displayPart.Gdts
- ^9 L9 o( e, [, Z2 l5 e: }) y/ c            lw.WriteLine(gdt1.ToString)
        Next
( {, _4 Y9 D: p( l2 M
9 e+ }$ c3 y1 [        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next
" e3 ^8 h3 g: S% G+ ]. w) J: t
5 j, |' D9 ^0 {% j        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next

    End Sub
End Module
[/mw_shl_code]