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

Tan_Hongli

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

5 h# O" p8 o; g8 P
  v0 k* K: b% f: H" v# P4 a( ?! n
' S$ l3 ^' w  w3 ?# J0 L+ L# q' {

ENTITY/ent(1000),obj(1000)
/ u3 z1 W% V& INUMBER/mat(12)
start:
CHOOSE/'Select move or copy,point to point!!!',$
' y! b  u( B' H1 H        'Move',$
+ x5 {6 K2 S3 O( ?- ]! A4 z        'Copy',rsp
+ o: m& ~* z" [7 Z5 f2 w9 jJUMP/start:,hal:,,,m1:,c1:,rsp
2 I# c/ e: l2 b  k/ C/ J2 Em1:
8 E* c5 V1 U! c: U- L% oident/'select objects to transform',ent,cnt,num,rsp
! [, Z" d8 X' q1 @3 _5 U% ajump/m1:,hal:,,rsp
( Q6 I6 V) [4 g7 j7 j: im2:
0 t5 h) x2 e8 w6 n& o6 G7 Lgpos/'select reference point',x1,y1,z1,rsp
. C/ X( I! W* [+ ljump/m1:,hal:,,rsp
m3:
- n  t/ k& A! }1 p+ D9 c- zgpos/'select next point',x2,y2,z2,rsp
jump/m2:,hal:,,rsp
m4:
x=x2-x1
y=y2-y1
z=z2-z1
. x& F: M5 _2 g, P5 kmat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num),move
: T  e+ @  G! Yx1=x2
4 i6 b( u0 O0 u. _# |8 by1=y2
' y! G1 h3 K) l) dz1=z2
! O' Z% I7 X% ^4 ?jump/m3:
/ [8 B6 d! h$ y) V* {! O% p2 uhal:
* V! `( K6 S( h9 W0 ohalt
c1:
ident/'select objects to transform',ent,cnt,num,rsp
jump/c1:,hal:,,rsp
2 O7 T* m* l- L# a% Ac2:
" j5 V6 [$ E& o3 b: p8 d, G" Xgpos/'select reference point',x1,y1,z1,rsp
jump/c1:,hal:,,rsp
; P, G0 t8 H% N3 wc3:
gpos/'select next point',x2,y2,z2,rsp
jump/c2:,hal:,,rsp
6 w. v/ X9 `  M( J2 Y+ Tc4:
x=x2-x1
! E7 W+ d+ r% u7 e3 i3 A4 ~  |( n% sy=y2-y1
z=z2-z1
, }* Y$ B2 J2 X" s, Y: m3 |mat=matrix/transl,x,y,z
obj=transf/mat,ent(1..num)
jump/c3:

Tan_Hongli

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

yl.fu

不錯喔！！！！

suyongbo1978

谢谢 谢谢 谢谢

lanyongqiang

回复 1# Tan_Hongli


    5E6I65I65

yiuxiong

不錯不錯...頂一下.

308064408

egligang

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

march

謝謝分享
! k% s5 h- ~( X. b6 \, }6 x

2830

不錯不錯...頂一下.