AddEllipticalCone Example

Using Programming Languages other than VBA

Sub Example_AddEllipticalCone()
	' This example creates an elliptical cone in model space.

	Dim coneObj As Acad3DSolid
	Dim center(0 To 2) As Double
	Dim majorRadius As Double
	Dim minorRadius As Double
	Dim height As Double

	' Define the elliptical cone
	center(0) = 0#: center(1) = 0#: center(2) = 0#
	majorRadius = 10#
	minorRadius = 5#
	height = 20#

	' Create the elliptical cone in model space
	Set coneObj = ThisDrawing.ModelSpace.AddEllipticalCone(center, majorRadius, minorRadius, height)

	' Change the viewing direction of the viewport to better see the cone
	Dim NewDirection(0 To 2) As Double
	NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
	ThisDrawing.ActiveViewport.direction = NewDirection
	ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
	ZoomAll

End Sub

 

   Comments?