高手帮我看下，我这个代码到底是什么问题呀？？？

ht2008

高手帮我看下，我这个代码到底是什么问题呀？？？

我想实现可以框选多个实体进行平移，
. ?% g: z4 j! o! H我用的是DO循环来做的，可是代码代码翻译出来后，
只能实现一个平移，就是我选择了多个实体，可只能移动一个
' m; z3 b  z' E/ C) i3 Q( A
那位大哥帮我看看下面代码哪里有问题 ？
7 Y5 g. q4 ^, `4 I2 N: N
5 d4 y/ C  o0 W4 H
, K# N3 K2 M& u: m# e* Lentity/box(1000),box1(1000)
number/mat(12)  

l10:
& `/ K  o6 K3 D% P" }9 {   ident/'选择实体',box,cnt,num,resp
   jump/l10:,end:,,,resp
9 D& S, b: i, S/ J- D
' D! v8 k( ^% B& ~+ Yl20:
   param/'输入平移参数','X方向',x,'Y方向',y,'Z方向',z,resp
1 F* ^, q) I8 p3 @   jump/l10:,end:,,,l30:,resp

l30:
0 \4 x  O2 F6 a( B- d6 O" Z4 O. ?   mat(1..12)=matrix/transl,x,y,z
/ s; m; a' I& j  h1 ]% M
l40:
( Z1 y% K/ T! R8 U. n3 V   box1(n)=transf/mat,box(n)
   do/L50:,n,1,num
' `" u7 N9 R2 H% L( J( x   jump/l10:

l50:
   jump/l10:
* J# Y9 [: k  ^$ x8 o& }/ D
1 t% `$ B( P6 H3 Aend:
halt

-KASA-

你的循环用的不对，操作语句要在循环体里面
" Z: d3 X+ A9 h示例如下：
( |6 N- `3 H, F9 S   do/L50:,n,1,num
' B- k* s$ j+ H    box1(n)=transf/mat,box(n)
) d9 `9 S! U9 s) g$ W) i- }  C   L50: