Helisel Çevre Dönme Makrosu Olan var mı?

[serhat16123]

merhaba.
ben mitsubishi m70 kullanıyorum.
kendimce bir çevre dönme (kare, dikdörtgen) makrosu yaptım, kullanıyorum.
ancak ben aynı cam programlarında olduğu gibi helisel yapmak istiyorum.
daha temiz olacağını düşünüyorum çıkan parçanın.
elinde olan paylaşabilir mi?
veya nasıl çeviririm.

kullandığım makro:


(----- CEVRE DONME MAKROSU ----)
     
       #7=45; (<== X OLCU);
       
       
       #77=40; (<== Y OLCU);
   

       #6=12; (<== TAKIM CAPI);
       
     
       #66=0; (<== RADUS);
       
       
       #41=2; (<== PAH);


       #3=10;  (<== Z DERINLIK TOPLAM);

                               
       #4=0.2; (<== Z PASO);               
                                     
                                     
       #10=2000; (<== F ILERLEME);


       #11=2500;  (<== S DEVIR);

       #22=54(Parça Sıfırın Nerede?);


#8=[#7/2];
#90=[#6/2];            (X AYAR);
#9=[#8+#90];

#15=[#77/2];
#16=[#6/2];        (Y AYAR);
#17=[#15+#16];

#5=[#3/#4];
#99=[#9+15];



  G91 G28 G0 Z0.;                   
   G40 G49 G80;                     
   M3 S#11;                         
   G90 G#22 G0 X#99 Y0;               
   G0 G43 H1 Z10.;                   
   G1 Z0. F#10;                     
   M98 H027 L#5;                     
   G0 Z10.;                         
   M5 M9;                           
   G91 G28 G0 Z0.;                   
   M30;                             
   ;                                 
   N027;       
        G91 G01 Z-#4 F#10;             
   G90 X#9;
Y-#17 R#66 C#41;
X-#9 R#66 C#41;
Y#17 R#66 C#41;
X#9 R#66 C#41;
Y0;
X#99;                                                       
   M99;                             

[serhat16123]

Bunu Nasıl Helisel Yaparız?

O0012
#1=0.0
#2=0.5(Z Paso)
#3=30.0(Z Toplam Derinlik)
#4=150.0(Y Deger)
#5=100.0(X Deger)
#22=12(Takim Capi)
#50=#22/2
#51=#4/2
#52=#5/2
#53=#50+#51
#54=#50+#52
G0G17G40G49G80G90
G91G28Z0.0
G0G90G54X0.0Y-#54
M3S#24
G43H3Z5.0
N100G1Z-#1F#25
X-#53
Y#54
X#53
Y-#54
X0.0
#1=#1+#2
IF[#1LE#3]GOTO100
G0Z5.0
G91G28Z0.0
M30
%