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

Tan_Hongli

点到点移动、复制，一个程序实现
* X  M3 _: I* t; y  g, O8 p3 z

. u$ h' p4 }8 O) a  c- G
; r* l& X0 Z, m

ENTITY/ent(1000),obj(1000)
3 Z8 c1 C' ~8 \) q* XNUMBER/mat(12)
start:
CHOOSE/'Select move or copy,point to point!!!',$
3 u# b6 X; w, _6 A) G4 x        'Move',$
7 M0 z* ]: f8 X6 R( d) @        'Copy',rsp
JUMP/start:,hal:,,,m1:,c1:,rsp
m1:
- M5 V, Y9 R9 z$ B& K; Rident/'select objects to transform',ent,cnt,num,rsp
jump/m1:,hal:,,rsp
m2:
& ^+ x8 l" E/ c. mgpos/'select reference point',x1,y1,z1,rsp
. y3 H( N! m1 Z9 X, Mjump/m1:,hal:,,rsp
) X8 U) l) E! D0 j' rm3:
! Y6 v7 Y) [3 X& F5 B" }& Fgpos/'select next point',x2,y2,z2,rsp
4 Y! H( r1 T1 A" H* p4 kjump/m2:,hal:,,rsp
m4:
x=x2-x1
9 E) B; o5 C9 ?, Y" n% Ty=y2-y1
# S- L) w( ?) W! a$ G# v2 kz=z2-z1
1 a3 L; c2 i& K7 p) n- omat=matrix/transl,x,y,z
0 T6 W% q6 ?" c6 B: x. o1 T1 uobj=transf/mat,ent(1..num),move
x1=x2
: m# d$ R' w+ u3 Sy1=y2
z1=z2
jump/m3:
5 |6 ]; h. S* ]" O& r( r' z. Y6 Hhal:
0 G% y$ D$ V2 p* c8 }3 d9 Phalt
c1:
ident/'select objects to transform',ent,cnt,num,rsp
jump/c1:,hal:,,rsp
c2:
7 k3 p' t& O; }  Z( C7 `9 Qgpos/'select reference point',x1,y1,z1,rsp
jump/c1:,hal:,,rsp
) z, H/ e8 P$ |3 G: w$ tc3:
gpos/'select next point',x2,y2,z2,rsp
jump/c2:,hal:,,rsp
; Q" y/ w8 i9 O7 v+ y  P4 M7 \c4:
6 v  g3 A: D7 e8 M$ Z: Jx=x2-x1
# M1 y, I6 S" X! T# T) I+ vy=y2-y1
z=z2-z1
- y3 Y* h, V4 C" C: U4 Ymat=matrix/transl,x,y,z
8 W' b& G2 `) C0 vobj=transf/mat,ent(1..num)
; x7 K. @" E( w$ f4 }5 Djump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli
, {3 N* e6 Q* v6 H) J5 m; k$ @

0 Q' s3 l8 b7 l0 ]! O& w2 G' a    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享
4 L8 l% m. u3 l

2830

不錯不錯...頂一下.