|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
NX二次开发源码分享： 打印所有的GDT 信息- H) f* f6 T) |% B) L3 }5 E; G& r) a
/ r# p6 M- A) P! x7 q/ ]) v8 p1 J
[mw_shl_code=cpp,true]Option Strict Off- v/ X+ e) @& S! O* I
Imports System' N! O( V8 ?( ]8 }
Imports NXOpen
8 j0 F2 l' Z. k2 A9 q0 a8 tImports NXOpen.Annotations
' q9 n1 c3 N- s3 a5 R$ i f* N. a- l5 ?
Module report_all_gdts1 V: @; a$ ]5 \# `" [5 C$ A
Sub Main(), I+ `* ?% Y$ p: I1 J/ s( C( t: Z
0 n) a9 H$ _, E% c7 U4 n5 p Dim theSession As Session = Session.GetSession()
" B2 U; @0 p2 s5 n3 s1 U0 o$ i; x# t2 B Dim lw As ListingWindow = theSession.ListingWindow& l& D* H8 W9 H/ l4 L9 H/ D
lw.Open(), ^* P% N; T4 T. h& G" `
/ ^2 W) U+ ]+ O
Dim displayPart As Part = theSession.Parts.Display
1 H, c) g) B- Z9 Q" e+ q t0 A, ?1 U" O( P3 ]
For Each gdt1 As Gdt In displayPart.Gdts
- V# \+ `# c2 \& ?7 @6 B* s3 T1 b lw.WriteLine(gdt1.ToString)6 C2 D) C6 ^/ C! ~$ x9 Q6 \7 `
Next2 k. _: V' s9 F& v, m* C& d
- p ` Y) o J) o3 p2 e
For Each fcf1 As Fcf In displayPart.Annotations.Fcfs
9 W7 T8 ]$ _+ Y+ q8 {, g; D% M" t lw.WriteLine(fcf1.ToString)
4 P' X' y5 x0 r8 r Next
' w: ~8 @) C. e w0 V) s- W% W/ _% {+ |* R0 Q( V ?8 G5 T
For Each pmi1 As Pmi In displayPart.PmiManager.Pmis
; M8 w/ r9 ~5 ~& ] H% _ lw.WriteLine(pmi1.ToString)0 p% k1 E1 Z' K/ ]# M1 ^
Next8 o& G& t+ E! x A$ d) M
" `% E2 `: Z2 B: h& ]8 s) Q% e End Sub
/ F0 a9 W+ K5 ^5 o6 n" Y: r/ n5 Y. qEnd Module3 Q% R( G& |2 a5 o9 D
[/mw_shl_code]7 b1 O& Y) e1 p, J6 Y; w3 y8 @5 ?; k
|
|
[复制链接]
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
