右旋矩形螺纹各种螺纹通用宏程序

 O2451

G00 X50 Z12

#1=36

#2=6

#3=#1-#2/2

#4=0.5

#5=#1-#2-2*#4

#6=1.5

#7=0.366*#2-0.536*#4

#8=#2/4+tan［15］*［#1-#3］/2-0.1

#9=#2/2+tan［15］*［#1-#3］-#6-0

N1IF［#1LE#5］GOTO4

N2IF［#9LE0.1］GOTO3

G00Z［12+#8］

G92X［#1］Z-122F#2

#8=#8-0.5

#9=#9-0.5

GOTO2

N3#1=#1-1

#8=#2/4+tan［15］*［#1-#3］/2-0.1

#9=#2/2+tan［15］*［#1-#3］-#6-0.1

GOTO1

N4G00Z［12+#6/2］

G92X［#5］Z-122F#2

G00Z［12+#7/2］

G92X［#5］Z-122F#2

G00Z［12+#6-#7/2］

G92X［#5］Z-122F#2

M05

G00 X150 Z150

M30