Macro FlattenWire/it: Difference between revisions

From FreeCAD Documentation
(Updating to match new version of source page)
(Updating to match new version of source page)
Line 1: Line 1:
<languages/>
<languages/>

{{Macro/it
{{Macro/it
|Name=FlattenWire
|Name=FlattenWire
Line 11: Line 12:
}}
}}


==Description==

<div class="mw-translate-fuzzy">
==Descrizione==
==Descrizione==
Questa macro appiattisce i contorni che non sono su un unico piano al valore mediano della loro coordinata Z
Questa macro appiattisce i contorni che non sono su un unico piano al valore mediano della loro coordinata Z
</div>


==Script==
==Script==

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


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


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

import FreeCAD
import FreeCAD
obj = FreeCAD.ActiveDocument.ActiveObject
obj = FreeCAD.ActiveDocument.ActiveObject
Line 29: Line 35:
for p in obj.Points: newppoints.append(FreeCAD.Vector(p.x,p.y,z))
for p in obj.Points: newppoints.append(FreeCAD.Vector(p.x,p.y,z))
obj.Points = newppoints
obj.Points = newppoints

}}
}}
{{clear}}

Revision as of 12:37, 9 October 2021

Icona macro generica. Crea la tua icona personale con lo stesso nome della macro Wire appiattita su piano mediano

Descrizione
Questa macro appiattisce i contorni che non sono su un unico piano al valore mediano della loro coordinata Z

Versione macro: 1.0
Ultima modifica: 2011-08-01
Versione FreeCAD: Tutte
Download: ToolBar Icon
Autore: Yorik
Autore
Yorik
Download
ToolBar Icon
Link
Versione macro
1.0
Data ultima modifica
2011-08-01
Versioni di FreeCAD
Tutte
Scorciatoia
Nessuna
Vedere anche
Nessuno

Description

Descrizione

Questa macro appiattisce i contorni che non sono su un unico piano al valore mediano della loro coordinata Z

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