提取部件属性值

chenghb

ENTITY/OBJ(100)
& r" R0 p" }/ `6 a0 {, \STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
L10:
5 G# N3 M# R) [! I; ?0 nMASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
JUMP/L10:,END:,,,RESP
L20:
6 \. |3 ^+ J( |; K! t( qDO/A1:,I,1,N
ENO=&ATTVL(PART,OBJ(I),'电极编号')
( E/ U7 t/ y: N* z& c- ~/ CPRINT/ENO
A1:
% [+ U3 ^+ x* ~4 I6 fEND:
/ s& `$ @/ S; fHALT
大吓帮我看下，编译通不过啊

: L+ K2 R  ~7 P! z

syj07

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

ypcopy

$$改成下面的就可以用了
9 b5 k2 h0 w3 l' aENTITY/OBJ(100)
( \% _, W- A  {4 b" p6 pSTRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
+ F/ N$ n4 x+ p! BL10:
MASK/63
' Q  E$ r$ b0 C- {" _; W# m( `IDENT/'选择组件',OBJ,CNT,N,RESP
# w0 d  l* M" _JUMP/L10:,END:,,,RESP
L20:
" E  h% Q; Z5 r( f2 y5 [6 xDO/A1:,I,1,N
ENO(I)=&ATTVL(OBJ(I),'电极编号',iferr,L20
PRINT/ENO(I)
A1:
END:
HALT

* n$ s9 {- N1 v! z9 i. t0 x9 H

ypcopy

ypcopy 发表于 2014-10-27 22:04
$ [! }$ V5 ^7 P/ p( @$ ]0 |& T" J' i$$改成下面的就可以用了
. Q; }. j0 x. ]8 r2 ^ENTITY/OBJ(100)
STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)

! F9 v' Y; ^5 P9 w% q见      图

chenghb

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

ypcopy

chenghb 发表于 2014-10-27 22:29
2 c6 _/ p" f* p" N. q& y8 D我试了也不行啊。真是郁闷

试试这个了
* i$ {3 s8 Z6 H7 |

chenghb

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