---

Hallöchen!

Hat einer von euch ein Makro, welchem ich sage: Aussendurchmesser Zahnrad, Anzahl Zähne, Dicke des Zahnrades, Länge der Zahnstange und wenn es geht auch Höhe der Zähne    -    und das Makro erstellt mir ein Translationsteil mit diesen Eigenschaften. Komplett mit den Zahnflankenformen, da mir ein normales 'Dreieck' als Zahn nicht ausreicht.

Hat da jemand was? Wäre echt super:-)

Mfg Lars

------------------
BA-Student Maschinenbau - Konstruktion

Firma:

HETEK Hebetechnik GmbH
Unter den Linden 1
99830 Treffurt

Berufsakademie:

Eisenach

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

---

Hallo,

Testen Sie mal dieses Makro zur Zahnstange!

REM   HICAD-Next VN:1212
REM          HiCAD          
START   59
HNEXT

%m:=3
%z1:=20

(
Echo Modul der Zahnstange = m in mm
Echo Zahnezahl der Zahnstange = z1
var %m   m
var %z1  z1
)

%bf:=5*m*0.3639702/4
%bf2:=bf*2
%XF2:=(m*3.1415927/2-2*bf)/2
%bk:=m*0.3639702
%xk:=3.1415927/2*m-2*bk
%V:=2*xf2+xk+2*bk+2*bf

REM   HiCAD   3 = 3-D SZENE
OPTION   3  59
REM ALT2
OPTION  22   0
REM   KOORD. SYSTEM   9 = Verändern
OPTION   9 152
REM   PROJEKTION   8 = Vorderansicht
OPTION   8 111
OPTION  ESC
OPTION  ESC
OPTION  ESC
REM   BERECHNUNG   2 = Eigene Verf.
OPTION   2 159
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   8 = Hauptteil neu
OPTION   8   2
REM   NEUES TEIL   1 = Teil anlegen
OPTION   1   3
STRING  z1
REM   BAUTEILE   1 = Linien
OPTION   1   2
REM   LINIEN   2 = Streckenzug
OPTION   2   6
POINT   A 0 0
POINT   R xf2 0
POINT   py 70 9*m/4
POINT   r xk 0
POINT   py -70 9*m/4
POINT   r xf2 0
POINT   ESC
OPTION  ESC
OPTION  ESC
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   4 = wiederholen
OPTION   4   2
REM   WIEDERHOLUNG   1 = Translation
OPTION   1  19
REM     Zu zeichnende Exemplare =
INTEGER Z1
POINT   A 0 0
POINT   R v 0
REM     Wiederholungen sofort auflösen ?
ANTWORT 1
REM     Wiederholte Teile getrennt ansprechbar ?
ANTWORT 0
OPTION  ESC
OPTION  ESC
OPTION  ESC
OPTION  ESC
OPTION  ESC

