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

Tan_Hongli

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

& r4 R5 l' u  z+ V



ENTITY/ent(1000),obj(1000)
NUMBER/mat(12)
# }9 e- g8 {. {8 _/ E4 ~start:
% B5 X8 ?, T  y) X4 H+ Z- F; B; L- VCHOOSE/'Select move or copy,point to point!!!',$
. l2 T- `' m0 j) u: G        'Move',$
        'Copy',rsp
8 D/ C  n3 s, A/ A! }9 bJUMP/start:,hal:,,,m1:,c1:,rsp
0 s6 e4 w0 ~5 {  E0 N8 @m1:
9 T; i8 s, M  X0 ]ident/'select objects to transform',ent,cnt,num,rsp
- U, E2 R$ Z6 I5 K: a, Ejump/m1:,hal:,,rsp
m2:
gpos/'select reference point',x1,y1,z1,rsp
jump/m1:,hal:,,rsp
9 k" c% C4 L2 f. a2 cm3:
2 ~( B! q. @7 M" D' ^9 Bgpos/'select next point',x2,y2,z2,rsp
jump/m2:,hal:,,rsp
$ o. `6 }/ D+ a! Km4:
x=x2-x1
y=y2-y1
z=z2-z1
mat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num),move
2 y6 y9 b/ i* }' G: tx1=x2
, [; T+ v( L$ v7 E9 Oy1=y2
8 a8 j5 D9 {7 \2 s/ U  y. |  V1 tz1=z2
jump/m3:
4 i7 v  M& Y  k1 Y5 Vhal:
halt
0 T/ L+ U6 ^' o7 l2 Jc1:
' f, p& ?- P8 V) T- E% F4 b3 nident/'select objects to transform',ent,cnt,num,rsp
) E( o- m2 M5 N0 j( v/ Zjump/c1:,hal:,,rsp
c2:
3 Z/ ~5 K" F) F' _+ zgpos/'select reference point',x1,y1,z1,rsp
jump/c1:,hal:,,rsp
9 C& C7 o4 e" Q- A+ P: u1 Z0 d3 w4 sc3:
gpos/'select next point',x2,y2,z2,rsp
7 g4 M, X/ b1 S* ?; d2 vjump/c2:,hal:,,rsp
c4:
2 m7 g9 ^8 O  R* m& Mx=x2-x1
y=y2-y1
z=z2-z1
mat=matrix/transl,x,y,z
8 V* A- [$ e/ C& R* l6 e- T% wobj=transf/mat,ent(1..num)
9 B- e- ~$ C! a1 U! I6 sjump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli


    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享

2830

不錯不錯...頂一下.