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

Tan_Hongli

点到点移动、复制，一个程序实现
" k* m# Q$ i' }  y* U




ENTITY/ent(1000),obj(1000)
& v5 G/ r8 |& C% aNUMBER/mat(12)
start:
CHOOSE/'Select move or copy,point to point!!!',$
# M) G5 h' M1 E! B2 ^" e# z: G        'Move',$
        'Copy',rsp
JUMP/start:,hal:,,,m1:,c1:,rsp
, l! ?% b. {4 H# P7 u: E2 `2 sm1:
ident/'select objects to transform',ent,cnt,num,rsp
jump/m1:,hal:,,rsp
& F/ E$ t8 E7 P; [4 zm2:
1 I, l) }+ L5 \gpos/'select reference point',x1,y1,z1,rsp
jump/m1:,hal:,,rsp
" k* e9 @- }7 P: hm3:
9 K% f  ~0 [5 cgpos/'select next point',x2,y2,z2,rsp
jump/m2:,hal:,,rsp
0 d$ H0 v8 O: R! F$ [1 am4:
- m" P% @0 r( Z7 tx=x2-x1
y=y2-y1
z=z2-z1
- m+ c9 u+ x  H; {( L0 [3 |mat=matrix/transl,x,y,z
7 K, M7 N! ]* c4 \/ W& K/ K9 l* yobj=transf/mat,ent(1..num),move
+ x* ^  K" f, o$ Ax1=x2
6 o+ T; M; r$ Yy1=y2
, Y$ d' n0 p8 ]+ M5 t5 lz1=z2
jump/m3:
/ a8 M% u! Y) V& `hal:
halt
c1:
! v# _* h! u1 I0 Z9 H5 lident/'select objects to transform',ent,cnt,num,rsp
* z, b# e1 M! i+ l/ Kjump/c1:,hal:,,rsp
/ p% C, U* u9 p7 K) cc2:
" m$ S* U# y. Q6 B/ l# ^* V; pgpos/'select reference point',x1,y1,z1,rsp
! v' ]6 z/ o+ B2 Yjump/c1:,hal:,,rsp
8 p$ z9 m+ G5 L2 A. v- |c3:
7 K, `7 i9 [/ l3 z" U+ A2 ]gpos/'select next point',x2,y2,z2,rsp
* G5 K. {9 d- s& [  Qjump/c2:,hal:,,rsp
6 o, E- g# _7 ^+ y* Z# p$ e5 `0 Hc4:
x=x2-x1
5 P  R1 [$ ^. d! |$ By=y2-y1
# h! g; h& H+ {  az=z2-z1
mat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num)
jump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli
3 E: B4 s" p& U
* H7 p  K1 e, G$ W) d" {
    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享
0 F% g' J9 j# w

2830

不錯不錯...頂一下.