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

admin

NX二次开发源码分享： 打印所有的GDT 信息
5 N, Z5 B$ \% M( N5 `

[mw_shl_code=cpp,true]Option Strict Off
. l" o! x; ^" y* O4 b; `' ]2 |Imports System
; Q5 {$ P2 e. j; e2 R- f) s& OImports NXOpen
Imports NXOpen.Annotations
: I* O$ t4 W+ \4 i+ a6 S
Module report_all_gdts
    Sub Main()

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

& R* T& S5 l1 w( m7 ^# k$ v6 H( V& y        Dim displayPart As Part = theSession.Parts.Display

% |. M0 ?" `+ _0 X' y        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
# u* J5 @( l- M6 M2 q        Next
: p* \* W# [: n  p& N/ t
+ _; l2 S  @1 @2 G) o3 k        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
- y- O3 |1 A2 U( o. V7 [5 v            lw.WriteLine(fcf1.ToString)
! ?- }. X$ p. c/ D; i; E* A- J5 ~        Next
. G( N; p2 F" r/ l  k
( i8 a8 w% M- Q2 H3 b        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
8 b) Z( v& {0 k' q1 u            lw.WriteLine(pmi1.ToString)
# i1 [1 R& a& E# W4 A! v- c9 f        Next
7 O0 q, \! C/ f$ F# s4 I
    End Sub
! Z; Z' S% ]4 F& N# oEnd Module
[/mw_shl_code]