moje makra - frezowanie ramek z wejściem obok...

eduCAD
Awatar użytkownika

Autor tematu
mitek
Specjalista poziom 3 (min. 600)
Specjalista poziom 3 (min. 600)
Posty w temacie: 2
Posty: 744
Rejestracja: 09 cze 2009, 22:06
Lokalizacja: k/Krakowa
Kontakt:

moje makra - frezowanie ramek z wejściem obok...

#1

Post napisał: mitek » 15 cze 2010, 00:09

Kod: Zaznacz cały

var
x,y: integer; 
margines,marginesprawy,xa,ya,srednica: double; 
begin
  x := strtoint( inputbox('Szerokosc','Szerokosc frontu','296')); 
  y := strtoint( inputbox('Wysokosc','Wysokosc frontu','713')); 
  margines := strtofloat( inputbox('Margines','Odleglosc od krawedzi','70')); 
  srednica := strtofloat( inputbox('Średnica freza','Srednica freza','12')); 
  begin

      xa := x-margines; 
      ya := y-margines; 

      clear; 
  UstawWysokoscStrony(y+50); 
  SetWorkWidth(x+50); 
  SetPenColor (clred); 

     setpointarray(0,margines+20+(srednica/2),margines+20+(srednica/2)); 
     setpointarray(1,margines+(srednica/2),margines+(srednica/2)); 
     setpointarray(2,xa-(srednica/2),margines+(srednica/2)); 
     setpointarray(3,xa-(srednica/2),ya-(srednica/2)); 
     setpointarray(4,margines+(srednica/2),ya-(srednica/2)); 
     setpointarray(5,margines+(srednica/2),margines+(srednica/2)); 
polyline; 
refresh; 
selectall; 
  end
end.
przydatne przy wycinaniu ramek w materiale



Tagi:

Awatar użytkownika

Piotr Rakowski
Lider FORUM (min. 2000)
Lider FORUM (min. 2000)
Posty w temacie: 1
Posty: 2173
Rejestracja: 29 lip 2005, 15:07
Lokalizacja: Warszawa
Kontakt:

#2

Post napisał: Piotr Rakowski » 15 cze 2010, 21:21

Twoje skrypty kol. Mitek pokazują, że tylko nasza wyobraźnia jest ograniczeniem w możliwościach tworzenia najróżniejszych skryptów, kreujących najróżniejsze kształty...

Oraz że eduSCRIPT całkiem dobrze mi wyszedł :wink: - i jest naprawdę przydatnym narzędziem...
Maszyny i oprogramowanie CNC: eduCAD, STEP2CNC, LynxCUT, Styro3D, Tapper, cncCAD, Image2CAM, Turn3D, TERMCUT, LynxNEST (Nesting)

Awatar użytkownika

Autor tematu
mitek
Specjalista poziom 3 (min. 600)
Specjalista poziom 3 (min. 600)
Posty w temacie: 2
Posty: 744
Rejestracja: 09 cze 2009, 22:06
Lokalizacja: k/Krakowa
Kontakt:

#3

Post napisał: mitek » 15 cze 2010, 23:06

o tak mi się przydają :) do powtarzalnych rysunków nie skomplikowanych są ekstra :) czekam na poprawki w edytorze które ułatwią jeszcze samą edycje :) i będzie bomba

ODPOWIEDZ Poprzedni tematNastępny temat

Wróć do „eduCAD”