Platta ut tråd

From FreeCAD Documentation
Revision as of 22:36, 23 December 2013 by Renatorivo (talk | contribs) (new page)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Platta ut tråd

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

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