No właśnie mam M2. Poniżej mój kod na procedurkę półkuli. Jest jeszcze dość chaotyczna bo pisana dnia wczorajszego. Nie jest też ona jakoś wygórowana. Dcelowo ma być też rozbudowana tocząc półkulę na osi Z od zadanej średnicy do zadanej średnicy i w miejscu w którym sobie zażyczę

(tak mi się to przyśniło i tak chciałbnym to zrobić

)
Kod: Zaznacz cały
o<polkula> sub
g18
g7
#<srednica_materialu> = #1 (=60 Srednica materialu)
#<dlugosc> = #2 (=30 dlugosc polkuli)
#<srednica_polkuli>= #3 (=60 srednica polkuli)
#<dobieranie> = #4 (=5 dobieranie materialu)
#<z_poczatkowe> = #5 (=0 długość przesuniecia poczatku Z)
#<posuw> =#6 (=1000 Predkos posuwu)
#<zm_dlugosc_z> = [#<dlugosc> / #<dobieranie>]
#<zm_srednica_x> = [#<srednica_polkuli> / [#<dobieranie> * 2]]
#<dzielenie_z>=[#<dlugosc> / #<zm_dlugosc_z>]
#<dzielenie_x>=[#<srednica_polkuli> / #<zm_srednica_x>]
#<zm_dlugosc>=0
#<zm_srednica>=#<srednica_polkuli>
g0 x[#<srednica_materialu>] z-[#<z_poczatkowe>]
o10 while [[#<zm_srednica> gt 0] AND [#<zm_dlugosc> lt #<dlugosc>]]
#<zm_dlugosc>=[#<zm_dlugosc>+#<dzielenie_z>]
#<zm_srednica>=[#<zm_srednica>-#<dzielenie_x>]
g1 x[#<zm_srednica>] z-[#<z_poczatkowe>] f#<posuw>
g3 x[#<srednica_polkuli>] z-[#<z_poczatkowe>+#<zm_dlugosc>] r[#<srednica_polkuli>/2] f#<posuw>
g0 x[#<srednica_polkuli>]
g0 z-[#<z_poczatkowe>]
o10 endwhile
m2
o<polkula> endsub
Dzięki za jakiekolwiek wskazówki.
Pozdrawiam
Tomek