在网上找的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
经过几天研究，已经解决了
页:
[1]