|
|
请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!
您需要 登录 才可以下载或查看,没有账号?注册
x
NX二次开发源码分享: 打印所有的GDT 信息: [! o" j% Q- g% N/ B8 T+ p
' P0 \- K0 }" h' C% g* C
7 J- H3 m6 ?$ R- z6 v[mw_shl_code=cpp,true]Option Strict Off
+ _. j# V9 i$ k- DImports System- r" o5 R+ Q, q" Z% e; J
Imports NXOpen) M3 I) H; I% V. y" {: C
Imports NXOpen.Annotations- c" }4 E1 h2 X
2 o: J8 F& R: P6 {Module report_all_gdts. x* _% J) \* H2 ]- |
Sub Main()
+ m$ }& M: c0 M% R6 t
2 n @9 ^; U& h6 ^' l# I4 t Dim theSession As Session = Session.GetSession()1 b8 L8 G- a! h; `0 H l. X5 G! ]
Dim lw As ListingWindow = theSession.ListingWindow9 X" u2 e2 ~1 q9 \
lw.Open()" r1 H. m- i: A% V' Q& I( a P
3 d; K+ K; {9 n [8 c$ ] c Dim displayPart As Part = theSession.Parts.Display4 }3 g# Y7 K, j' S# |5 a" @) ?
, 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)6 @$ @- E) r, J
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. d5 g% \/ @: S! T! Z0 J, E- z
lw.WriteLine(fcf1.ToString). y M% E' L" v+ G7 i
Next
8 d" l1 A; Z3 M2 ]6 C7 C* H; L5 A' k: }! P
For Each pmi1 As Pmi In displayPart.PmiManager.Pmis; Y$ I9 H% n6 h1 m
lw.WriteLine(pmi1.ToString)
; y' A2 U% Q. b0 ^; y$ B* |/ r/ A5 t Next
Z( p( M9 S5 Z4 L% \; w# C" s) o h: w8 ?5 s, b# j3 z1 h
End Sub
- X% R/ i" W1 _$ c0 e5 o! P% C: [End Module
! R. u+ R6 ~, }0 d0 I[/mw_shl_code]5 r- ~( g! ]. E' C0 n, w
|
|