提取部件属性值

chenghb

ENTITY/OBJ(100)
STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
L10:
: {8 R' A5 j# b, H; h* c' O/ ?MASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
* _6 s2 c+ o; ]; KJUMP/L10:,END:,,,RESP
  ~: R: x4 S: ]- Y: V; f( b3 OL20:
: d8 @# p; c% F8 Y( ]7 WDO/A1:,I,1,N
" s9 Y+ a! W: e* k0 Q+ B5 d* PENO=&ATTVL(PART,OBJ(I),'电极编号')
PRINT/ENO
A1:
% P! a/ I4 t6 P8 H4 s! S! A! Z6 vEND:
' V9 V6 E7 H/ e  NHALT
$ i0 B* b  K; R# D, i9 d$ c4 b0 c大吓帮我看下，编译通不过啊
- Y* T. k9 E# |$ m
# l) ^9 T; @2 U4 x2 G& h

syj07

做为UG爱好者就是要果断回帖，如果沉了就是我弄沉的很有成就感

ypcopy

$$改成下面的就可以用了
! s5 K) Q( M% `) S- F) tENTITY/OBJ(100)
STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
L10:
/ |( h8 `( W9 x, m* FMASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
; b$ T3 J. c8 g4 w+ ?JUMP/L10:,END:,,,RESP
L20:
  V- T+ T( H. [: wDO/A1:,I,1,N
ENO(I)=&ATTVL(OBJ(I),'电极编号',iferr,L20
PRINT/ENO(I)
A1:
END:
# t  S1 E: N! w1 ?HALT

ypcopy

ypcopy 发表于 2014-10-27 22:04
$$改成下面的就可以用了
  X- A+ B; G6 ~: I& AENTITY/OBJ(100)
5 j8 I/ j7 N$ fSTRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)

. q2 D2 Q; _" R) Q见      图

chenghb

我试了也不行啊。真是郁闷

ypcopy

chenghb 发表于 2014-10-27 22:29
我试了也不行啊。真是郁闷

' ^8 j7 q+ Z4 F& U6 v" g试试这个了

chenghb

感谢啊。我数组的格式没搞对。