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