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)
 
(2 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
[[Image:Macro_FlattenWire.png]]


'''Macro_FlattenWire.FCMacro'''
'''Macro_FlattenWire.FCMacro'''


{{MacroCode|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