加工程序

这是我做的一个四工位的小件加工程序系统是OI-MB，也做了M64的程序我个人觉得M64要好做点。请大家评评，也请大家想想有不有更精减的做法。
  
%  
O0072
(PROGRAMNAME-WQ347-HZ-2)  
(DATE=20-05-05)  
G21
#531=4
G0G17G40G49G80G90
G0G91G30Z0.
IF[#531GT4]GOTO90
(3.5)  
T1  
M6
#530=1
DO 1
G0G90G54.1P#530X-28.5Y0.S1500M3  
T2G43H1Z100.M8  
G98G81Z17.3R22.F200.  
X-11.5  
X6.
G80
#530=#530+1
IF[#530GT#531]GOTO10
END1
N10M5  
G91G30Z0.M9
M01
(11.8)
G0G91G30Z0.
T2  
M6
#530=1
DO 1  
G0G90G54.1P#530X-28.5Y0.S1000M3  
T3G43H2Z100.M8  
G98G81Z-5.R22.F200.
G80
#530=#530+1
IF[#530GT#531]GOTO20
END1
N20M5  
G91G30Z0.M9
M01
(25.)  
G0G91G30Z0.
T3  
M6
#530=1
DO 1  
G0G90G54.1P#530X-11.5Y0.S650M3
T4G43H3Z100.M8  
G98G81Z-10.R22.F130.  
G80
#530=#530+1
IF[#530GT#531]GOTO30
END1
N30M5  
G91G30Z0.M9
M01
(3.)  
G0G91G30Z0.
T4  
M6
#530=1
DO 1  
G0G90G54.1P#530X6.Y0.S2500M3
T5G43H4Z100.M8  
G98G83Z-5.R22.Q3.F80.  
G80
#530=#530+1
IF[#530GT#531]GOTO40
END1
N40M5  
G91G30Z0.M9
M01
( 8.)
G0G91G30Z0.
T5
M6
#530=1
DO 1
G0G90G54.1P#530X-6.525Y0.S2000M3
T6G43H5Z100.M8
Z2.
G1Z-5.F500.
G41D5X1.475F200.
G3X-22.388Y7.058R12.975
G1X-23.504Y5.335
G2X-24.777Y4.978R1.
G1X-25.855Y5.497
G3X-31.145Y-5.497R6.1
X-25.855R6.1
G1X-24.777Y-4.978
G2X-23.504Y-5.335R1.
G1X-22.388Y-7.058
G3X1.475Y0.R12.975
G1G40X-6.525
Z-3.F2500.
G0Z100.
#530=#530+1
IF[#530GT#531]GOTO50
END1
N50M5
G91G30Z0.M9
M01
(12.4-10D)
G0G91G30Z0.
T6  
M6
#530=1
DO 1  
G0G90G54.1P#530X-28.5Y0.S1300M3  
T7G43H6Z100.M8  
G98G81Z7.R22.F150.  
G80
#530=#530+1
IF[#530GT#531]GOTO60
END1
N60M5  
G91G30Z0.M9
M01
(26.25)  
G0G91G30Z0.
T7  
M6
#530=1
DO 1  
G0G90G54.1P#530X-11.5Y0.S3000M3  
T8G43H7Z100.M8  
G98G85Z-6.R22.F300.
G80
#530=#530+1
IF[#530GT#531]GOTO70
END1
N70M5  
G91G30Z0.M9
M01
(12.4)
G0G91G30Z0.
T8
M6
#530=1
DO 1
G0G90G54.1P#530X-28.5Y0.S5000M3
T1G43H8Z100.M8
G98G85Z-10.R10.F600.
G80
#530=#530+1
IF[#530GT#531]GOTO80
END1
N80M5
G91G30Z0.M9  
G90G54.1P1Y370.
N90M30
%