Suby ngcgui do wykrawarki

[szatri]

Witam, potrzebuję pomocy w zrobieniu/przerobieniu paru subów na wykrawarkę.
Jest tam ręczna zmiana narzędzi wiec raczej będzie jeden program pod jeden stempel.
Rodzaje stempli ograniczam na radzie do dwóch kształtów, kwadrat i koło.
Potrzebuję pomoc w napisaniu paru subów na podstawowe kształty:
- wycinanie otworów stęplem kwadrat w szyku (siatka, otwory prostokątne)
- wycinanie otworów stęplem koło w szyku kołowym (otwory okrągłe)
- wycinanie otworów w nie regularnych odstępach

Cykle wiercenia po części się nadają ale przydała by się korekcja o szerokość stempla.

Może są jakieś materiały o tym programowaniu w o-kodzie z przykładami lepiej obrazujące niż te z oficjalnej strony?

[kszumek]

Witam
co nieco fajnie opisane jest tu
https://www.obliczeniowo.com.pl/869
no to pytanie
jakie konkretnie informacje chcesz wprowadzać jako dane wejściowe?
liczba wierszy ,kolumn , może sie coś wymyśli

[szatri]

Z tą ilością kolumn i wierszy to nie chce się określić, preferuje uniwersalne podejście do tematu, tj, bez uprzednio zdefiniowanej ich ilości, tylko wpisanie ich ilosci w formularzu, a algorytm policzy współrzędne do głosu.

[szatri]

*kodu

[szatri]

Wyszukałem subik na wiercenie siatki i go trochę zmodyfikowałem.

Kod: Zaznacz cały

( ------------------------------ )
(           Wiercenie            )
( ------------------------------ )
( Miki                          )
( Time-stamp: <09-09-2013 17:31> )
( ------------------------------ )

(info: Wiercenie )
; Author: Z. Maciej "Miki" Bajkowski
; time stamp: 03.02.2013 21:37
; logiczny operator "lub" (OR)
; alternatywa wykluczająca (XOR) prawdziwe, gdy nieparzysta liczba argumentów jest prawdziwa
; logiczny operator "i" (AND)
; równe (EQ)
; nierówne (NE)
; większe od (GT)
; większe lub równe (GE)
; mniejsze (LT)
; mniejsze lub równe (LE)
;
; ATAN[Y]/[X] Four quadrant inverse tangent
; ABS[arg] wartość absolutna
; ACOS[arg] Inverse cosine
; ASIN[arg] Inverse sine
; COS[arg] cosinus
; EXP[arg] e raised to the given power
; FIX[arg] zaokrąglenie w dół
; FUP[arg] zaokrąglenie w górę
; ROUND[arg] zaokrąglenie
; LN[arg] logarytm
; SIN[arg] sinus
; SQRT[arg] Pierwiastek kwadratowy
; TAN[arg] Tangens
; EXISTS[arg] szuka zmiennej
o<wier> sub

#<x_pocz> = #1 (=0 początek X)
#<y_pocz> = #2 (=0 początek Y)
#<ilosc_rzedow> = #3 (=1 ilosc rzedow)
#<ilosc_otworow> = #4 (=1 ilosc otworow)
#<szybkosc_posuwu> = #5 (=300 Posuw)
#<odstep_x> = #6 (=100 odstep X)
#<odstep_y> =#7 (=100 odstep Y)


#<ilosc_otworow_1>=#<ilosc_otworow>
#<ilosc_rzedow_1>=#<ilosc_rzedow>
o200 while [#<ilosc_rzedow_1> gt 0]

o110 while [#<ilosc_otworow_1> gt 0]

g0 x[[#<x_pocz>]+[#<odstep_x>*#<ilosc_otworow_1>]-#<odstep_x>+0.1] y[[#<y_pocz>]+[#<odstep_y>*#<ilosc_rzedow_1>]-#<odstep_y>]
x[[#<x_pocz>]+[#<odstep_x>*#<ilosc_otworow_1>]-#<odstep_x>]

g15

#<ilosc_otworow_1>=[#<ilosc_otworow_1>-1]

o1 if [#<ilosc_otworow_1> eq 0]
#<ilosc_rzedow_1>=[#<ilosc_rzedow_1>-1]

o1 endif


o2 if [#<ilosc_rzedow_1> eq 0]
#<ilosc_otworow>=0
o2 endif
o110 endwhile
#<ilosc_otworow_1>=#<ilosc_otworow>
o200 endwhile
o<wier> endsub

Tylko nie rozumiem po co są te wstawki +0,1?

Przydałoby się go jeszcze "doprawić" o wymiar stempla w x i y
Albo na jego podstawie napisać taki by wyklepał kwadrat/prostokat po obwodzie z uwzględnieniem kompensacji szerokości stempla?