Macro FlattenWire
Beschreibung |
---|
Dieses Makro glättet Zugdrähte, die nicht auf ihre mittlere Z-Koordinate ausgerichtet sind Versionsmakro : 1.0 Datum der letzten Änderung : 2011-08-01 FreeCAD version : All Herunterladen : ToolBar Icon Autor: Yorik |
Autor |
Yorik |
Herunterladen |
ToolBar Icon |
Links |
Makros Rezepte Wie installiere ich Makros So passen Sie Symbolleisten an |
Macro-Version |
1.0 |
Datum der letzten Änderung |
2011-08-01 |
FreeCAD-Version(s) |
All |
Standardverknüpfung |
None |
Siehe auch |
None |
Desorption
Dieser Makroentwurf ist nicht bindend für den Median
Skript
Macro_FlattenWire.FCMacro
import FreeCAD
obj = FreeCAD.ActiveDocument.ActiveObject
z = 0
for p in obj.Points: z += p.z
z = z/len(obj.Points)
newpoints = []
for p in obj.Points: newppoints.append(FreeCAD.Vector(p.x,p.y,z))
obj.Points = newppoints