版主同学，删掉这个贴子吧，谢谢

努力活着

版主同学，删掉这个贴子吧，谢谢 版主同学，删掉这个贴子吧，谢谢 5 k# y% }) x( {. G  M+ j1 L, I 版主同学，删掉这个贴子吧，谢谢

努力活着

ENTITY/obj,obj1(1500),obj2(1500),obj3(1500),ena(1500),enb(1500),enc(1500)
# J8 m3 r  q; n# w  O; jnumber/mat(12)
INEXTE/ALL $$所有      
/ |  Y" ~6 G$ {+ c) p( Tj=0
ixa=0
: V; f+ o+ j) M6 Sixb=0
ixc=0
. J- [, F9 Z& X5 R& n3 ]
LOOP:
j=j+1
obj=NEXTE/IFEND,END:    $$ 循环得到所有  实体   
ch=&layer(obj)          $$ 获得 对象的所属层
( L) z  f7 k' j* x
6 ~6 M4 i$ B/ xIF/CH==9,JUMP/L00:
5 C2 l7 E9 D5 E- o6 d1 k4 pIF/CH==1 OR CH==2 OR CH==3 OR CH==4 OR CH==5 OR CH==11 OR CH==12,JUMP/L10:
IF/CH==15 OR CH==16 OR CH==18 OR CH==21,JUMP/L10:
0 w% I8 T$ X& H( K7 ]IF/CH==22 OR CH==23 OR CH==24 OR CH==25,JUMP/L10:
IF/CH==6 OR CH==7 OR CH==8 OR CH==10 OR CH==13 OR CH==14 OR CH==17,JUMP/L20:
( a" T0 E) m  j8 d- kIF/CH==19 OR CH==20 OR CH==26 OR CH==27 OR CH==28,JUMP/L20:
jump/LOOP:

% B" z+ U* ~/ w4 m# ?' P" X( u( eL00:
" P( T2 S% ~; j; ^8 s7 b' X
8 q9 g' g) T- m7 m. j+ i, pixa=ixa+1
8 b7 {, Y* v+ d! y. k! `ena(ixa)=obj
jump/LOOP:
0 `2 v! @9 T' r& E  B
L10:
$ y0 X7 C; M' q) O# p( W$ Dixb=ixb+1
" |3 q  O% o3 O, _4 b: y7 Benb(ixb)=obj
jump/LOOP:
. n9 X" ]: S% y$ q; d/ w# t6 W; z- h
9 U' Q, J* G6 O1 I! a! J+ E3 JL20:
( G. p" R8 ^2 `; y. Mixc=ixc+1
enc(ixc)=obj
2 _1 K, A- V* x6 ]jump/LOOP:
" \# y( l- m) ^- I
END:
5 v! U0 A2 i! X- Y    mat=matrix/transl,0,0,50
7 L0 a+ N& ~# c" N4 t; N    obj1=transf/mat,ena(1..ixa),move

8 Q# @! D; T) q+ N1 w0 z( _HALT

努力活着

自己顶，问题还是没有解决呀

努力活着

自己顶，问题还是没有解决!!!!!!!

XIAObo595219317

谢正华？？   好挂件啊

努力活着

版主同学，删掉这个贴子吧，谢谢