西门子的宏程序怎么编

西门子的宏程序都是用R参数来编辑的 要用到的量 再程序里定义好数据类型就可以了

给你发一个 砂轮修整的宏程序你可以参考一下

具体资料可以参考西门子高级编程

%_N_DressAUTO_MPF

$PATH=/_N_MPF_DIR

R00 Workpiece Zero position(X axis)

R01 grinder diameter

R02 cutting in value

R03 Mdress times

R04 linear speed of grinder

R05 grinder speed

M27 :diamond start

M28 :diamond stop

M31 :cutting in 切入

N000 IF $A_IN[10]==1 GOTOF DMOK

N001 MSG("the wheel not runing")

N002 M00

N003 GOTOF End

DMOK:

N004 R90=0

N005 IF $A_IN[19]==1 GOTOF DCYCST到起始位置

N006 M64 tape corrector return

N007 M62 tape corrector to original position

N008 IF $A_IN[19]==1 GOTOF DCYCST

N009 MSG("the tape corrector not in original position")

N015 M00

N020 GOTOF End

DCYCST

N010 M27 M23 diamond roll start

N015 G0 V0 w0

N017 DCYC:M31 cutting in

N010 R10=41 R11=0 R10 修整量设定，R11 修整次数设定

N030 V41

N040 AAA:G01 V=R10+65 F400

N050 R10=R10+150

N060 G0 V=R10

N070 R11=R11+1

N080 IF R11<6 GOTOB AAA

N090 G01 V1004 F400

N100 R12=1004 R13=0

N105 BBB:G01 V=R12-65 F400

N110 R12=R12-150

N115 G0 V=R12

N110 R13=R13+1

N125 IF R13<6 GOTOB BBB

N130 G01 V39 F400

N135 G0 V0

N140 STOPRE

N145 R90=R90+1 R01=R01-2*R02 R00=R00-R02

N150 R05=R04*60*1000/(R01*3.142)

N155 IF R90<R03 GOTOB DCYC

N160 M28 diamond stop

End: M30

第一次玩这个。望朋友们别骂我！

无论加工内外锥，可用下面这种R参数程序很方便的。现用上述：大端直径29.95、角度全角6度、刀具直径16、（不用刀具半径补偿）举例如下：

（29.95+16）/2=22.975+（0.05值为Z轴每次进刀的2/1）所得R1=23.025

角度全角6度除2等于3所得R2=TAN(3)

R3=—0.1

R1=23.025

R2=TAN(3)

R3=0

G54G0X0Y0

********

********

AA:G0Z=R3

G1Y=R1+R2＊R3F

如果是外锥只需把R1值改变成小端直径值，加号改变成减号即可

G3J=－(R1+R2＊R3)

G0Y0

R3=R3-0.1

IF

R3>=—24.5

GOTO

AA

M02

直径尺寸大小控制修改R1值，角度改变修改R2值，即可加工内外圆锥，不同直径大小和角度的圆锥面。

n20

g00

x80

z100

m05

m09

n25

m00

n30

t2d1

m03

s800

m08

（外圆精车刀）

n35

r105=5

（设置坯料切削循环参数）

n40

lcyc95

（调用坯料切削循环精加工）

n45

g00

x80

z100

m05

m09

n50

m00

n55

t3d1

m03

s300

m08

（切槽车刀，刀宽4mm）

n60

g00

x37

z-23

n65

g01

x26

f0.1

n70

g01

x37

n75

g01

z-22

n80

g01

x25.8

n85

g01

z-23

n90

g01

x37

n95

g00

x80

z100

m05

m09

n100

m00

n105

t4d1

m03

s300

m08

（三角形螺纹车刀）

　r100=29.8

r101=-3

r102=29.8

（设置螺纹切削循环参数）

r103=-18

r104=2

r105=1

r106=0.1

r109=4

r110=2

r111=1.24

r112=0

r113=5

r114=1

n110

lcyc97

（调用螺纹切削循环）

n115

g00x80

z100

m05

m09

n120

m00

n125

t3d1

m03

s300

m08

（切断车刀，刀宽4mm）

n130

g00

x45

z-60

n135

g01

x0

f0.1

n140

g00

x80

z100

m05

m09

n145

m02

子程序

l01.spf

n05

g01x0

z12

n10

g03

x24

z0

cr=12

n15

g01

z-3

n20

g01

x25.8

n25

g01

x29.8

z－5

n30

g01

z－23

n35

g01

x33

n40

g01

x35

z－24

n45

g01

z－33

n50

g02

x36.725

z－37.838

cr=14

n55

g01

x42

z－45

n60

g01

z－60

n65

g01

x45

n70

m17

---