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

Tan_Hongli

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

9 @+ R! m% Q3 G3 s6 M: K

2 V% h. B! `+ c% ]
) T* }- g  L8 [- r& C5 z% L
ENTITY/ent(1000),obj(1000)
# h; y+ s& y' ANUMBER/mat(12)
start:
* ~' |2 @% t; p3 d" }+ z' d! GCHOOSE/'Select move or copy,point to point!!!',$
        'Move',$
- }6 C: S4 h+ S) X        'Copy',rsp
JUMP/start:,hal:,,,m1:,c1:,rsp
m1:
! e3 ~! v/ H+ V$ C& {! Q& j- d/ Lident/'select objects to transform',ent,cnt,num,rsp
jump/m1:,hal:,,rsp
m2:
  r. y. H0 g- V  H$ mgpos/'select reference point',x1,y1,z1,rsp
! f. a" i) s9 V8 x3 X6 a  d1 Y7 {jump/m1:,hal:,,rsp
m3:
gpos/'select next point',x2,y2,z2,rsp
jump/m2:,hal:,,rsp
0 A  {/ _/ h/ ^3 [! D% Pm4:
x=x2-x1
6 V2 a4 y3 W8 Y9 u& m$ T. g* iy=y2-y1
+ E( e3 p2 U& @7 I- i0 K5 u3 |z=z2-z1
6 h7 U' h  I9 V3 J8 j( V! Z: Nmat=matrix/transl,x,y,z
: I( M3 T7 t0 y0 A. n: Bobj=transf/mat,ent(1..num),move
x1=x2
y1=y2
$ w+ E& B- g: ?4 e* ^z1=z2
  N1 J$ ]" S5 J) n* {6 ijump/m3:
hal:
* K# u  E: l7 fhalt
$ }+ z, L' C* B) N1 m. cc1:
ident/'select objects to transform',ent,cnt,num,rsp
jump/c1:,hal:,,rsp
, V8 t! R2 ^6 Y& n3 i' A3 t- B) \c2:
1 E. u. \) B, p! Dgpos/'select reference point',x1,y1,z1,rsp
" f5 o  Q- @( b& sjump/c1:,hal:,,rsp
c3:
0 l7 Y+ Y$ A; S7 s3 v) }' W' vgpos/'select next point',x2,y2,z2,rsp
4 N/ p' f* ]& O+ fjump/c2:,hal:,,rsp
/ U- ?' Q. R! yc4:
x=x2-x1
y=y2-y1
z=z2-z1
6 _* \% P& X. d: f! ?. rmat=matrix/transl,x,y,z
) m- T+ b; s& L0 v( L' Tobj=transf/mat,ent(1..num)
% ^, k1 w6 ~* @jump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli
2 L. U1 e9 ^. g0 f; _( u4 q
  S2 |5 G2 g7 N0 e5 m: B
! \, ^/ Q4 m" b( D' {    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享
) h) w7 F; c) }  b  z$ S

2830

不錯不錯...頂一下.