다줄나사 매크로입니다 내외경

 

 

%
O9002
G10L52
N3451R00000001
G11
IF[#24EQ#0]THEN#3000=1(NO X OR Z COMMAND)
IF[#26EQ#0]THEN#3000=1(NO X OR Z COMMAND)
IF[#4EQ#0]THEN#3000=2(NO I OR K COMMAND)
IF[#6EQ#0]THEN#3000=2(NO I OR K COMMAND)
IF[#7LT0]THEN#7=0
IF[#18EQ#0]THEN#18=0
IF[#1LT1]THEN#1=1
IF[#2LT0]THEN#2=0
IF[#5001LT[#24+[#4*2]]]GO400
#14=360000/#1
#10=[#5001-[#24+[#4*2]]]
#16=[#5001-[#24+[[#7*2]*#2]]]
#28=[#5001-#24]
N100#27=0
IF[#10EQ#16]GO200
#10=#10+[#6*2]
IF[#10GT#16]THEN#10=#16
WHILE[#27LT#1]DO2
G92U-[#10]Z#26R#18F#9Q[#27*#14]
G00
#27=#27+1
END2
GO100
N200#27=0
IF[#16EQ#28]GO700
#16=#16+[#7*2]
IF[#16GT#28]THEN#16=#28
WHILE[#27LT#1]DO3
G92U-[#16]Z#26R#18F#9Q[#27*#14]
G00
#27=#27+1
END3
GO200

N400
#4=-#4
#6=-#6
#7=-#7
#14=360000/#1
#10=[#5001-[#24+[#4*2]]]
#16=[#5001-[#24+[[#7*2]*#2]]]
#28=[#5001-#24]
IF[#5001GT[#24+[#4*2]]]GO700
N500#27=0
IF[#10EQ#16]GO600
#10=#10+[#6*2]
IF[#10LT#16]THEN#10=#16
WHILE[#27LT#1]DO2
G92U-#10Z#26R#18F#9Q[#27*#14]
G00
#27=#27+1
END2
GO500
N600#27=0
IF[#16EQ#28]GO700
#16=#16+[#7*2]
IF[#16LT#28]THEN#16=#28
WHILE[#27LT#1]DO3
G92U-[#16]Z#26R#18F#9Q[#27*#14]
G00
#27=#27+1
END3
GO600
N700
M99