Macro FlattenWire
Description |
---|
This macro flattens draft wires that are not planar to their median Z coordinate Macro version: 1.1 Last modified: 2021-10-27 FreeCAD version: All Download: ToolBar Icon Author: Yorik |
Author |
Yorik |
Download |
ToolBar Icon |
Links |
Macros recipes How to install macros How to customize toolbars |
Macro Version |
1.1 |
Date last modified |
2021-10-27 |
FreeCAD Version(s) |
All |
Default shortcut |
None |
See also |
None |
Description
This macro flattens draft wires that are not planar to their median Z coordinate.
Script
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: newpoints.append(FreeCAD.Vector(p.x,p.y,z))
obj.Points = newpoints