Macro FlattenWire/cs: Difference between revisions

From FreeCAD Documentation
(Updating to match new version of source page)
(Updating to match new version of source page)
(One intermediate revision by one other user not shown)
Line 1: Line 1:
<languages/>
<languages/>
<div class="mw-translate-fuzzy">
{{Macro/cs
{{Macro/cs
|Name=FlattenWire
|Name=FlattenWire
|Translate=FlattenWire
|Translate=FlattenWire
|Icon=Macro_FlattenWire.png
|Description=Toto makro vyrovnává vodiče průvanu, které nejsou rovinné k jejich středové souřadnici Z
|Description=Toto makro vyrovnává vodiče průvanu, které nejsou rovinné k jejich středové souřadnici Z
|Author=Yorik
|Author=Yorik
|Version=1.0
|Version=1.0
|Date=2011-08-01
|Date=2011-08-01
|FCVersion=All
|Download=[https://www.freecadweb.org/wiki/images/2/2f/Macro_FlattenWire.png ToolBar Icon]
}}
}}
</div>


==Deskriptivní==
==Deskriptivní==
Line 19: Line 20:
'''Macro_FlattenWire.FCMacro'''
'''Macro_FlattenWire.FCMacro'''


{{Code|code=
{{MacroCode|code=


import FreeCAD
import FreeCAD

Revision as of 10:46, 23 May 2020

FlattenWire

Popis
Toto makro vyrovnává vodiče průvanu, které nejsou rovinné k jejich středové souřadnici Z

Version macro : 1.0
Date last modification : 2011-08-01
FreeCAD version : All
Download : ToolBar Icon
Autor: Yorik
Autor
Yorik
Download
ToolBar Icon
Odkazy
Verze
1.0
Datum poslední úpravy
2011-08-01
Verze FreeCAD
All
Výchozí zástupce
None
Viz též
None

Deskriptivní

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ů.

Skript

ToolBar Icon

Macro_FlattenWire.FCMacro

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