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
