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

Tan_Hongli

点到点移动、复制，一个程序实现
! A6 u* I4 @& e9 J! e# J( y: y# I- w


3 d# B+ A. y9 l' ]% u
# X0 ^2 U  I3 |0 [& d  b
, y, \9 v/ m' Y1 s4 KENTITY/ent(1000),obj(1000)
NUMBER/mat(12)
+ j" A6 R! U: Tstart:
3 ^4 ?1 ?8 }, ~) F( }CHOOSE/'Select move or copy,point to point!!!',$
3 T" O5 T4 A. U, A2 W/ ?. }        'Move',$
        'Copy',rsp
( C0 A5 ]  v' i1 N! q- [/ r+ xJUMP/start:,hal:,,,m1:,c1:,rsp
m1:
; ^6 J) Y3 m, J) q* u  Zident/'select objects to transform',ent,cnt,num,rsp
1 X- Z) s3 {; b. y+ d: V1 ejump/m1:,hal:,,rsp
4 l1 M7 i$ I( W& gm2:
* j  V9 l0 f2 }8 `7 V( Z" egpos/'select reference point',x1,y1,z1,rsp
! I/ l! C1 K6 a8 O; jjump/m1:,hal:,,rsp
; x7 E) o! d8 s% |( a) w2 P7 Km3:
' A5 |/ |% Y& L4 y# }gpos/'select next point',x2,y2,z2,rsp
jump/m2:,hal:,,rsp
" {( ^) J+ q' n  m; a3 k" im4:
x=x2-x1
y=y2-y1
z=z2-z1
mat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num),move
% m" t, a4 w# O2 L+ l4 Z9 Ax1=x2
" w! g8 U6 A0 yy1=y2
6 @2 A8 E7 o+ Dz1=z2
$ p% R; S/ h4 O" N4 h% |jump/m3:
hal:
halt
# e5 Q9 ~, F! `3 jc1:
' A0 n( U" m! S$ O% Sident/'select objects to transform',ent,cnt,num,rsp
jump/c1:,hal:,,rsp
c2:
7 O) C8 |. b9 Xgpos/'select reference point',x1,y1,z1,rsp
jump/c1:,hal:,,rsp
c3:
5 B6 d' T, d0 T( M+ D1 O5 Bgpos/'select next point',x2,y2,z2,rsp
6 m4 w4 `$ i5 I: _) Yjump/c2:,hal:,,rsp
c4:
7 E) F% _1 T; n& O; e: z1 g2 L, M8 v) ux=x2-x1
y=y2-y1
z=z2-z1
mat=matrix/transl,x,y,z
: O7 c" n8 b3 [% nobj=transf/mat,ent(1..num)
jump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli
) j# m  c; h& A2 C/ M
/ T! v+ ^: S! U% \/ o0 b) V: Q
( ?$ ]6 [$ G6 I9 m: S    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享

2830

不錯不錯...頂一下.