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