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

admin

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


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

Module report_all_gdts
! U3 S# @! d! ?! S) Z# i3 X& \/ l    Sub Main()
" t# ]2 d0 b2 `8 ?0 `2 N
        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
& e) w7 x7 A. a6 V+ R4 g, [        lw.Open()

        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
* `6 W2 J7 Q& M9 r7 C1 ~            lw.WriteLine(gdt1.ToString)
' e# k$ A( |& A& p" M. x: r        Next

        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next
, d: T& e' D4 C: m
        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next
) ]; o) {  _/ \2 |* h( J
! x( S. w( d6 e7 Q9 s! Y& A    End Sub
End Module
[/mw_shl_code]
; g8 x& d5 y% G" L" D% ~