---

Hallo,
ich hab Probleme ein Macro eines anderen Systems zu verstehen bzw. das in ME10-Makrosprache zu konvertieren

Das Makro soll eine Evolvent zeichnen
Ich blick das mit dem RADian daran nicht und wie ich das mit ME10 nun mache?
Meine Units sind MM und DEG

Code:

---

DEFINE Evolvente
  LOCAL X
local y
  LOCAL M
  LOCAL Z
  LOCAL Rw
  LOCAL Rb
  LOCAL Alpha
  LOCAL T
  LET Z 20
  LET M 1
  LET Alpha 20
  LET Rw 10
  LET T 0
let x 0
let y 0

  READ 'Modul' DEFAULT M M
  READ 'Zähnezahl' DEFAULT Z Z
  LET Rw (Z*M/2)

  LET Rb (Rw*COS (Alpha))

  CIRCLE CENTER 0,0 Rw
  END

  REPEAT
    LET X ((Rb*SIN (T*PI*1 RAD)) - (Rb*T*PI*COS (T*PI*1 RAD)))
    LET Y ((Rb*COS (T*PI*1 RAD)) + (Rb*T*PI*SIN (T*PI*1 RAD)))
    POINT X Y
    END
    LET T T+0.1
  UNTIL T>0.5

END_DEFINE

---

den Quellausdruck findet man übrigens hier: http://catia-wiki.de/index.php?title=Evolventen-Verzahnung_erstellen

Wer ist so nett und kann mir helfen?

Vielen Dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Quick and Dirty

DEFINE Evolvente
  LOCAL X
  LOCAL Y
  LOCAL M
  LOCAL Z
  LOCAL Rw
  LOCAL Rb
  LOCAL Alpha
  LOCAL T
  LOCAL C
  LET Z 20
  LET C 0.2
  LET M 1
  LET Alpha 20
  LET Rw 10
  LET T 0
  LET Y 0
  LET Y 0
  UNITS RAD
  READ NUMBER 'Modul' DEFAULT M M
  READ NUMBER 'Zaehnezahl' DEFAULT Z Z
  READ NUMBER 'Zahnfussfaktor' DEFAULT C C
  LET Rw ((Z*M)/(2*PI))
  LET Rkopf (Rw+M)
  LET Rfuss ((Rw -1+C)*M)
  LET Rb (Rw*COS (Alpha))
  CIRCLE CENTER 0,0 Rw Rkopf Rfuss
  END
  END
  BSPLINE
  REPEAT
    LET X (((Rb*SIN (T*PI)) - (Rb*T*PI*COS (T*PI)))*2)
    LET Y (((Rb*COS (T*PI*1))+(Rb*T*PI*SIN (T*PI*1)))*2) (PNT_XY X Y)
    LET T (T+0.1)
  UNTIL (T>0.5)
  END
  END
  UNITS DEG
END_DEFINE

------------------
kjw

Schade, dass man keine Antwort mehr erhält.

[Diese Nachricht wurde von karl-josef_wernet am 19. Sep. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

evovente-mac1.jpg

Hallo, erst einmal meine Entschuldigung das ich mich dazu noch nicht geäussert habe.

Dann natürlich meinen Dank das du mir helfen möchtest.

Ich habe heute Abend diese macro mal ausprobiert.

Als Daten habe ich M3.5 und Z28 eingegeben, den Rest habe ich bestätigt.

Heraus gekommen ist natürlich etwas, aber ich glaube das ist nicht so das, was wir alle erwarten würden.

siehe Bild

Woran kann das liegen ?
wenn es passen würde, wie könnte ich nun eine Sysmetrieachse dort hinein  kosntruieren, so das ich die andere Zahnhälfte auch erhalte ?

Nochmals Vielen Dank für eure/deine Hilfe

[Diese Nachricht wurde von caballonegro am 26. Nov. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

evovente-mac2.jpg

Habe mal ein wenig am macro modifiziert

Code:

---

DEFINE Evolvente
  LOCAL X
  LOCAL Y
  LOCAL M
  LOCAL Z
  LOCAL Rw
  LOCAL Rb
  LOCAL Alpha
  LOCAL T
  LOCAL C
  LET Z 28
  LET C 0.25
  LET M 3.5
  LET Alpha 20
  LET Rw 10
  LET T 0
  LET Y 0
  LET Y 0
  UNITS RAD
  READ NUMBER 'Modul' DEFAULT M M
  READ NUMBER 'Zaehnezahl' DEFAULT Z Z
  READ NUMBER 'Zahnfussfaktor' DEFAULT C C
  LET Rw (Z*M/2)
  LET Rkopf (Rw+M)
  LET Rfuss (Rw - M - C*M)
  LET Rb (Rw*COS (Alpha))
  CIRCLE CENTER 0,0 Rw Rkopf Rfuss
  END
  END
  BSPLINE
  REPEAT
    LET X (((Rb*SIN (T*PI)) - (Rb*T*PI*COS (T*PI)))*2)
    LET Y (((Rb*COS (T*PI*1))+(Rb*T*PI*SIN (T*PI*1)))*2) (PNT_XY X Y)
    LET T (T+0.05)
  UNTIL (T>0.5)
  END
  END
  UNITS DEG
END_DEFINE

---

Ergebnis siehe Bild
Mich wundert das die evolvente so tief  anfängt und dan so eine Flache, gegenüber eienem Zahnrad mit den gleiche Zahndaten von Pommeranz, doch ganz anders aussieht

[Diese Nachricht wurde von caballonegro am 26. Nov. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP