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

admin

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


7 J- H3 m6 ?$ R- z6 v[mw_shl_code=cpp,true]Option Strict Off
+ _. j# V9 i$ k- DImports System
Imports NXOpen
Imports NXOpen.Annotations

2 o: J8 F& R: P6 {Module report_all_gdts
    Sub Main()
+ m$ }& M: c0 M% R6 t
2 n  @9 ^; U& h6 ^' l# I4 t        Dim theSession As Session = Session.GetSession()
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

3 d; K+ K; {9 n  [8 c$ ]  c        Dim displayPart As Part = theSession.Parts.Display

, w3 h4 l. ?3 V" p; V9 H1 C        For Each gdt1 As Gdt In displayPart.Gdts
) b+ F1 y8 w) G. k( T5 K) Z            lw.WriteLine(gdt1.ToString)
        Next
6 u4 y. k- C0 h4 ?/ a4 ~+ z% R
( r/ |! I6 v4 Z# K8 a0 ^: e% n        For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
            lw.WriteLine(fcf1.ToString)
        Next
8 d" l1 A; Z3 M2 ]6 C7 C
        For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
            lw.WriteLine(pmi1.ToString)
; y' A2 U% Q. b0 ^; y$ B* |/ r/ A5 t        Next
  Z( p( M9 S5 Z4 L% \; w# C" s
    End Sub
- X% R/ i" W1 _$ c0 e5 o! P% C: [End Module
! R. u+ R6 ~, }0 d0 I[/mw_shl_code]