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

Tan_Hongli

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

3 }3 g/ Z0 i8 @8 e& P

$ N' `$ R, b, v3 F
2 i0 ?6 s" _( V) p2 _
. E$ E3 R6 ?6 q. j3 aENTITY/ent(1000),obj(1000)
2 u# `0 [) S6 d6 oNUMBER/mat(12)
: e6 D  a3 X$ a) r! H) S+ jstart:
$ l7 M# U1 W; E+ a# ^1 ~# y1 P- vCHOOSE/'Select move or copy,point to point!!!',$
9 O( k# o/ E2 J, a9 [4 R. N        'Move',$
        'Copy',rsp
JUMP/start:,hal:,,,m1:,c1:,rsp
# H) I6 J; ]7 L# Q+ O; ym1:
8 T/ _8 _9 C/ ]) [4 r/ J. ~2 y& \3 P; }ident/'select objects to transform',ent,cnt,num,rsp
jump/m1:,hal:,,rsp
m2:
, [- Z2 A  n$ S  v0 [gpos/'select reference point',x1,y1,z1,rsp
5 s" p6 J  N6 b8 y, e) h4 {0 \jump/m1:,hal:,,rsp
! `' ]' G$ a! T5 Q* y/ ~- km3:
gpos/'select next point',x2,y2,z2,rsp
+ Q( R- @4 p7 ijump/m2:,hal:,,rsp
m4:
9 X$ F. p/ P& C# q- G, dx=x2-x1
, b8 \; z  k0 {! C$ ^2 ey=y2-y1
z=z2-z1
2 r( p7 o8 y: g0 J) E& S* S" h' W# Bmat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num),move
1 }5 W/ a) q/ n) V) G& ^2 F2 E( }x1=x2
& B" o& A; Q% q; d8 b" g( v) z6 [y1=y2
, D  z- j3 E0 C9 Fz1=z2
& I% y' J7 v. @jump/m3:
hal:
halt
6 h% p; t7 x" _- K& l+ \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:
% _; S5 ]/ s! A6 Jgpos/'select next point',x2,y2,z2,rsp
jump/c2:,hal:,,rsp
% @8 A6 q) I  }" g& Xc4:
6 u# T! k& _( Z! J& ?! d8 t! ^x=x2-x1
1 C: x: s, y4 b4 b( o2 wy=y2-y1
z=z2-z1
mat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num)
/ M: q- I* f) E: T+ l6 Hjump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli


) v6 a* w& e9 ~3 L' h$ M* @    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享
& E" j$ ]2 l8 O" g( ~0 A, h

2830

不錯不錯...頂一下.