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

努力活着

: L: }2 P  ^+ {; @5 j
  W8 ~( z4 L9 v% w  k

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

努力活着

ENTITY/obj,obj1(1500),obj2(1500),obj3(1500),ena(1500),enb(1500),enc(1500)
' j3 p0 J5 E5 e( r6 T0 Nnumber/mat(12)
INEXTE/ALL $$所有      
9 `7 w3 k9 g) N2 O% |/ e) Rj=0
- o: e  z7 X8 @ixa=0
ixb=0
) ^3 _; r9 n8 t% {2 V# q- N3 Sixc=0

LOOP:
8 ?! _" T* w4 ^/ ^( \j=j+1
: n1 {* z% y# K) [6 g/ ]  Aobj=NEXTE/IFEND,END:    $$ 循环得到所有  实体   
; G- d9 e. w( m' b' |ch=&layer(obj)          $$ 获得 对象的所属层
- I6 Y  K2 p; w
IF/CH==9,JUMP/L00:
1 n1 j$ e% w; Z# g4 I5 SIF/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:
. {' k" ?( K0 l. K; JIF/CH==22 OR CH==23 OR CH==24 OR CH==25,JUMP/L10:
$ C  \3 t5 W, L. |- w) QIF/CH==6 OR CH==7 OR CH==8 OR CH==10 OR CH==13 OR CH==14 OR CH==17,JUMP/L20:
IF/CH==19 OR CH==20 OR CH==26 OR CH==27 OR CH==28,JUMP/L20:
( t1 m5 P6 X8 S4 z; ?% M  l$ W1 Jjump/LOOP:

L00:
' b2 T! X. c2 {0 g- Z
  ~: `1 B3 J: y3 L- Z9 Vixa=ixa+1
ena(ixa)=obj
jump/LOOP:

1 Z: H) e0 P& ]. J* L: O9 BL10:
, _+ w  ?  U7 j6 A5 g+ ^ixb=ixb+1
- H3 ~# u) c% c) o4 Qenb(ixb)=obj
- Y# S- @+ W* q" c1 O! ojump/LOOP:

4 V5 R) S% e9 ?  Z  y8 O0 eL20:
ixc=ixc+1
enc(ixc)=obj
& g0 o5 }6 B: G* R3 }9 Jjump/LOOP:
6 a" k, A% u" M- n0 Z3 Y
4 [/ _' e+ x, r7 KEND:
    mat=matrix/transl,0,0,50
6 e, [! g4 R& j' _1 l' g  w    obj1=transf/mat,ena(1..ixa),move
4 V1 Y6 p' |8 t
HALT

努力活着

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

努力活着

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

XIAObo595219317

谢正华？？   好挂件啊

努力活着

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