Reklamlar

reklam reklam

Gönderen Konu: delik büyütme  (Okunma sayısı 3256 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı cncexpert

  • Programcı
  • ***
  • İleti: 71
  • +2/-0
  • Cinsiyet: Bay
delik büyütme
« : Temmuz 09, 2012, 11:17:30 ÖS »
S.A arkadaslar sizinle yaptıgım bu programı paylasmak istedim
 
M6 T1 (U Drill 24)
G0 G90 G54 X0 Y0 M3 S1500
G43 H1 Z50
G98 G83 Z-19.9 R1 Q3 F100 M8
X60
X120
X180
X240
G80
G0 Z150 M9
M1


M1
M6T2(D20)
#5=0 (work ofset extr)
#4=10 (delik capı 40 eksi takım capı bolu iki)
N6
G0G90G54X#4Y0M3S4500
G43H2Z50
Z5
G1Z0F1500M8
#1=0,25
#2=20
#3=0,25
WHILE[#1LE#2]DO1
G2I-#4Z-#1F1800
#1=#1+#3
END1
G2I-#4
G1X0
Z150
#5=#5+60(her defada ofsete 60mm eklemek için)

G10P0L2 X#5

IF[#5LE240]GOTO6 (240 mm ulasana kadar programı tekrarlar n6 satırından baslar)

G10 P0 L2 X0 (work ofsetteki olusan degerleri sıfırlar   x0.000)
M9
M1


M6T2(D20)
#5=0
#4=13 (havsa  büyük çapı 46 -20 bolu takım capı =13)
N7
G0G90G54X#4Y0M3S4500
G43H2Z50
Z5
G1Z0F1500M8
#1=0,25
#2=3
#3=0,25
WHILE[#1LE#2]DO1
G1Z-#1F1500
G1X#4
G2I-#4
#4=#4-#3
#1=#1+#3
END1
G0Z150
#5=#5+60
G10P0L2X#5
IF[#5LE240]GOTO7
G0Z200M9
G91G28Y0
G10 P0 L2 X0
M30

s.a herkese iyi çalışmalar.....
« Son Düzenleme: Temmuz 10, 2012, 09:58:58 ÖS Gönderen: cncexpert »
Konya ys teknik hırdavat kesici takımda 21.12.2015 te işe başlıyor

Çevrimdışı cncexpert

  • Programcı
  • ***
  • İleti: 71
  • +2/-0
  • Cinsiyet: Bay
Ynt: delik büyütme
« Yanıtla #1 : Aralık 19, 2015, 07:53:33 ÖS »
Arkadaşlar  teşekkür edelim lütfen
Konya ys teknik hırdavat kesici takımda 21.12.2015 te işe başlıyor