提取部件属性值

chenghb

ENTITY/OBJ(100)
STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
L10:
MASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
JUMP/L10:,END:,,,RESP
2 u8 \" G4 H8 f; @( ]L20:
+ z# m! z$ R1 `DO/A1:,I,1,N
ENO=&ATTVL(PART,OBJ(I),'电极编号')
PRINT/ENO
: v) }4 i) U4 n0 Q# G, a8 KA1:
; _: I8 k) S' }( _+ nEND:
6 \% F/ d1 |; v6 rHALT
0 \! p# e0 p' {" z大吓帮我看下，编译通不过啊

; j( m, h/ G* J( t6 ^9 t

syj07

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

ypcopy

$$改成下面的就可以用了
ENTITY/OBJ(100)
STRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)
- Y$ z( }6 j/ wL10:
MASK/63
IDENT/'选择组件',OBJ,CNT,N,RESP
; I3 k7 f4 j0 F! l* eJUMP/L10:,END:,,,RESP
4 U7 n* S! S1 }7 a, J! ?2 kL20:
) y- T9 j, ^. r. w; MDO/A1:,I,1,N
3 t2 k  m! H# A( K* `$ bENO(I)=&ATTVL(OBJ(I),'电极编号',iferr,L20
- X9 S, M5 e, a' e3 `+ X! d4 j9 yPRINT/ENO(I)
9 R# a6 M, r# U  XA1:
* `, |3 R5 B  [  {" w' eEND:
HALT

ypcopy

ypcopy 发表于 2014-10-27 22:04
$$改成下面的就可以用了
ENTITY/OBJ(100)
7 a; H( _' S: H$ [6 C. jSTRING/MNO(30),PNO(30),ENO(100,30),STOCK(100,100)

见      图
8 d* q' |2 e, M

chenghb

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

ypcopy

chenghb 发表于 2014-10-27 22:29
5 {9 B( V+ D$ x( K7 b( e我试了也不行啊。真是郁闷

试试这个了

chenghb

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