Macro FlattenWire

From FreeCAD Documentation
Jump to navigation Jump to search
This page is a translated version of the page Macro FlattenWire and the translation is 100% complete.
Other languages:
Deutsch • ‎English • ‎español • ‎français • ‎italiano • ‎svenska • ‎čeština

Macro FlattenWire.png 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
Herunterladen
ToolBar Icon
Links
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

ToolBar Icon Macro FlattenWire.png

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