Cnc Airbrush

Teşekkür ederim. hallettim kodları exelde açıp stunlara ayırdım N stununu sildim, şimdi eve geldim deneme yapıcam
Genelde programlarin post larida duzenlenebilir ve cikan g-code lar istege gore uyarlanabilir.
 
.bmx dosyası hangi derleyiciyle derlenecek internette bulamadım
şu resimden g kod oluşturan programın source kodlarını buldum ama derleyemiyorum
bi kısım kod da paylaşayım;





Kod:
writeGCodeIntro(File)

        Local tanAngle:Float = Tan(VAngle / 2)

        Local i:Int = 0
               
        For Local pfi:pathFiller = EachIn FillerList
   
            'this will optimise the rapid moves between lines
            If (i Mod 2 = 1) And OptimiseRapids Then
                pfi.PointList.Reverse()
            End If

            For Local pp:pathPoint = EachIn pfi.PointList
       
                Local ZDepth:Float = -(pp.Size * 0.5) / tanAngle
   
                If (pp = PathPoint(pfi.PointList.First())) Then
           
                    WriteLine File, "G0 X" + (ZeroP.x + pp.Position.X) + " Y" + (ZeroP.y - pp.Position.Y) 'y coordinate must be inverted
                    WriteLine File, "G1 Z" + ZDepth + " F" + PlungeRate
                    WriteLine File, "F" + Feedrate
               
                EndIf
                       
                WriteLine File, "X" + (ZeroP.x + pp.Position.X) + " Y" + (ZeroP.y - pp.Position.Y) + " Z" + ZDepth
   
            Next
   
            If (i Mod 2 = 1) And OptimiseRapids Then
                pfi.PointList.Reverse()
            End If
   
            WriteLine File, "G0 Z" + SafeZ
            i:+1
   
        Next
 

Ekli dosyalar

  • 21_Release.rar
    532.8 KB · Görüntüleme: 0
Son düzenleme:

Forum istatistikleri

Konular
129,721
Mesajlar
929,270
Kullanıcılar
452,441
Son üye
alperatesoglu

Yeni konular

Geri
Üst