Macro FlattenWire/sv: Difference between revisions
(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 |
|||
⚫ | |||
'''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: |
for p in obj.Points: newpoints.append(FreeCAD.Vector(p.x, p.y, z)) |
||
obj.Points = |
obj.Points = newpoints |
||
}} |
}} |
||
{{clear}} |
Latest revision as of 10:22, 21 December 2021
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 |
Makros recept Så här installerar du makron Hur man anpassar verktygsfält |
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
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