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

hnfmhggxx

点到点连续粘贴面怎么实现？
  ]- K* e: X- G类似点到点连续复制的。哪位大虾能写一写，多谢，

6 R4 y! ^+ ]$ G! Y

victor_tech

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

danyfer

ENTITY/OBJ(1000),PPT(1000),COP(1000)
NUMBER/MAT(12),MAT2(12)
NUMBER/X(20),Y(20),Z(20)
* A* r3 ?& ?9 E' s
MAT2=MATRIX/TRANSL,0,0,0  $$原点复制$$
4 m. M3 p( s7 t
/ ~$ i- A" S% L8 t! u1 |L10:    $$选择要复制的实体
MASK/70
4 m0 ]8 e% q, QIDENT/'选择要复制的实体',OBJ,CNT,NUM,RESP
JUMP/,TRM:,,,RESP
; ^4 S- ~( U6 \! {  z) _& N
L20:        $$选择起点
GPOS/'选择面上的点作为参照点',X(1),Y(1),Z(1),RESP
JUMP/L10:,TRM:,RESP

1 Q: i3 ^/ e) f3 h& w$ u+ vL30:        $$选择终点
GPOS/'选择面上的点作为参照点',X(2),Y(2),Z(2),RESP
4 e4 Z- x6 [' ]; I; D% eJUMP/L10:,TRM:,RESP
( O' O8 R7 n3 j1 J% e0 oMAT2=MATRIX/TRANSL,X(2)-X(1),Y(2)-Y(1),Z(2)-Z(1)  $$复制$$

7 e8 Z; p1 g- ~) hDO/ST1:,I,1,NUM
8 A9 ^# |6 q; q& d8 A5 b. _0 @        COP(I)=TRANSF/MAT2,OBJ(I)
! G4 T; t) _! g. ]ST1:
4 U2 \, ~* X  h4 a5 T7 ^% y5 W$ [
L40:        $$继续选择
JUMP/L30:
, y2 y; e  G/ @0 k* n9 g
; E: A4 f- m2 N' @/ _  D% G
TRM:
9 N0 o# ~( o4 |9 ~5 `3 q, YHALT
' g6 A! c1 p/ n2 H$ o

戏男

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