Macro Rectellipse

Rectellipse Macro
Description
Creates a parametric rectellipse Author: fcaponi78
Author
fcaponi78
Download
None
Links
Macros recipes How to install macros How to customize toolbars
Macro Version
1.0
Date last modified
None
FreeCAD Version(s)
None
Default shortcut
None
See also
None

    from __future__ import division # allows floating point division from integers
    import FreeCAD, Part, math
    from FreeCAD import Base

    class RectEllipseShape:
       def __init__(self, obj):
          ''' Add the properties: Radius, Eccentricity, Height, Segments (see Property View) '''
          obj.addProperty("App::PropertyLength","a","Rectellipse","A - horizontal radius").a = 16.0
          obj.addProperty("App::PropertyLength","b","Rectellipse","B - vertical radius").b = 9.0
          obj.addProperty("App::PropertyFloat","n","Rectellipse","N ").n=0.2
          obj.addProperty("App::PropertyBool","createFace","Rectellipse","Wheter to create a face or not").createFace=True
          obj.Proxy = self

       def onChanged(self, fp, prop):
          if prop == "a" or prop == "b" or prop == "n" or prop == "segments" or prop == "height" or prop == "createFace":
             #if one of these is changed
             self.execute(fp)

       def execute(self, fp):
          r1=fp.a
          r2=fp.b
          s=fp.n
          ####w=2**0.5/2.0 #Ellipse
          w=2**0.5/2.0/(1-s)
          curve=Part.BSplineCurve()
          curve.setPeriodic()
          curve.increaseDegree(2) #quadratic
          curve.insertKnots([i*1.0/(4) for i in (1,2,3)],[2]*(3)) #5Knots 8 Poles
          curve.setPole(1,FreeCAD.Vector(0,-r2,z),1)
          curve.setPole(2,FreeCAD.Vector(-r1,-r2,z),w)
          curve.setPole(3,FreeCAD.Vector(-r1,0,z),1)
          curve.setPole(4,FreeCAD.Vector(-r1,r2,z),w)
          curve.setPole(5,FreeCAD.Vector(0,r2,z),1)
          curve.setPole(6,FreeCAD.Vector(r1,r2,z),w)
          curve.setPole(7,FreeCAD.Vector(r1,0,z),1)
          curve.setPole(8,FreeCAD.Vector(r1,-r2,z),w)
          if fp.createFace == True:
             fp.Shape = Part.Face(Part.Wire(curve.toShape()))
          else:
             fp.Shape = curve.toShape()

    def makeRectellipseBlock():
       doc = FreeCAD.activeDocument()
       if doc == None:
          doc = FreeCAD.newDocument()
       obj=doc.addObject("Part::FeaturePython","RectEllipseShape") #add object to document
       obj.Label = "RectEllipsse"
       RectEllipseShape(obj)
       obj.ViewObject.Proxy=0
       viewObject = Gui.ActiveDocument.getObject(obj.Name)
       viewObject.ShapeColor = (0.00,0.33,1.00)
       viewObject.DisplayMode = "Flat Lines"
       doc.recompute()

    if __name__ == "__main__":
       #feature will be generated after macro execution
       makeRectellipseBlock()