Makro Elipsa-Střed+2Body

From FreeCAD Documentation
Revision as of 08:37, 17 June 2019 by Mario52 (talk | contribs)
Other languages:

Ellipse Center+2Points

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
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 +++++++++++++++++++++++++++++++++++++++++++++++++