User:Eriossoltero/fr
User:Eriossoltero/fr
File:Text-x-python {{{Name}}} |
Description |
---|
Fait une ellipse en sélectionnant trois points (dans cet ordre): centre, rayon majeur et rayon mineur Auteur: anonymous |
Auteur |
anonymous |
Téléchargement |
None |
Liens |
Page des macros Comment installer une macro Comment créer une barre d'outils |
Version Macro |
1.0 |
Dernière modification |
None |
Version(s) FreeCAD |
None |
Raccourci clavier |
None |
Voir aussi |
None |
# Macro Begin: Ellipse-Center+2Points.FCMacro +++++++++++++++++++++++++++++++++++++++++++++++++ # http://freecad-tutorial.blogspot.com/2011/12/engine-9-poly-v-belt.html import Part, FreeCAD, math, PartGui, FreeCADGui from FreeCAD import Base # get the selected objects, with first selection for the trajectory and second for the section # Adapted from: # http://freecad-tutorial.blogspot.com/2011/12/engine-9-poly-v-belt.html s = FreeCADGui.Selection.getSelection() try: sel1=s[0].Shape sel2=s[1].Shape sel3=s[2].Shape except: print "Wrong selection" pt_center = sel1.Point pt_radmay = sel2.Point pt_radmen = sel3.Point # create Part object in the current document myObject=App.ActiveDocument.addObject("Part::Feature","Ellipse") # create a shape and assign it to the current document ellipse = Part.Ellipse(pt_radmay, pt_radmen, pt_center) myObject.Shape = ellipse.toShape() # Macro End: Ellipse-Center+2Points.FCMacro +++++++++++++++++++++++++++++++++++++++++++++++++