wangfuqiang1123 发表于 2013-10-31 22:39:54

车蜗杆的宏程序

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*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 ] GOTO N90
V11=0
V4=90-V3/2
T=V50
M01
G97M03S=V51
G0X=V41Z=-V42M8
N100
V11=V11+2.
V12=COS*V5
V13=SIN*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=*V5]]
N200
V21=V21+0.1
V22=TAN*V21
V31=*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*V5
V13=SIN*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=*V5]]
N400
V21=V21+0.1
V22=TAN*V21
V31=*V5*2]-V21*2
V31=*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

wubaoxi0618 发表于 2013-10-31 22:40:46

你写的真好 太全面了 ，什么 都顾及到了 真是很好！~！~我就是没看懂
static/image/smiley/default/funk.gif
顶你下吧 ~！~！

yyjj77 发表于 2013-10-31 22:41:21

不顶对不住楼主的勤奋!!!!!!!!!!!!!!

yyjj77 发表于 2013-10-31 22:42:11

再顶,更希望楼主能发更多好帖!!!!!!!!!

bzsSB 发表于 2013-10-31 22:43:02

不过图纸 发出来 会 更 全面

秋水狂刀 发表于 2013-10-31 22:43:40

不知道数控车最大能加工多大模数的蜗杆啊

rqsyk 发表于 2013-10-31 22:44:35

你写的真好 太全面了 ，什么 都顾及到了 真是很好！~！~我就是没看懂 顶你下吧 ~！~！

ssxko88 发表于 2013-10-31 22:45:14

想学，可惜只会入门的编程！复杂的看不懂

剑舞狂沙 发表于 2013-10-31 22:45:55

这是什么系统的程序？

kx333 发表于 2013-10-31 22:46:38

书到用时方恨少，上学时PASCAL语言没学好，不然看这不是小菜一碟。不地还是谢楼主
页: [1]
查看完整版本: 车蜗杆的宏程序