Macro FlattenWire/cs: Difference between revisions
(Created page with "Makro VyrovnejDrát") |
(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ů.") |
||
Line 1: | Line 1: | ||
{{Macro|Icon=Text-x-python|Name=FlattenWire|Description=This macro flattens draft wires that are not plane to their median Z coordinate|Author=Yorik}} |
{{Macro|Icon=Text-x-python|Name=FlattenWire|Description=This macro flattens draft wires that are not plane to their median Z coordinate|Author=Yorik}} |
||
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ů. |
|||
This macro flattens draft wires that are not plane to their median Z coordinate |
|||
<syntaxhighlight> |
<syntaxhighlight> |
Revision as of 16:56, 6 March 2014
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 |
Macros recipes How to install macros How to customize toolbars |
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