在网上找的Grip编辑器中有点到点复制组件代码，有个问题请教大佬们

齐威王

代码如下


ENTITY/ent(1000),obj(1000)
NUMBER/mat(12)

start:

    CHOOSE/'【点对点移动或者复制】',$
                            '复制  (中键默认)',$
                            '移动  ',$
                            deflt,1,resp
    JUMP/start:,hal:,,,c1:,m1:,tc:,resp

c1:
    ident/'  复制,请选择体或装配',ent,cnt,num,resp
    jump/start:,start:,,resp
c2:
    gpos/'  复制,选择参考点',x1,y1,z1,resp
    jump/start:,start:,,resp
c3:
    gpos/'  复制,选择目标点',x2,y2,z2,resp
    jump/start:,hal:,,resp
c4:
    x=x2-x1
    y=y2-y1
    z=z2-z1
    mat=matrix/transl,x,y,z
    obj=transf/mat,ent(1..num)
    jump/c3:

m1:
    ident/'  移动,请选择体或装配',ent,cnt,num,resp
    jump/start:,start:,,resp
m2:
    gpos/'  移动,选择参考点',x1,y1,z1,resp
    jump/start:,start:,,resp
m3:
    gpos/'  移动,选择目标点',x2,y2,z2,resp
    jump/start:,hal:,,resp
m4:
    x=x2-x1
    y=y2-y1
    z=z2-z1
    mat=matrix/transl,x,y,z
    obj=transf/mat,ent(1..num),move
    x1=x2
    y1=y2
    z1=z2
    jump/m3:

tc:


   jump/start:

hal:
halt

齐威王

经过几天研究，已经解决了