구 다른 프로그램

O0500
#1= 0
#2= 1000.
#3= 1000.
#4= 1
#5= 0(X POS)
#6= 0(Y POS)
#7= 5.(TOOL/2)
#8= 100.(WON R)
#9= 0(START ANGLE PLANE)
#10= 1. (G91 ANGLE PLANE)
#11= 360.1(FNISH ANGLE PLANE)
#19= 90. (3D START ANGLE)
#20= 15. (3D G91 ANGLE)
#21= -0.1(3D FNISH ANGLE)
G90G0X0Y0M3 S1000
G43Z50. H1
G90G0X#5Y#6M98 P501
G40G90G0Z200.M9
M30

O0501
G52X#5Y#6
G90G0X[#8+[2*#7]]Y0
Z1.
G1Z0F100.
#30= #19(3D START ANGLE)
#31= #8(WON R)
N1
#16= #9(START ANGLE PLANE)
#22= SIN[#30]
#23= COS[#30]
#24= #31*#22(Z)
#25= #31*#23(X)
#26= #25
#27= #8-#24
G90G1G41X#26 Y0 D#4F#2--------------------------------
G1Z-#27F100.
N2
#12= COS[#16]
#13= SIN[#16]
#14= #26*#12 (X POS)
#15= #26*#13 (Y POS)
G90 G1 X#14Y#15-----------------------------------------
#16= #16+#10
IF[#16LT#11]GOTO 2
G91G1Z#27
G90
#30= #30-#20
IF[#30GT#21]GOTO 1
G40G90G0X[#8+[2*#7]]Y0
G40G90G0Z50.
G90M99

O0502
G52X#5Y#6
G90G0X[#8+[2*#7]]Y0
Z1.
G1Z0F100.
#16= #9(START ANGLE PLANE)
#17= #8(WON R)
#30= #19(3D START ANGLE)
#31= #8(WON R)
N1
#22= SIN[#30]
#23= COS[#30]
#24= #31*#22(Z)
#25= #31*#23 (X)
#26= #25 (X= PLANE R)
#27= -[#8-#24]
G1Z#27 F100.
N2
#12= COS[#16]
#13= SIN[#16]
#14= #26*#12
#15= #26*#13
/ #14= #17*#12(X POS)
/ #15= #17*#13(Y POS)
G41X#14 Y#15 D#4F#2
#16= #16+#10
IF[#16 LT#11] GOTO 2
#30= #30-#20
IF[#30 GT#21] GOTO 1
G40G90 G1 X[#8+[2*#7]]Y0
G40G90G0Z50.
G90M99

 

O0503
G52X#5Y#6
G90G0X[#8+[2*#7]]Y0
Z1.
G1Z0F100.
#16= #9(START ANGLE PLANE)
#17= #8(WON R)
#30= #19(3D START ANGLE)
#31= #8(WON R)
N1
#22= SIN[#30]
#23= COS[#30]
#24= #31*#22(Z)
#25= #31*#23 (X)
#26= #25 (X= PLANE R)
#27= -[#8-#24]
G1Z#27 F100.
N2
#12= COS[#16]
#13= SIN[#16]
#14= #26*#12
#15= #26*#13
/ #14= #17*#12(X POS)
/ #15= #17*#13(Y POS)
G41X#14D#4F#2
G3 I-#14 F#3
G1
#16= #16+#10
IF[#16GT#11]GOTO 2

IF[#30LT#21]GOTO 1
G40G90 G1 X[#8+[2*#7]]Y0
G40G90G0Z50.
G90M99

 

O0505
G52X#5Y#6
G90G0X[#8+[2*#7]]Y0
Z1.
G1Z0F100.
#30= #19(3D START ANGLE)
#31= #8(WON R)
N1
#22= SIN[#30]
#23= COS[#30]
#24= #31*#22(Z)
#25= #31*#23 (X)
#26= #25 (X= PLANE R)
#27= -[#8-#24]
G41X#14D#4F#2
G1Z#27 F100.
G3 I-#14 F#3
G1
#30= #30-#20
IF[#30 GT#21] GOTO 1
G40G90 G1 X[#8+[2*#7]]Y0
G40G90G0Z50.
G90M99