トロコイド　ＮＣマクロ

マクロ

%
O1008(TROCHOID)
(A=KAKOU HABA)
(D=TOOL CYOKKEI)
(I=X START POSITION)
(J=Y START POSITION)
(X=X END POSITION)
(Y=Y END POSITION)
(Z=Z POSITION)
(K=KIRIKOMI RYOU)
(F=OKURI SOKUDO)

(---VARIABLE CHECK---)
IF[#1LE0]GOTO999
IF[#7GE#1]GOTO999
IF[#6LE0]GOTO999
IF[#9LE0]GOTO999
IF[#4EQ#0]GOTO999
IF[#5EQ#0]GOTO999
IF[#24EQ#0]GOTO999
IF[#25EQ#0]GOTO999
IF[#26EQ#0]GOTO999

(---VARIABLE DEFINITION---)
#27=[#1-#7]/2(R)
#28=#24-#4(LX)
#29=#25-#5(LY)
#30=SQRT[#28*#28+#29*#29](L)
#31=#28/#30(X/L)
#32=#29/#30(Y/L)
#11=#27*#32(RX)
#12=0-#27*#31(RY)
#10=0

(---START---)
G17
G90G00Z50.
X#4Y#5
Z30.
G01Z1.F1000
Z#26F500
WHILE[#10LT#30]DO1
G01X[#11+#10*#31+#4] Y[#12+#10*#32+#5]F#9
G03X[0-#11+#10*#31+#4] Y[0-#12+#10*#32+#5]I-#11J-#12
G01X[#11+#10*#31+#4] Y[#12+#10*#32+#5]
#10=#10+#6
END1
G01X[#11+#24] Y[#12+#25]F#9
G03X[0-#11+#24] Y[0-#12+#25]I-#11J-#12
G01X#24Y#25
Z1.F1000
G00Z50.
M99
N999(VARIABLE ERROR)
M02
%
					

メインプログラム例

%
O108(SAMPLE MAIN TROCHOID)
#101=20.(KAKOU HABA)
#107=16.(TOOL CYOKKEI)
#104=0(X START POSITION)
#105=0(Y START POSITION)
#124=50.(X END POSITION)
#125=50.(Y END POSITION)
#126=-10.(Z POSITION)
#106=0.1(KIRIKOMI RYOU)
#109=1000(OKURI SOKUDO)
G17
G90
G00G54X0Y0
G43Z50.H1
M3S4000
M8
G65P1008A#101D#107I#104J#105 X#124Y#125Z#126K#106F#109
M9
M5
G91G28Z0
M02
%