めねじヘリカル1ピッチ　ＮＣマクロ

マクロ

%
O1001(ME NEJI HELICAL 1PITCH MACRO)
(A=START CYOKKEI)
(B=TANI KEI)
(C=Z START)
(I=Z END)
(K=KIRIKOMI RYOU)
(D=TOOL CYOKKEI)
(F=OKURI SOKUDO)
(S=SPARK OUT KAISUU)
(X=ANA CENTER X)
(Y=ANA CENTER Y)

(---VARIABLE CHECK---)
IF[#1LT#7]GOTO999
IF[#1GT#2]GOTO999
IF[#7LT0]GOTO999
IF[#6LE0]GOTO999
IF[#9LE0]GOTO999
IF[#24EQ#0]GOTO999
IF[#25EQ#0]GOTO999

(---VARIABLE DEFINITION---)
#27=[#1-#7]/2(START R)
#28=[#2-#7]/2(END R)
#30=#27(R)
#29=#19(COUNTER)

(---START---)
G17
G90G00Z50.
X#24Y#25
Z30.
G01Z1.F1000
Z#3F500
X[#30+#24]F#9

N110
G01X[#30+#24]F1
G02I-#30Z#4F#9
#30=#30+#6
IF[#30GE#28]GOTO140
N120
G01X[#30+#24]F1
G03I-#30Z#3F#9
#30=#30+#6
IF[#30LT#28]GOTO110

N130
#29=#29-1
#30=#28
IF[#29GE-1]GOTO110
GOTO990
N140
#29=#29-1
#30=#28
IF[#29GE-1]GOTO120

N990(END)
G01X#24F#9
Z1.F3000
G00Z50.
M99
N999(VARIABLE ERROR)
M02
%
					

メインプログラム例

%
O101(SAMPLE MAIN ME NEJI HELICAL 1PITCH)
#101=8.4(START CYOKKEI)
#102=10.(TANI KEI)
#103=-11.(Z START)
#104=-12.5(Z END)
#106=0.1(KIRIKOMI RYOU)
#107=8.(TOOL CYOKKEI)
#109=100(OKURI SOKUDO)
#119=1.(SPARK OUT KAISUU)
#124=0(ANA CENTER X)
#125=0(ANA CENTER Y)
G17
G90
G00G54X0Y0
G43Z50.H1
M3S4000
M8
G65P1001A#101B#102C#103I#104K#106D#107F#109S#119X#124Y#125
M9
M5
G91G28Z0
M02
%