社区 › Simens NX二次开发专区 › NX二次开发源码分享： 打印所有的GDT 信息

admin 发表于 2018-3-17 10:21:22

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

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


Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Annotations

Module report_all_gdts
    Sub Main()

      Dim theSession As Session = Session.GetSession()
      Dim lw As ListingWindow = theSession.ListingWindow
      lw.Open()

      Dim displayPart As Part = theSession.Parts.Display

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

      For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
      Next

      For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
      Next

    End Sub
End Module

查看完整版本: NX二次开发源码分享： 打印所有的GDT 信息