Platta ut tråd

From FreeCAD Documentation
Revision as of 10:46, 23 May 2020 by FuzzyBot (talk | contribs) (Updating to match new version of source page)

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

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