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

admin

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

: q9 w- \" N0 a
[mw_shl_code=cpp,true]Option Strict Off
Imports System
- ~# R+ E/ J$ a/ q% r/ HImports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
2 K6 s& g7 S7 Q& G    Sub Main()

# I5 f9 f0 ]  w/ s! z. E: t        Dim theSession As Session = Session.GetSession()
1 R' ?7 i* k1 ?* `        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
* X( G" ]# `) [
  w1 Z8 |% F3 Y        Dim displayPart As Part = theSession.Parts.Display

        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
        Next

5 g! {8 h' ~3 S/ L+ j0 {        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
5 x( R5 j3 A" F4 a5 S8 z" z/ l6 K9 P            lw.WriteLine(fcf1.ToString)
        Next

        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next
7 U- r8 D" Z  k  ^. j6 o5 r8 n
    End Sub
End Module
[/mw_shl_code]