Macro FlattenWire/cs: Difference between revisions

From FreeCAD Documentation
mNo edit summary
(Updating to match new version of source page)
 
(3 intermediate revisions by the same user not shown)
Line 1: Line 1:
<languages/>
<languages/>

<div class="mw-translate-fuzzy">
{{Macro/cs
{{Macro/cs
|Name=FlattenWire
|Name=FlattenWire
Line 11: Line 13:
|Download=[https://www.freecadweb.org/wiki/images/2/2f/Macro_FlattenWire.png ToolBar Icon]
|Download=[https://www.freecadweb.org/wiki/images/2/2f/Macro_FlattenWire.png ToolBar Icon]
}}
}}
</div>


==Description==

<div class="mw-translate-fuzzy">
==Deskriptivní==
==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ů.
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ů.
</div>


==Skript==
==Skript==
ToolBar Icon [[Image:Macro_FlattenWire.png]]


ToolBar Icon
'''Macro_FlattenWire.FCMacro'''
[[Image:Macro_FlattenWire.png]]


'''Macro_FlattenWire.FCMacro'''
{{Code|code=


{{MacroCode|code=
import FreeCAD
import FreeCAD
obj = FreeCAD.ActiveDocument.ActiveObject
obj = FreeCAD.ActiveDocument.ActiveObject
Line 28: Line 36:
z = z/len(obj.Points)
z = z/len(obj.Points)
newpoints = []
newpoints = []
for p in obj.Points: newppoints.append(FreeCAD.Vector(p.x,p.y,z))
for p in obj.Points: newpoints.append(FreeCAD.Vector(p.x, p.y, z))
obj.Points = newppoints
obj.Points = newpoints

}}
}}
{{clear}}

Latest revision as of 10:22, 21 December 2021

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

Description

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: newpoints.append(FreeCAD.Vector(p.x, p.y, z))
obj.Points = newpoints