Hallo!
versuchen Sie mal das Rändelmakro:
REM HiCAD
START 59
REM HiCAD 2 = 2-D ZTL
OPTION 2 59
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 NEU
REM ALT6
OPTION 26 0
REM Variablenspeicher löschen ?
ANTWORT 1
(
Echo RAA t=1mm - Rändel Ausgangsdurchmesser D2
Echo Höhe der Rändelung H
VAR %D2 D2
var %H H
)
%d1:=(D2+0.5*1)/2
%y1:=d1*sin(3)
REM BAUTEILE 1 = Linien
OPTION 1 2
REM LINIEN 2 = Streckenzug
OPTION 2 6
POINT A 0 0
POINT P 3 d1
POINT R -y1 -y1
POINT R y1 -y1
POINT ESC
OPTION ESC
REM BAUTEILE 10= Bt. auswählen
OPTION 10 2
STRING Neu
REM BAUTEILE 4 = wiederholen
OPTION 4 2
REM WIEDERHOLUNG 2 = Drehung
OPTION 2 19
REM Zu zeichnende Exemplare =
INTEGER 60
POINT A 0 0
REM Drehwinkel :
WINKEL 6
REM Wiederholungen sofort auflösen ?
ANTWORT 1
REM Wiederholte Teile getrennt ansprechbar ?
ANTWORT 0
OPTION ESC
REM BAUTEILE S5= LE sortieren
OPTION 15 2
REM Linienzug eins.(1) - zweis.(2) - Teil(3) - Konstr. (4):
INTEGER 3
REM ALT2
OPTION 22 0
REM ANSICHT 5 = Gesamtansicht
OPTION 5 52
OPTION ESC
OPTION ESC
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 7 = Draufsicht
OPTION 7 111
OPTION ESC
OPTION ESC
REM 3D - SZENE 3 = Bearbeiten
OPTION 3 101
REM TEILE 8 = Hauptteil neu
OPTION 8 102
REM TEILE ERZEUG 1 = Allgem. Zyl.
OPTION 1 103
STRING raa
REM 2D MIT TRANS. 3 = 2D Linienmenü
OPTION 3 112
REM LINIEN S5= LE kopieren
OPTION 15 6
REM im Rechteck (4) - Kontur (5) - LE-Abschnitt (6) :
INTEGER 5
POINT A (d1-0.5) 0
POINT ESC
REM Kontur O.K. ?
ANTWORT 1
POINT ESC
OPTION ESC
REM Höhe/ Tiefe :
DISTANZ H
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 Neu
REM BAUTEILE 7 = Bt. löschen
OPTION 7 2
REM O.K. ?
ANTWORT 1
REM ALT2
OPTION 22 0
REM ANSICHT 5 = Gesamtansicht
OPTION 5 52
END
In den Editor kopieren und als raendel.mac abspeichern
dann mit STRG- + 8-Taste starten!
Hat es geklappt?
------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn
http://home.wms-hn.de/people/teachers/ch/christ/
Stellenangebote für Techniker und Konstrukteure:
http://home.wms-hn.de/people/teachers/ch/christ/christ3.html
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP