提取部件属性值

chenghb

ENTITY/OBJ(100)
. q0 F' ?, V7 l1 w! oSTRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
- B2 @! c( C+ lL10:
MASK/63
& U* ^3 C% I# l( {IDENT/'选择组件',OBJ,CNT,N,RESP
* p3 r8 S: |( @" F7 Z8 OJUMP/L10:,END:,,,RESP
L20:
DO/A1:,I,1,N
0 `2 {- S6 V" d4 `ENO=&ATTVL(PART,OBJ(I),'电极编号')
PRINT/ENO
A1:
END:
  {) i8 P. e0 {# b% ?  G: ^# |) \& hHALT
大吓帮我看下，编译通不过啊
' p. O9 m# [* O: @3 K

syj07

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

ypcopy

$$改成下面的就可以用了
3 |4 r1 V8 z8 E& O+ pENTITY/OBJ(100)
; [" P$ l) D; U2 CSTRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
; d1 ]1 x7 e' q! u5 jL10:
MASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
' O6 o  ~" \+ V; \JUMP/L10:,END:,,,RESP
* u% f# v; y; T& ZL20:
3 U& c% d+ q2 m( UDO/A1:,I,1,N
ENO(I)=&ATTVL(OBJ(I),'电极编号',iferr,L20
PRINT/ENO(I)
/ |0 d3 L, j6 S2 d6 x) @1 {/ m7 \% gA1:
END:
6 h) Z0 G( Z" x0 d! I( s0 K9 ~7 \( lHALT

ypcopy

ypcopy 发表于 2014-10-27 22:04
* T2 [; C; g7 K* p8 k$$改成下面的就可以用了
ENTITY/OBJ(100)
4 i, B5 V5 }3 g* X/ Y- B1 RSTRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)

* V. {% }( q0 D/ q6 U- t见      图

chenghb

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

ypcopy

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

试试这个了
- C# k+ u  }" z' v% d1 S8 B, r

chenghb

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