REM   HiCAD   3 = 3-D SZENE
OPTION   3  59
OPTION  ESC
REM   BERECHNUNG   2 = Eigene Verf.
OPTION   2 159
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   1 = Linien
OPTION   1   2
REM   LINIEN   2 = Streckenzug
OPTION   2   6
POINT   A 0 0
POINT   r 0 -3*m
POINT   R 3.1415927*z1*m 0
POINT   A 3.1415927*z1*m 0
POINT   ESC
OPTION  ESC
OPTION  ESC
OPTION  ESC
OPTION  ESC
REM   HiCAD   3 = 3-D SZENE
OPTION   3  59
OPTION  ESC
REM   BERECHNUNG   2 = Eigene Verf.
OPTION   2 159
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   10= Bt. auswählen
OPTION  10   2
STRING  z1
REM   BAUTEILE   S5= LE sortieren
OPTION  15   2
REM     aktives Bauteil
INTEGER 3
REM   BAUTEILE   1 = Linien
OPTION   1   2
REM   LINIEN   S10=LE-TOOLS
OPTION  20   6
REM   LE-TOOLS   4 = LE verschmelz
OPTION   4  21
REM     LZ-Abschnitt (0) - Linienzug (1) - Teil (2) :
INTEGER 7
OPTION  ESC
OPTION  ESC
REM   BAUTEILE   6 = Bt. speichern
OPTION   6   2
REM     Teil als SZN speichern ?
ANTWORT 0
STRING  C:Z1
REM   BAUTEILE   7 = Bt. löschen
OPTION   7   2
REM     O.K. ?
ANTWORT 1
OPTION  ESC
OPTION  ESC
REM   HiCAD   3 = 3-D SZENE
OPTION   3  59
REM   3D - SZENE   S9= 3D Funktionen
OPTION  19 101
REM   3D FUNKTIONEN   5 = Skizze anlegen
OPTION   5 196
OPTION  ESC
REM   3D - SZENE   3 = Bearbeiten
OPTION   3 101
REM   TEILE   1 = Bearbeiten
OPTION   1 102
REM   BEARBEITEN   2 = Kantenzüge
OPTION   2 106
REM   3D KANTENZUG   3 = Kntzug aus 2D
OPTION   3 137
REM   2D MIT TRANS.   6 = Figur aus DB
OPTION   6 112
STRING  C:z1
REM     mit Translation
INTEGER 1
POINT   A 0 0
POINT   A 0 0
OPTION  ESC
OPTION  ESC
OPTION  ESC
REM   3D - SZENE   S9= 3D Funktionen
OPTION  19 101
REM   3D FUNKTIONEN   S2= Hauptteil neu
OPTION  12 196
REM     Eingabe über Macros?
ANTWORT 1
REM     Translationskörper
INTEGER 8
REM     Dynamisch (j)? oder Werteingabe (n)?
ANTWORT 0
REM     Referenziert?
ANTWORT 0
REM     Featureprotokoll?
ANTWORT 1
REM     Formschräge:
REAL    0
REM     Anfangshöhe :
REAL    0
REM     Endhöhe
REAL    5*m
REM     Körpername :
STRING  Zahn1
STRING  RET
OPTION  ESC
REM ALT2
OPTION  22   0
REM   KOORD. SYSTEM   9 = Verändern
OPTION   9 152
REM   PROJEKTION   6 = Axonometrie
OPTION   6 111
REM     Nummer des Oktanten :
INTEGER RET
OPTION  ESC
OPTION  ESC
REM   3D - SZENE   3 = Bearbeiten
OPTION   3 101
REM   TEILE   7 = Löschen
OPTION   7 102
REM     O.K. ?
ANTWORT ESC
REM   TEILE   10= Aktivieren
OPTION  10 102
STRING  C:3D-Skizze
REM   TEILE   7 = Löschen
OPTION   7 102
REM     O.K. ?
ANTWORT 1
OPTION  ESC
OPTION  ESC
REM   BERECHNUNG   2 = Eigene Verf.
OPTION   2 159
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   10= Bt. auswählen
OPTION  10   2
STRING  z1
REM   BAUTEILE   7 = Bt. löschen
OPTION   7   2
REM     O.K. ?
ANTWORT 1
OPTION  ESC
OPTION  ESC
END

Ohne Gewährleistung!

Hat es geklappt?
------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn
http://home.wms-hn.de/people/teachers/ch/christ/

Hilfestellungen und Makros:
Hicad: http://home.wms-hn.de/people/teachers/ch/christ/christ4.html
Catia V5: http://home.wms-hn.de/people/teachers/ch/christ/christ41.html

Stellenangebote für Techniker und Konstrukteure:
http://home.wms-hn.de/people/teachers/ch/christ/christ3.html

[Diese Nachricht wurde von ch am 21. Aug. 2009 editiert.]

[Diese Nachricht wurde von ch am 21. Aug. 2009 editiert.]

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