Macro FlattenWire/sv: 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/sv
{{Macro/sv
|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">
==Deskription==
==Deskription==
Detta makro plattar ut ritlinjer som inte är parallella (i Z-axeln) till deras median Z koordinat.
Detta makro plattar ut ritlinjer som inte är parallella (i Z-axeln) till deras median Z koordinat.
</div>


==Script==
==Script==

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

Beskrivning
Detta makro flattar utkaststrådar som inte är planerade till sin median Z-koordinat

Versions makro : 1.0
Datum senaste ändring : 2011-08-01
FreeCAD-versionen : All
Ladda ner : ToolBar Icon
Författare : Yorik
Författare
Yorik
Ladda ner
ToolBar Icon
länkar
Makroversion
1.0
Datum senaste ändring
2011-08-01
FreeCAD Version(s)
All
Standard genväg
None
Se även
None

Description

Deskription

Detta makro plattar ut ritlinjer som inte är parallella (i Z-axeln) till deras median Z koordinat.

Script

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