Makro VyrovnejDrát

From FreeCAD Documentation
Revision as of 16:56, 6 March 2014 by Honza32 (talk | contribs) (Created page with "Toto makro vyrovná nakreslený drát, který není vyrovnán (není v jedné rovině) do roviny, která odpovítá střední výšce nevyrovnaných drátů.")

File:Text-x-python FlattenWire

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

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ítá 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