分享组件移动复制代码

心静了无痕

$$
$$该程序用于组件的移动、复制
$$一、按一定的坐标增量移动、复制
$$二、按目标点与基点的坐标差进行移动、复制
$$程序创建时间2018.6.14
$$邮箱fenghualin2000@126.com
ENTITY/OBJ(100),LOBJ(100)
NUMBER/BASPT(3),TAGPT(3)
NUMBER/matx2(12)
NUMBER/N1,N2,R1,R2
NUMBER/x,y,z
NUMBER/CD(100,3),DX(100,3),DY(100,3),DZ(100,3)
L10:
MASK/63
IDENT/'选择复制目标,不超过100',OBJ,CNT,N1,RSP
JUMP/L10:,END:,,RSP

L20:
CHOOSE/'选择复制方式',$
'根据坐标增量',$
'根据目标点',RSP
JUMP/L20:,L10:,,,L30:,L50:,RSP



$$等参数复制
L30:
PARAM/'输入参数',$
'x轴增量',x,$
'y轴增量',y,$
'z轴增量',z,RSP
JUMP/L30:,L20:,,RSP

L402:
DO/L403:,R1,1,N1
&DECPL=9

CD(R1,1..3)=&ORIGIN(OBJ(R1))
DX(R1,1..3)=&XAXIS(OBJ(R1))
DY(R1,1..3)=&YAXIS(OBJ(R1))
DZ(R1,1..3)=&ZAXIS(OBJ(R1))
matx2(1)=1.0
matx2(2)=0
matx2(3)=0
matx2(4)=x
matx2(5)=0
matx2(6)=1.0
matx2(7)=0
matx2(8)=y
matx2(9)=0
matx2(10)=0
matx2(11)=1.0
matx2(12)=z
LOBJ(R1)=TRANSF/matx2,OBJ(R1),move
L403:
JUMP/END:


$$根据目标点
$$拾取基点
L50:
GPOS/'基准点',BASPT,RSP
JUMP/L50:,L20:,,,,RSP

$$拾取目标点
L60:
GPOS/'目标点',TAGPT(1..3),RSP
JUMP/L60:,L50:,,,,RSP

L70:
CHOOSE/'选择复制方向','x轴方向',$
'y轴方向',$
'z轴方向',$
'x/y轴方向',$
'y/z轴方向',$
'x/z轴方向',$
'点到点',RSP
JUMP/L70:,L60:,,,L710:,L720:,L730:,L740:,L750:,L760:,L770:,RSP

$$沿X轴方向移动
L710:
DO/L711:,R1,1,N1
&DECPL=9
CD(R1,1..3)=&ORIGIN(OBJ(R1))
DX(R1,1..3)=&XAXIS(OBJ(R1))
DY(R1,1..3)=&YAXIS(OBJ(R1))
DZ(R1,1..3)=&ZAXIS(OBJ(R1))
matx2(1)=1
matx2(2)=0
matx2(3)=0
matx2(4)=TAGPT(1)-BASPT(1)
matx2(5)=0
matx2(6)=1
matx2(7)=0
matx2(8)=0
matx2(9)=0
matx2(10)=0
matx2(11)=1
matx2(12)=0
LOBJ(R1)=TRANSF/matx2,OBJ(R1),move

L711:
JUMP/END:

$$沿Y轴方向移动
L720:
DO/L721:,R1,1,N1
&DECPL=9
CD(R1,1..3)=&ORIGIN(OBJ(R1))
DX(R1,1..3)=&XAXIS(OBJ(R1))
DY(R1,1..3)=&YAXIS(OBJ(R1))
DZ(R1,1..3)=&ZAXIS(OBJ(R1))
matx2(1)=1
matx2(2)=0
matx2(3)=0
matx2(4)=0
matx2(5)=0
matx2(6)=1
matx2(7)=0
matx2(8)=TAGPT(2)-BASPT(2)
matx2(9)=0
matx2(10)=0
matx2(11)=1
matx2(12)=0
LOBJ(R1)=TRANSF/matx2,OBJ(R1),move

L721:
JUMP/END:

$$沿Z轴方向移动
L730:
DO/L731:,R1,1,N1
&DECPL=9
CD(R1,1..3)=&ORIGIN(OBJ(R1))
DX(R1,1..3)=&XAXIS(OBJ(R1))
DY(R1,1..3)=&YAXIS(OBJ(R1))
DZ(R1,1..3)=&ZAXIS(OBJ(R1))
matx2(1)=1
matx2(2)=0
matx2(3)=0
matx2(4)=0
matx2(5)=0
matx2(6)=1
matx2(7)=0
matx2(8)=0
matx2(9)=0
matx2(10)=0
matx2(11)=1
matx2(12)=TAGPT(3)-BASPT(3)
LOBJ(R1)=TRANSF/matx2,OBJ(R1),move

[hide]