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

hnfmhggxx

点到点连续粘贴面怎么实现？
* [8 r+ ]/ B6 t8 f' c( J& L$ U类似点到点连续复制的。哪位大虾能写一写，多谢，
, G! P  Z# ~. s
7 x! S8 Q( |9 L' o% {8 f' a, T

victor_tech

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

danyfer

ENTITY/OBJ(1000),PPT(1000),COP(1000)
6 _( ~. F$ z% O, j  \0 m& WNUMBER/MAT(12),MAT2(12)
NUMBER/X(20),Y(20),Z(20)
7 l* I) i: m- i
0 k& C! h( r- ^4 D' hMAT2=MATRIX/TRANSL,0,0,0  $$原点复制$$
0 D& w7 s$ l1 K# _
  ?4 |& y  N; E2 l! FL10:    $$选择要复制的实体
MASK/70
  f6 }; B! f3 }8 P5 m+ GIDENT/'选择要复制的实体',OBJ,CNT,NUM,RESP
JUMP/,TRM:,,,RESP

L20:        $$选择起点
GPOS/'选择面上的点作为参照点',X(1),Y(1),Z(1),RESP
JUMP/L10:,TRM:,RESP

L30:        $$选择终点
2 u) W$ a% |' YGPOS/'选择面上的点作为参照点',X(2),Y(2),Z(2),RESP
$ ~: q2 u8 J! P" ~/ W8 p5 L0 BJUMP/L10:,TRM:,RESP
MAT2=MATRIX/TRANSL,X(2)-X(1),Y(2)-Y(1),Z(2)-Z(1)  $$复制$$
/ e7 D  _, {# f5 F7 t/ }
" R9 Z" ^, W! I" y* O0 cDO/ST1:,I,1,NUM
        COP(I)=TRANSF/MAT2,OBJ(I)
3 t/ G$ |: _- [8 d" m4 V5 r+ @ST1:

1 \3 L. ~/ q, [% l+ u; dL40:        $$继续选择
JUMP/L30:
4 y" V% C% ]$ F$ z: ^+ w4 @1 w
/ B3 C9 `( ~6 _; }) h) q0 h7 y$ S
TRM:
& b- R7 m* j5 h" e/ Y# F7 q0 {HALT
6 W4 m+ A4 T9 O+ H

戏男

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