Create ellipse

Create ellipse

galaxyblazer
Enthusiast Enthusiast
926 Views
2 Replies
Message 1 of 3

Create ellipse

galaxyblazer
Enthusiast
Enthusiast

Hi. Help me find way to create ellipce in AutoCAD if I have the next list of data:

public List<double> Origin { get; set; } 
public double MajorRadius { get; set; }
public double MinorRadius { get; set; }
public List<double> Axis { get; set; }
public List<double> Reference { get; set; }

 What the paramethers in ellipse constructor Vector3d unitNormal, Vector3d majorAxis, double radiusRatio, double startAngle, double endAngle ?

0 Likes
927 Views
2 Replies
Replies (2)
Message 2 of 3

devitg
Advisor
Advisor

From the vlide help

 

 

Sub Example_AddEllipse()
    ' This example creates an ellipse in model space.
    
    Dim ellObj As AcadEllipse
    Dim majAxis(0 To 2) As Double
    Dim center(0 To 2) As Double
    Dim radRatio As Double
    
    ' Create an ellipse in model space
    center(0) = 5#: center(1) = 5#: center(2) = 0#
    majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
    radRatio = 0.3
    Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
    ZoomAll
    
End Sub
  
0 Likes
Message 3 of 3

Anonymous
Not applicable

Can use entmakex, like so:

 

(defun Ellipse (cen maj ratio)
	(entmakex 
		(list 
			(cons 000 "ELLIPSE")
			(cons 100 "AcDbEntity")
			(cons 100 "AcDbEllipse")
			(cons 010 cen)
			(cons 011 maj)
			(cons 040 ratio)
			(cons 041 0)
			(cons 042 (* 2 pi))
		)
	)
	(princ)
)
0 Likes