提取部件属性值

chenghb

ENTITY/OBJ(100)
* O- w$ J- V# {' U4 W) U/ T: H3 kSTRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
L10:
( h8 u$ A' f& ~$ b* u$ `+ hMASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
JUMP/L10:,END:,,,RESP
3 u( `. @# E- y' V- u' z* uL20:
DO/A1:,I,1,N
ENO=&ATTVL(PART,OBJ(I),'电极编号')
+ u" u. X5 ^# D8 y0 |7 _PRINT/ENO
A1:
END:
0 v: v& ~; o3 [2 L; `3 h* G" F, jHALT
大吓帮我看下，编译通不过啊
$ K# f. P) b! k3 M% j5 `* l) O( I: N
" i8 |6 g9 p; I6 B5 B5 k$ X

syj07

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

ypcopy

$$改成下面的就可以用了
' b- _3 k) l" A7 \# M0 l5 fENTITY/OBJ(100)
3 J( o. G, p6 c/ @) [STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
L10:
7 F6 m8 n& h* dMASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
+ |2 d! _/ W9 N! D( CJUMP/L10:,END:,,,RESP
% c% i+ `, J" _5 c- @L20:
* `# p) P% {3 [( ~; }7 O1 G8 dDO/A1:,I,1,N
) V/ B+ X3 ]- @0 ZENO(I)=&ATTVL(OBJ(I),'电极编号',iferr,L20
PRINT/ENO(I)
A1:
END:
HALT
+ @; n% I% m7 L2 Y) _" ^
& g/ w" ]6 v2 ~* j; L' O

ypcopy

ypcopy 发表于 2014-10-27 22:04
6 K  C+ Z; r" G/ w; W# M$$改成下面的就可以用了
ENTITY/OBJ(100)
STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)

' B! H" Q1 R7 i: A% F8 h见      图

chenghb

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

ypcopy

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

试试这个了
9 o: Q8 w& l( U0 l) H6 S$ e

chenghb

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