โปรแกรมขั้นเทพ MACRO PROGRAM

 โปรแกรมขั้นเทพ MACRO PROGRAM

 สำหรับหา FIXTURE ของเครื่อง HORIZONTAL เครื่องกัดแนวนอน
โดยการใส่ค่า x y z ของชิ้นงานเพียงด้านเดียว จะคำนวณออกมาให้3ด้านเลย
โดยโปรแกมจะนำค่าที่ใด้ไปใส่ใน ค่าG54 G55 G56 ให้โดยอัตโนมัติ
โดยใช้ G65 เป็นตัวกำกับ


%001
(MACRO PROGRAM)
#1 EQ #24
#2 EQ #26
#3 EQ #25
#4=0
(G54)
#10=345.
#11=-800.
IF[[#1]GT[#10]]GOTO1
#21=ABS[#10]-ABS[#1]
GOTO2
N1 #21=ABS[ABS[#1]-ABS[#10]]
GOTO2
N2 IF[[#2]GT[#11]]GOTO3
#23=ABS[#11]-ABS[#2]
GOTO10
N3 #23=ABS[ABS[#2]-ABS[#11]]
GOTO10
N10 #24=[#21]*COS[#4]-[#23]*SIN[#4]
    #26=[#21]*SIN[#4]+[#23]*COS[#4]
    #2501=[#24]+[#10]
    #2601=[#3]
    #2701=[#26]+[#11]

(G55)
#4=90.
#10=345.
#11=-800.
IF[[#1]GT[#10]]GOTO1
#21=ABS[#10]-ABS[#1]
GOTO2
N1 #21=ABS[ABS[#1]-ABS[#10]]
GOTO2
N2 IF[[#2]GT[#11]]GOTO3
#23=ABS[#11]-ABS[#2]
GOTO10
N3 #23=ABS[ABS[#2]-ABS[#11]]
GOTO10
N10 #24=[#21]*COS[#4]-[#23]*SIN[#4]
    #26=[#21]*SIN[#4]+[#23]*COS[#4]
    #2502=[#24]+[#10]
    #2602=[#3]
    #2702=[#26]+[#11]

(G56)
#4=270.
#10=345.
#11=-800.
IF[[#1]GT[#10]]GOTO1
#21=ABS[#10]-ABS[#1]
GOTO2
N1 #21=ABS[ABS[#1]-ABS[#10]]
GOTO2
N2 IF[[#2]GT[#11]]GOTO3
#23=ABS[#11]-ABS[#2]
GOTO10
N3 #23=ABS[ABS[#2]-ABS[#11]]
GOTO10
N10 #24=[#21]*COS[#4]-[#23]*SIN[#4]
    #26=[#21]*SIN[#4]+[#23]*COS[#4]
    #2503=[#24]+[#10]
    #2503=[#3]
    #2703=[#26]+[#11]

M99