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

hnfmhggxx

点到点连续粘贴面怎么实现？
, g: K) ~; |4 p, G8 D4 n; w2 Y5 d类似点到点连续复制的。哪位大虾能写一写，多谢，

4 d0 i+ q+ o/ N3 A! u

victor_tech

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

danyfer

ENTITY/OBJ(1000),PPT(1000),COP(1000)
NUMBER/MAT(12),MAT2(12)
+ ^: x- t8 H( d9 G" H6 YNUMBER/X(20),Y(20),Z(20)
# U, ^- T5 l, T4 b7 D+ f; @" g3 p
MAT2=MATRIX/TRANSL,0,0,0  $$原点复制$$
$ M/ Z4 C- B$ {  b) Q0 h
L10:    $$选择要复制的实体
2 x2 c/ E; v: [MASK/70
9 f( W# T6 `" D: F. b+ P* jIDENT/'选择要复制的实体',OBJ,CNT,NUM,RESP
/ T5 r- U6 K6 E. h3 FJUMP/,TRM:,,,RESP

+ h9 _9 D1 a* _; }) v- AL20:        $$选择起点
GPOS/'选择面上的点作为参照点',X(1),Y(1),Z(1),RESP
JUMP/L10:,TRM:,RESP

L30:        $$选择终点
. x  `! j4 k' z: sGPOS/'选择面上的点作为参照点',X(2),Y(2),Z(2),RESP
" Y* x' N. @6 }+ s* w# y& r# |- OJUMP/L10:,TRM:,RESP
MAT2=MATRIX/TRANSL,X(2)-X(1),Y(2)-Y(1),Z(2)-Z(1)  $$复制$$
/ E( Q% j* a# }' E$ ]. n
DO/ST1:,I,1,NUM
        COP(I)=TRANSF/MAT2,OBJ(I)
ST1:
0 V  v2 Y) Z" u! P7 N& G
* @1 \. z8 T, G- Z" k: A! G3 D# xL40:        $$继续选择
* S% Z5 y$ |/ s# u6 \3 FJUMP/L30:
1 V% b& q) X$ ~

TRM:
1 O& {7 ]4 O7 E# K1 }HALT

戏男

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