Makro VyrovnejDrát

From FreeCAD Documentation
Revision as of 10:30, 23 September 2016 by FuzzyBot (talk | contribs) (Updating to match new version of source page)

File:Text-x-python FlattenWire

Description
This macro flattens draft wires that are not plane to their median Z coordinate

Macro version: 1.0
Author: Yorik
Author
Yorik
Download
None
Links
Macro Version
1.0
Date last modified
None
FreeCAD Version(s)
None
Default shortcut
None
See also
None

Toto makro vyrovná nakreslený drát, který není vyrovnán (není v jedné rovině), do roviny, která odpovídá střední výšce nevyrovnaných drátů.

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