Reklamlar

reklam reklam

Gönderen Konu: G25 Macro örneği  (Okunma sayısı 345 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Sfr

  • Turkeycnc.com Üyesi
  • *
  • İleti: 3
  • +0/-0
G25 Macro örneği
« : Ağustos 17, 2019, 03:37:02 ÖS »
Çeşitli macro örnekleri inceleme ve deneme yanılma sonucunda yazdığım macrodur.

O0004(DAIRE CEP FREZELEME)
-----
-----
#2=5(TAKIM YARI CAPI)
#5=47.43(ISLENECEK DAIRE YARICAP)
#7=19.07(DERINLIK)
#6=[#7/10](PASO)
#8=[#6]
#4=#5-#2
#1=#5-[#5/#2]
WHILE[#6LE#7]DO1
#4=#5-#2
G90G00X#4Y0
WHILE[0LE#4]DO2
G90G01X[#4]Y0F150
G01Z-#6
G03I-[#4]
G91G00Z3
#4=#4-#2
END2
#6=#6+#8
END1
G90G00Z10


Bu programda işin içine virgülden sonra binler basamağını (#5=47.438 gibi) kattığım zaman sonuç hatalı çıkıyor. Yani Binlik kısmında hesap yaptıramıyorum.
#6=[#7/10](PASO) paso miktarı arttıkça 10 ve katları yazmak gerekiyor. Yukarıda anlattığım sorundan dolayı.
Bu sorunu  Round'la çözmeye çalıştım ama kullanım yanlış yapıyorum yada bu çözüm değil.
Yada paso hesaplattırmanın başka bir çözüm önerisi sunabilecek arkadaşlar var cevapları için şimdiden teşekkür ederim.

Birde Macro da or ,xor, and... gibi terimlerin kullanım örneğini hiç göremedim nette. Bana kaynak gösterecek arkadaş varsa sevinirim.

Çevrimdışı Ufk

  • 21i-MB 21i-TB
  • Operatör
  • **
  • İleti: 18
  • +0/-0
  • Cinsiyet: Bay
Ynt: G25 Macro örneği
« Yanıtla #1 : Ağustos 18, 2019, 08:26:24 ÖS »
O0004(DAIRE CEP FREZELEME)
#2=5(TAKIM YARI CAPI)
#5=47.43(ISLENECEK DAIRE YARICAP)
#7=19.07(DERINLIK)
#6=2(PASO)                         buraya her tur dalmak istediğin derinlik yazılır.
#8=#6
N20#4=#5-#2
G90G0X#4Y0
IF[#6GE#7]THEN#6=#7        burada son son tur derinlik istediğin ölçüyü geçerse hatveyi #7 değişkenine eşitler.
G1Z-#6F150
WHILE[0LE#4]DO2
G1X#4
G03I-#4
#4=#4-#2
END2
G90G0Z3.
IF[#6EQ#7]GOTO10
#6=#6+#8
GOTO20
N10G90G0Z10.
M30

WHILE komutu kapalı çevrim IF komutu kullanarak daha esnek programlar yazılabilir.
You are not allowed to view links. Register or Login

Çevrimdışı Sfr

  • Turkeycnc.com Üyesi
  • *
  • İleti: 3
  • +0/-0
Ynt: G25 Macro örneği
« Yanıtla #2 : Ağustos 19, 2019, 01:17:04 ÖÖ »
Ufk usata örnek için emeğine sağlık. 

#2=5(TAKIM YARI CAPI)
#5=25.223(ISLENECEK DAIRE YARICAP)
#7=20.001(DERINLIK)
#6=2(PASO)
#8=#6
#1=#7+#6-0.001

WHILE[#6LE#1]DO1
#4=#5-#2
IF[#6GE#7]THEN#6=#7
G90G00X#4Y0
G01Z-[#6]F150
WHILE[0LE#4]DO2
G01X[#4]
G03I-[#4]
#4=#4-#2
END2
G91G00Z5
#6=#6+#8
END1
G90G00Z10

sayende tam G25 yada Delik büyütme oldu diyebilirim :)
IF'de GOTO ile geri satırlar atınca geçikme oluyor diye okumuştum.Bu yüzden WHILE ile yazmaya çalıştık. Sadece WHILE ile olmuyor sayende  farkına vardım.

Çevrimdışı Ufk

  • 21i-MB 21i-TB
  • Operatör
  • **
  • İleti: 18
  • +0/-0
  • Cinsiyet: Bay
Ynt: G25 Macro örneği
« Yanıtla #3 : Ağustos 19, 2019, 11:59:28 ÖÖ »
Evet gecikme oluyor alt program kullanıyormuş gibi davranıyor.
Eğer sürekli kullanacağınız programsa kendim için hazırladığım programı verebilirim.
You are not allowed to view links. Register or Login

Çevrimdışı Sfr

  • Turkeycnc.com Üyesi
  • *
  • İleti: 3
  • +0/-0
Ynt: G25 Macro örneği
« Yanıtla #4 : Ağustos 19, 2019, 07:11:02 ÖS »
Ufk usta sağolasın öyle çok kullanılcak değil.
Yeni macro öğreniyorumda deneme amaçlı yazmıştım.
Neler yapılabilir nasıl olur gibi örneklere bakarak bişleyler  öğrenmeye çalışıylrum işte.

Çevrimdışı Ufk

  • 21i-MB 21i-TB
  • Operatör
  • **
  • İleti: 18
  • +0/-0
  • Cinsiyet: Bay
Ynt: G25 Macro örneği
« Yanıtla #5 : Ağustos 19, 2019, 10:06:25 ÖS »
Allah kolaylık versin hayırlı işler
You are not allowed to view links. Register or Login