DC-Makro: ein Beispiel -> Absaugstutzen für Werkzeugmaschinen

[Wolf]

Hallo,
die Möglichkeit Makros zur vereinfachten Konstruktion zu nutzen finde ich in DC sehr gut.
Leider finde ich recht wenige Beispiele hierzu.
Also ein Anfang : - )
Viele meiner Holz-Werkzeugmaschinen benötigen spezifische Adapter zur Absaugung.
Nun kann ich die teuer kaufen oder fast passende billig kaufen …
Besser jedoch in DC konstruieren und mittels 3D-Drucker selbst anfertigen.
Und hier hilft mir ein Makro bei der Erstellung.

' Dieses Makro erstellt an Hand der Parameter in der Eingabe und der weiteren Variablen einen Adapter für den 3D-Druck
' derzeit fehlt noch: Rotation in 3D an der Linie, rendern und .stl-Export. Temporär über Message gelöst (s.u.)
' Eingaben für Durchmesser klein innen und Durchmesser groß innen
Eingabe:
Precision 2
Input "Adapterkonstruktion: gib den Durchmesser innen gross in mm ein", Dgi
Input "Adapterkonstruktion: gib den Durchmesser innen klein in mm ein", Dki
If Dki >= Dgi Then Goto Eingabe
Dki$ = Dki
Dgi$ = Dgi
Message "Durchmesser innen gross= ", Dgi$, " mm", Chr$(13), _
"Durchmesser innen klein= ", Dki$, " mm"
' weitere Variablen
Ah= 20.0 ' Höhe des Adapter-Rohres oben und unten (Standard 30)
Steig= 20.0 ' Übergang zwischen den Adapterrohren (Standard Dgi-Dki)
Wd= 2.0 ' Wanddicke
' Konstruktion im 2D-Modus
>2DSelectMode
{
}
' Hilfslinie für die Rotation
>Line
{
<Color 0,0,213
<Layer 1
<LineStyle 0,2.0000,0.0000
<PointXYZ 0.0, 0.0, 0.0
<PointXYZ 0.0, 80.0, 0.0
}

' Arbeitsfenster zentrieren
>FitToWindow
{
}
' da auch schräge Linien benötigt werden Orthogonalmodus aus
>OrthoMode
{
}
' Adapter-Wand als Linienzug für Rotation konstruieren
>Line
{
<Color 0,0,213
<Layer 1
<LineStyle 0,2.0000,0.0000
<PointXYZ -[Dgi/2], 0.0, 0.0
<PointXYZ -[Dgi/2], [Ah], 0.0
<PointXYZ -[Dki/2], [ Ah+Steig], 0.0
<PointXYZ -[Dki/2], [Ah+Steig+Ah], 0.0
<PointXYZ -[Dki/2+Wd], [Ah+Steig+Ah], 0.0
<PointXYZ -[Dki/2+Wd], [Ah+Steig], 0.0
<PointXYZ -[Dgi/2+Wd], [Ah], 0.0
<PointXYZ -[Dgi/2+Wd], 0.0, 0.0
<PointXYZ -[Dgi/2].0, 0.0, 0.0
}

' Linienzug markieren und in Fläche umwandeln
>Pointselect
{
<PointXYZ -[Dgi/2], 0.0, 0.0
}
>MakePlane
{
}
' weiter manuell (leider nur 255 Zeichen möglich :-( )
Message "manuell ausfuehren:", Chr$(13), _
"-3D-Modus", Chr$(13), _
"-Zeichnen->Rotation um die Linie", Chr$(13), _
"-rendern (Qualitaet?)", Chr$(13), _
"-Datei->Exportieren .stl-Format", Chr$(13), _
"-ggf. den Adapter speichern (z.B.): Adapter_gerade_37_33"
END

vielleicht ja auch mal ein Thema für ein Webinar...
Und vielleicht hat ja auch jemand von Euch ein Makro erstellt (?), auch meines ist nicht perfekt, aber für die Version 1.1 für mich sehr brauchbar.
neugierige Grüße
Wolf[attachment=0]Adapter gerade_26_34-8.jpg[/attachment]