Hier 3 Makros zum Zeichnen von: Parabeln, Kreisevolventen und Sinuskurven:
Makros zum Zeichnen nebestehender Kurven: Herunterladen
Installieren und Verwenden der heruntergeladenen Makros
Entzippen Sie die Datei - es ist ein Verzeichnis namens VBA_Projekte.
Speichern Sie es, z. B. in C: .
Öffnen Sie AutoCAD. Gehen Sie auf Werkzeuge, dann auf Makro/Projekt laden.
Laden Sie sich nun eines der 3 Projekte.
Gehen Sie wieder auf Makro/Makros... und wählen Sie "Ausführen".
Es erscheint nun, je nach Ihrer Projektauswahl, eines der folgenden Fenster:
Geben Sie nun die erforderlichen Parameter ein, drücken Sie auf Zeichnen (bzw. Erstellen) und - nach
Sekunden - haben Sie auf dem AutoCAD - Zeichenblatt die gewünschte Kurve.
Diese Makros können Sie auch als Vorlagen zum Programmieren anderer Kurven verwenden, denn alle enthalten:
- ein Gerüst aus Objekten, die den Zugriff von der VB-Ebene aus auf die Zeichnug ermöglichen und
-
einen rechnerischen Teil, spezifisch für jede Kurve, der die vielen
Punkte (d. h. ihre Koordinaten x, y) liefert,
aus denen die Kurve als sog. Spline erstellt wird. Ein Spline ist eine glatte Kurve, die möglichst genau den
vorgegebenen Punkten folgt, z. B. kann man einen 10 cm großen Kreis mit 32 Punkten zeichnen, die man durch
Linien verbindet. Ein Linienstück ist dann etwa 1 cm lang - man kann leicht erkennen, daß der Kreis immer
noch ein Vieleck ist. Verwendet man aber die (in AutoCAD verfügbare) Spline-Funktion, so werden auch die
1 cm - langen Linien optimal zu Kreisbögen gekrümmt.
Wenn Sie anstatt "Ausführen" die Schaltfläche "Einzelschritt" im Makro-Fenster anklicken, öffnet sich die
Programmierebene (gen. Visual Basic Editor) und das Programm stoppt so lange, bis Sie F8 drücken, dann geht
es um einen Schritt weiter.
Im VB-Editor können Sie nun Programme verändern, oder aber auch neue schreiben.
Zu einer Anwendung der Evolvente
zurück zum Inhalt
Kontakt: eMail