Macro FlattenWire/cs: Difference between revisions
No edit summary |
Renatorivo (talk | contribs) (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}}") |
||
| 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/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}} |
||
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ů. |
||
Revision as of 07:33, 23 May 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 |
| Makro recepty| Jak nainstalovat makra Jak přizpůsobit panely nástrojů |
| 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