点到点连续粘贴面怎么实现？

hnfmhggxx

点到点连续粘贴面怎么实现？
* Y9 [, y8 Z0 L: l) q2 f; X类似点到点连续复制的。哪位大虾能写一写，多谢，
6 V5 ^/ u% m7 I) B; Q* A+ R8 @
4 r7 }6 L  o( Q3 r. W* s7 ^, s

victor_tech

没在开发好一样的，有的网友帮一下

danyfer

ENTITY/OBJ(1000),PPT(1000),COP(1000)
3 ]& R+ i1 O$ ANUMBER/MAT(12),MAT2(12)
NUMBER/X(20),Y(20),Z(20)
5 E# c* o4 ]/ e
MAT2=MATRIX/TRANSL,0,0,0  $$原点复制$$
/ i2 @4 F& g; Y* r6 K( B0 _7 M
L10:    $$选择要复制的实体
MASK/70
IDENT/'选择要复制的实体',OBJ,CNT,NUM,RESP
JUMP/,TRM:,,,RESP
/ ^1 ?6 w- F* u* {
9 F+ c5 j) L; ~6 p1 e7 dL20:        $$选择起点
3 }" F6 W! R6 Y! r* L8 t# [) t9 a7 }GPOS/'选择面上的点作为参照点',X(1),Y(1),Z(1),RESP
! A5 U5 _1 d8 R) `JUMP/L10:,TRM:,RESP

! }  e) Z: `$ G4 k' O1 _L30:        $$选择终点
GPOS/'选择面上的点作为参照点',X(2),Y(2),Z(2),RESP
! c) o& _* g% z: l4 b' E% uJUMP/L10:,TRM:,RESP
MAT2=MATRIX/TRANSL,X(2)-X(1),Y(2)-Y(1),Z(2)-Z(1)  $$复制$$
% E7 |! {* m4 K
4 D2 ]# H0 n" Q% XDO/ST1:,I,1,NUM
        COP(I)=TRANSF/MAT2,OBJ(I)
) N; A8 t9 c- t3 E& \ST1:

L40:        $$继续选择
JUMP/L30:
( t( F7 U: H9 ^& w: D
1 O2 f. A3 ?8 U% y  `: C
TRM:
HALT
& m$ u( ?/ l& j

戏男

感觉不错 就是如果在选点时 能框选圆曲线 所有曲线圆心就一起选到就好了 不要一个个的选