RadiusRatio Example

Using Programming Languages other than VBA

Sub Example_RadiusRatio()
	' This example creates an ellipse and finds the radius ratio
	' for that ellipse. It then changes the radius ratio to 0.75.
	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
	MsgBox "This ellipse has a radius ratio of " & ellObj.RadiusRatio, vbInformation, "RadiusRatio Example"


	' Change the radius ratio of the ellipse
	radRatio = 0.75
	ellObj.RadiusRatio = radRatio
	ellObj.Update
	MsgBox "The ellipse has been udpated with the radius ratio of " & ellObj.RadiusRatio, vbInformation, "RadiusRatio Example"
End Sub

 

   Comments?