Macro FlattenWire/cs: Difference between revisions

From FreeCAD Documentation
(Created page with "{{Macro/cs|Icon=Text-x-python|Name=FlattenWire|Name/cs=FlattenWire|Description=This macro flattens draft wires that are not plane to their median Z coordinate|Author=Yorik}}")
(Updating to match new version of source page)
Line 3: Line 3:
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ů.
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ů.


{{Code|code=
<syntaxhighlight>
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


}}
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

</syntaxhighlight>
{{clear}}
{{clear}}
<languages/>
<languages/>

Revision as of 21:50, 26 December 2014

File:Text-x-python FlattenWire

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

Autor: Yorik
Autor
Yorik
Download
None
Odkazy
Verze
1.0
Datum poslední úpravy
None
Verze FreeCAD
None
Výchozí zástupce
None
Viz též
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