Cevap : MACRO PROGRAMLAR VAR ELIMDE
Örnek siemens 810 d İSO modda ölçüye göre değişen macro proğram
%_N_DAREX_5_KG_GALON_MPF
;$PATH=/_N_WKS_DIR/_N_SHOPMILL_WPD
N5 E_HEAD(1077415928,-150,-100,-30,150,100,0,71,17,2,150,1,1)
N70 AROT Z180 ;#SM
N10;RADUS_ATMAYAN_5KG_DAREX_PGM_AGUSTOS_2005
N15 E_TS("10KINIS","",1,500,1,0,1)
N20;==========================
N25R66=115 ;KAPAK_X _SADECE_KAPAK_OLCUSU
N30R67=94 ;KAPAK_Y
N35R68=20 ;KAPAK_R
N40R3=-13.45 ;Z
N45R5=500 ;F_ILERLEME
N50R8=25 ;GIRIS_R
N55;==========================
N60 CALL "_N_DAREX2_SPF";#SM
N65 M30 ;#SM
%_N_DAREX2_SPF_INI
;$PATH=/_N_SPF_DIR
;RADUS_ATMAYAN_5KG_DAREX_PGM_AGUSTOS_2005
;EFKAN_AY
;===========================
R1=R66+12 ;X 12MM EKLE
R2=R67+12 ;Y 12MM EKLE
R4=R68+6 ;R 6 MM EKLE
R6=2 ;KOSE_YUVARLA
R7=8 ;DIPTEKI_RADUS
;==========================
R11=R1/2
R12=R2/2
R13=R11-R4 ;X_RADUS_MERKEZI
R14=R12-R4 ;Y_RADUS_MERKEZI
R15=42.5-R14 ;RADUS_Y_FARKI
R16=R15/R4 ;X_HESAP
R17=ASIN(R16) ;ACIYI_BUL
R18=COS(R17) ;ACININ_COS_BUL
R19=R18*R4 ;X_DEGERI GIREN
R20=R13+R19 ;X_DEGERI
R40=R12+R8 ;GIRIS_UZAK_MESAFESI
;==============================
G42 G00 G64 G451 Z150
G42 X=R8 Y=R40
G01 Z2 F1000 M03 M08
G01 Z=R3 F=R5
G02 X0 Y=R12 CR=R8
G01 X=-R13
G03 X=-R20 Y42.5 CR=R4 RND=R7
G01 X-141 Y42.5 RND=R6
Y22.5 RND=R6
X=-R11 RND=R7
Y-22.5 RND=R7
X-141 RND=R6
Y-42.5 RND=R6
X=-R20 Y-42.5 RND=R7
G03 X=-R13 Y=-R12 CR=R4
G01 X=R13
G03 X=R20 Y-42.5 CR=R4 RND=R7
G01 X141 RND=R6
Y-22.5 RND=R6
X=R11 RND=R7
Y22.5 RND=R7
X141 RND=R6
Y42.5 RND=R6
X=R20 RND=R7
G03 X=R13 Y=R12 CR=R4
G01 X-2
G01 Z2
G00 Z150
M30 ;#SM