购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

---

GRIP点到点移动、复制源代码分享，源码如下：

ENTITY/ent(1000),obj(1000)
NUMBER/mat(12)
start:
CHOOSE/'Select move or copy,point to point!!!',$
'移动',$
'复制',rsp
JUMP/start:,hal:,,,m1:,c1:,rsp
m1:
ident/'select objects to transform',ent,cnt,num,rsp
jump/m1:,hal:,,rsp
m2:
gpos/'select reference point',x1,y1,z1,rsp
jump/m1:,hal:,,rsp
m3:
gpos/'select next point',x2,y2,z2,rsp
jump/m2:,hal:,,rsp

jump/m3:
hal:
halt
c1:
ident/'select objects to transform',ent,cnt,num,rsp
jump/c1:,hal:,,rsp
c2:
gpos/'select reference point',x1,y1,z1,rsp
jump/c1:,hal:,,rsp
c3:
gpos/'select next point',x2,y2,z2,rsp
jump/c2:,hal:,,rsp
c4:
x=x2-x1
y=y2-y1
z=z2-z1
mat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num)
jump/c3: