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

Tan_Hongli

点到点移动、复制，一个程序实现
6 {) r- Q# |& Z: N) i


- ]6 Y9 l7 G$ ]: P3 @

9 g+ ^% n5 e- {6 sENTITY/ent(1000),obj(1000)
NUMBER/mat(12)
" \5 D2 d: I* a# b* A  ~( j. P2 P1 `start:
CHOOSE/'Select move or copy,point to point!!!',$
        'Move',$
4 K. k' |0 Z6 u  B/ d        'Copy',rsp
JUMP/start:,hal:,,,m1:,c1:,rsp
m1:
0 V: n: M  y+ H& i7 L0 \ident/'select objects to transform',ent,cnt,num,rsp
) F7 ~/ S+ q% Ijump/m1:,hal:,,rsp
m2:
- K" C* |% j& \6 i# zgpos/'select reference point',x1,y1,z1,rsp
' s( d! `8 o! w" T/ }jump/m1:,hal:,,rsp
m3:
) d- b# M. e' E3 k6 v5 B7 j4 Dgpos/'select next point',x2,y2,z2,rsp
jump/m2:,hal:,,rsp
m4:
x=x2-x1
7 @( {2 Z4 j* t7 s" qy=y2-y1
% x; U5 I! `7 e  r* [z=z2-z1
mat=matrix/transl,x,y,z
0 P* c, ?; L& u, T, H8 Hobj=transf/mat,ent(1..num),move
7 i- E2 ?" r* n0 {5 vx1=x2
" S  i8 R; |7 ]/ e: _; [y1=y2
9 Y! A: }7 x; s- R9 _& Z& Y8 Oz1=z2
8 R+ q( q4 X! h$ q$ T: D0 s( mjump/m3:
8 |( h' P7 O: j' o1 [, ^hal:
( c& K" ], E( W2 nhalt
c1:
ident/'select objects to transform',ent,cnt,num,rsp
jump/c1:,hal:,,rsp
0 Y) s) _% l2 r2 P3 I% d1 }c2:
9 i2 U% g0 k" |- h, E2 ~gpos/'select reference point',x1,y1,z1,rsp
! L/ K5 j. D( r! r: Y# K# Kjump/c1:,hal:,,rsp
4 U( X  c6 s" `' Z2 R* _* O% Sc3:
' w5 y; w# K0 }0 ?+ Qgpos/'select next point',x2,y2,z2,rsp
; k* j: k1 p3 i9 y% Z% O; `7 Wjump/c2:,hal:,,rsp
! }4 F: a# b8 Q$ P2 Uc4:
x=x2-x1
+ F7 e% r0 c- `/ ey=y2-y1
- r7 b+ [7 s) r' ^: Zz=z2-z1
mat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num)
' V) H2 T) ~  w5 v- z" ?& `jump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli
7 J4 a* ^/ S: o% A0 ?3 d# {
$ {$ \6 {) h9 `9 p- }2 V* b( S* X  }
    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享
' X- q3 Z( U5 W! s0 u$ D

2830

不錯不錯...頂一下.