M3S1
G90G55G0X0.Y0.Z50.
Z3.
#1=0
#2=10*COS[#1]
#3=10*SIN[#1]
G0X#2Y#3
G1Z-5.F200
WHILE[#1LE360]DO1
#2=10*COS[#1]
#3=10*SIN[#1]
G1X#2Y#3F200
#1=#1+1
END1
G0Z50.
X0.
Y0.
M05
M30
LHQS
T1D1
G90G54G0X45.Y0.M03S900
G0Z15.F500
M8
R1=30
R2=18
R3=72
R4=5
G0X=R1×COS(R2)
Y=R1×SIN(R2)
G1Z-5.F100
MIA;R2=R2+R3
R4=R4-1.
G42G1X=R1×COS(R2)
Y=R1×SIN(R2)
IF R4>=0GOTOB MA1
G40X45.Y0.
G0Z100.
M30;
不错哦
淘宝里有本《西门子840d数控编程实例加强版》里面有宏程序,变量编程