Znaleziono 3 wyniki

Wróć do „moje makra - frezowanie wielu okręgów...”

autor: mitek
16 cze 2010, 11:35
Forum: eduCAD
Temat: moje makra - frezowanie wielu okręgów...
Odpowiedzi: 5
Odsłony: 18872

oj już nie pamiętam jak to pisałem bo jak działało to zostawiałem ale wiem że chciałem zrobić przy pomocy

for x:=1 to 100 do
begin
...
end;

ale coś tam miałem problem z umieszczeniem pentli w pentli bo end mi kończyło ją przed zakończeniem że tak powiem zewnętrznej pentli....
autor: mitek
15 cze 2010, 23:14
Forum: eduCAD
Temat: moje makra - frezowanie wielu okręgów...
Odpowiedzi: 5
Odsłony: 18872

arrayrectselection(ox,oy,k,k);

kurcze ta funkcja mi umknęła a szukałem czegoś takiego choć to chyba jeden z moich pierwszych programów później sobie rodziłem pętlami :)

programistom nie jestem wiec pewnie sporo robiłem w koło ale cel dla mnie się liczył a zmniejszanie kodu dla przyśpieszenia ... nie w takich małych skrypcikach
autor: mitek
15 cze 2010, 00:21
Forum: eduCAD
Temat: moje makra - frezowanie wielu okręgów...
Odpowiedzi: 5
Odsłony: 18872

moje makra - frezowanie wielu okręgów...

var x, y, z, k, r, ox, oy, oxx, oyy, i: integer;
begin
clear;
x:= 110;//polozenie pierwszego dolnegio x
y:= 100;//polozenie pierwszego dolnegio y
k:= 5;//ilosc kolumn
ox:= 120; //odleglosc miedzy okregami x
oy:= 100; //odleglosc miedzy okregami y
r:= 30; //promien
//

oxx:= x;
oyy:= y;


for i:=k downto 1 do begin
elipsa(oxx,y,r,r,0);
oxx:= ox+oxx;
end;

oxx:= x;
for i:=k downto 1 do begin
elipsa(oxx,y+oy,r,r,0);
oxx:= ox+oxx;
end;

oxx:= x;
for i:=k downto 1 do begin
elipsa(oxx,y+oy+oy,r,r,0);
oxx:= ox+oxx;
end;

oxx:= x;
for i:=k downto 1 do begin
elipsa(oxx,y+oy+oy+oy,r,r,0);
oxx:= ox+oxx;
end;

oxx:= x;
for i:=k downto 1 do begin
elipsa(oxx,y+oy+oy+oy+oy,r,r,0);
oxx:= ox+oxx;
end;

selectall;
refresh;
end.
mi przydało się przy robieniu zasłon na grzejniki :) by zwiększyć ilość wierszy trzeba skopiować kilka linji

Wróć do „moje makra - frezowanie wielu okręgów...”