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

admin

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


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

Module report_all_gdts
    Sub Main()
- v5 n: \' L2 ~* \
, U% V* e7 T! L* q        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
' a2 j, m' K4 E: E        lw.Open()
; e7 M, j  H8 y
" V0 Q5 E% V9 K& N$ C9 E4 H        Dim displayPart As Part = theSession.Parts.Display

5 n. z* ^2 }' R7 S$ y( W        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next
2 l5 E3 R2 J3 C( e, _9 ~: ^, X# A
        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
# E9 L0 b# l: A5 ^4 V( U            lw.WriteLine(fcf1.ToString)
        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next
2 _- I+ ]( P' D( I
. U4 N- b- ~( h/ l& y* o    End Sub
6 Y; H# f1 M* R7 K) F4 [) KEnd Module
[/mw_shl_code]
( k( _9 }7 e, [; U/ b5 f