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

admin

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

8 ~7 r" F+ n0 i( l+ N" v$ q
[mw_shl_code=cpp,true]Option Strict Off
, @* |4 g2 l; r( x7 E5 QImports System
Imports NXOpen
1 ]+ {: C+ a9 Y1 Y# fImports NXOpen.Annotations

Module report_all_gdts
    Sub Main()
$ q) {1 }% r3 w$ ^: i0 N8 W# ?
1 y% ]* P! G; K+ k% g$ |9 ~        Dim theSession As Session = Session.GetSession()
( i! P# `0 {$ J& o* F        Dim lw As ListingWindow = theSession.ListingWindow
2 T: o6 k9 I$ |        lw.Open()
$ y* a" E3 Q6 b5 e% t, W
        Dim displayPart As Part = theSession.Parts.Display

3 \$ U: {/ w7 Q        For Each gdt1 As Gdt In displayPart.Gdts
            lw.WriteLine(gdt1.ToString)
, l( ~; P  N+ W% o1 @        Next

0 @8 |2 R9 C: O1 \. b        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
3 L& G  ^4 t* d4 E% {9 d            lw.WriteLine(fcf1.ToString)
( t0 j/ k7 Z7 {" U8 R9 T8 v; S- X        Next

) y9 ^! L/ t  B( _% v        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
        Next
: q9 u- N5 }. }% U! m
  p0 Z8 ~& c" c; G$ q) h1 R    End Sub
End Module
[/mw_shl_code]
7 N- C+ c3 c; X