|
|
|
CALL O2513 V1=12 V2=15 V3=40 V5=1 V8=1.3 V9=1.3 V10=80 V15=4 V20=20 V30=25.13 V25=6 V40=180 V41=82 V42=V20 V50=0101 V51=900
M30
O2513
(V1=齿宽 V2=齿高 V3=齿形角 V4=倒角圆弧夹角 V5=倒角半径V8=Z1预留量 V9= Z2预留量 V10=大径)
(V15=齿底过切量 V20=z~起点 V30=导程 V25=蜗杆~退刀角）
(V31=X~变 V32=Z~变量 V40=z~终点 V41=X~退刀 V42=Z~起点 V50=刀补刀号 V51=主轴转速 )
V21=0
T=V50
M01
G97M03S=V51
G0X=V41Z=-V42M8
N90
V21=V21+0.5
V22=TAN[V3/2]*V21
V31=V10-V21*2
V32=V20+V22+V8
V33=V20+V1-V9-V22
N91
G0X=V31Z=-V32
G34Z=-V40F=V30
G0X=V41
Z=-V42
V32=V32+0.5
IF [ V32 LE V33 ] GOTO N91
IF [ V21 LE [V2-0.5] ] GOTO N90
V11=0
V4=90-V3/2
T=V50
M01
G97M03S=V51
G0X=V41Z=-V42M8
N100
V11=V11+2.
V12=COS[V11]*V5
V13=SIN[V11]*V5
V31=V12*2+V10-V5*2
V32=V20+V13
G0X=V31Z=-V32
G34Z=-V40L=V25F=V30
G0X=V41
Z=-V42
IF [ V11 LE V4 ] GOTO N100
V21=0
T=V50
M01
G97M03S=V51
V100=[V2-[V5-COS[V4]*V5]]
N200
V21=V21+0.1
V22=TAN[V3/2]*V21
V31=[V10-2*V5+COS[V4]*V5*2]-V21*2
V32=V20+V13+V22
G0X=V31Z=-V32
G34Z=-V40L=25F=V30
G0X=V41
Z=-V42
IF [ V21 LE V100 ] GOTO N200
V35=0
T=V50
M01
G97M03S=V51
N201
V33=V32+V35
G0X=V31Z=-V33
G34Z=-V40L=V25F=V30
G0X=V41
Z=-V42
V35=V35+0.15
IF [ V35 LE V15 ] GOTO N201
V11=0
V4=90-V3/2
T=V50
M01
G97M03S=V51
G0X=V41Z=-V42M8
N300
V11=V11+1
V12=COS[V11]*V5
V13=SIN[V11]*V5
V31=V12*2+V10-V5*2
V32=V1+V20-V13
G0X=V31Z=-V32
G34Z=-V40L=V25F=V30
G0X=V41
Z=-V42
IF [ V11 LE V4 ] GOTO N300
V21=0
T=V50
M01
G97M03S=V51
V100=[V2-[V5-COS[V4]*V5]]
N400
V21=V21+0.1
V22=TAN[V3/2]*V21
V31=[V10-2*V5+COS[V4]*V5*2]-V21*2
V31=[V10-2*V5+COS[V4]*V5*2]-V21*2
V32=V1+V20-V13-V22
G0X=V31Z=-V32
G34Z=-V40L=V25F=V30
G0X=V41
Z=-V42
IF [ V21 LE V100 ] GOTO N400
V35=0
T=V50
M01
G97M03S=V51
N401
V33=V32-V35
G0X=V31Z=-V33
G34Z=-V40L=V25F=V30
G0X=V41
Z=-V42
V35=V35+0.15
IF [ V35 LE V15 ] GOTO N401
G0X555.
RTS
|
|
发表于 2013-10-31 22:39:54
