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

hnfmhggxx

点到点连续粘贴面怎么实现？
类似点到点连续复制的。哪位大虾能写一写，多谢，
# O4 f! O$ I- h% w1 }

victor_tech

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

danyfer

ENTITY/OBJ(1000),PPT(1000),COP(1000)
NUMBER/MAT(12),MAT2(12)
NUMBER/X(20),Y(20),Z(20)

MAT2=MATRIX/TRANSL,0,0,0  $$原点复制$$

L10:    $$选择要复制的实体
MASK/70
IDENT/'选择要复制的实体',OBJ,CNT,NUM,RESP
. y! p! ~( |9 n8 ^% n2 `JUMP/,TRM:,,,RESP

" \: \0 B- Q: n& Y, D* E; \L20:        $$选择起点
* a$ `& @# |; _2 V2 Z5 m4 h4 KGPOS/'选择面上的点作为参照点',X(1),Y(1),Z(1),RESP
JUMP/L10:,TRM:,RESP

  o0 |* O( e% TL30:        $$选择终点
GPOS/'选择面上的点作为参照点',X(2),Y(2),Z(2),RESP
JUMP/L10:,TRM:,RESP
MAT2=MATRIX/TRANSL,X(2)-X(1),Y(2)-Y(1),Z(2)-Z(1)  $$复制$$
& M. n! v& T1 W5 h; M. y
  n% x, |5 T1 d2 f4 JDO/ST1:,I,1,NUM
        COP(I)=TRANSF/MAT2,OBJ(I)
2 \7 }# H2 P4 `ST1:

L40:        $$继续选择
9 o; Y8 ^! `* L/ m/ nJUMP/L30:
( D& y$ }8 o. T% B, T
! Z7 M; k( }7 ?4 V( @
' A( S# l! A; S: \' i( DTRM:
HALT
- o, L- E  q( {0 ?7 b% o2 J

戏男

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