Makro Elipsa-Střed+2Body
Popis |
---|
Vytvoří elipsu výběrem 3 bodů (v tomto pořadí): střed, velký poloměr, malý poloměr Version macro : 01.00 Date last modification : 2016-12-25 FreeCAD version : All Download : ToolBar Icon Autor: Eriossoltero |
Autor |
Eriossoltero |
Download |
ToolBar Icon |
Odkazy |
Makro recepty| Jak nainstalovat makra Jak přizpůsobit panely nástrojů |
Verze |
01.00 |
Datum poslední úpravy |
2016-12-25 |
Verze FreeCAD |
All |
Výchozí zástupce |
None |
Viz též |
None |
Popis
Vytvoří elipsu výběrem 3 bodů (v tomto pořadí): střed, velký poloměr, malý poloměr
Latest
The latest version of the macro is to be found at EllipseCenter2Points.FCMacro but the easiest way to install this macro is through the Addon Manager.
Skript
Macro_EllipseCenter2Points.FCMacro
# 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 +++++++++++++++++++++++++++++++++++++++++++++++++