ClockWatch Script

ClockWatch: CAD - Script (Ver. 1.0)

Formularseite

Zeichenfunktionen

CAD-Befehle

Verzahnungen

Evolvente

Kreisbogen

Zykloide

//Beispielskript  (V.Vyskocil 8.2028)  
// Kommentare fangen immer mit einem // an. 
// Jede Befehlszeile muss mit einem ; enden.
// Es sind folgende Rechenoperationen möglich
// + - : * 
// Klammern
// Sin(), Cos(), Tan()
// ArcSin(), ArcCos(), ArcTan()
// die Konstante pi
// Schleifen sind in der Form von
// for i:=1 to 5 do
// begin
//   Line(i, 0, i, 10);
// end;
//
// und
//
// for i:=5 downto 1 do
// begin
//   Circle(i, 0, 1);
// end;
//
// möglich.
program Schenkelung;
const 
  z = 75;    // Zähnezahl Rad
  z_= 8;     // Zahnzahl Trieb
  m = 0.12;  // Modul

begin
  x0:=0;          //Mittelpunkt Rad
  y0:=0;
  x1:=m*(z+z_)/2; //Mittelpunkt Trieb
  y1:=0;

D  := m*Z;  // Wälzkreisdurchmesser
  dL := 0.75; // Lochdurchmesser
  t  := m*Pi; // Teilung

r1 := dL/2+1.8*t;
  r2 := d/2-1.75*t;

w  := 72;

//Rad nach EVJ 
  VZ_EVJ_R(x0,y0,m,z,z_,true,clGreen);
//Trieb nach EVJ
  VZ_EVJ_T(x1,y1,m,z_,clRed);

//Bohrung
 Circle(0,0,dL/2,1);
  Gruppe1
  begin
  //Schenkelung
    for i:=1 to 5 do
    begin   
      w1:=i*w+arcsin(1.5*t/2/r1);
      w2:=i*w+arcsin(0.85*t/2/r2);
      w3:=i*w-arcsin(1.5*t/2/r1);
      w4:=i*w-arcsin(0.85*t/2/r2);
      Line(r1*cos(w1), r1*sin(w1), r2*cos(w2), r2*sin(w2),1);
      Line(r1*cos(w3), r1*sin(w3), r2*cos(w4), r2*sin(w4),1);
      Arc(0,0,r1,w1,w3+72,1);
      Arc(0,0,r2,w2,w4+72,1);
    end;
  end;

//Mittelpunkt vom Rad als Kreis
  Circle(x0, y0, m, clBlue); 
//Mittelpunkt vom Trieb als Kreuz 
  Line(x1-m, y1, x1+m, y1);
  Line(x1, y1-m, x1, y1+m);

end.

Bereit

Drehung 1 Koppeln Drehung 2

0 Elemente

VZ_Evo_1