点到点移动、复制，一个程序，有（源代码）

Tan_Hongli · 发表于 2010-4-12 11:09

点到点移动、复制，一个程序实现

ENTITY/ent(1000),obj(1000)
NUMBER/mat(12)
start:
CHOOSE/'Select move or copy,point to point!!!',$
'Move',$
'Copy',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
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:
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:

Tan_Hongli · 发表于 2010-4-12 11:11

沙发自己做，呵呵，总结前人的经验，对于老鸟，我这就是小菜一碟了，新手可以学习学习

yl.fu · 发表于 2010-4-12 12:10

不錯喔！！！！

suyongbo1978 · 发表于 2010-4-18 13:55

谢谢谢谢谢谢

lanyongqiang · 发表于 2010-11-21 05:12

回复 1# Tan_Hongli

5E6I65I65

yiuxiong · 发表于 2010-12-24 20:09

不錯不錯...頂一下.

308064408 · 发表于 2010-12-28 22:16

egligang · 发表于 2011-3-2 16:57

大虾，如何做到点第一个对话框上的按钮，打开第二个对话框？谢谢，提示对话框区域2不可用

march · 发表于 2011-5-25 15:07

謝謝分享

2830 · 发表于 2011-6-19 11:44

不錯不錯...頂一下.

		自动登录	找回密码
密码			注册

[原创] 点到点移动、复制，一个程序，有（源代码）

相关帖子