AddEllipticalCylinder Example

Using Programming Languages other than VBA

Sub Example_AddEllipticalCylinder()
	' This example creates an elliptical cylinder in model space.
   
	Dim cylinderObj As Acad3DSolid
	Dim center(0 To 2) As Double
	Dim majorRadius As Double
	Dim minorRadius As Double
	Dim height As Double

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

	' Create the elliptical cylinder in model space
	Set cylinderObj = ThisDrawing.ModelSpace.AddEllipticalCylinder(center, majorRadius, minorRadius, height)

	' Change the viewing direction of the viewport to better see the cylinder
	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?