AddEllipticalCone Method （ActiveX）

签名

工 务 局：

RetVal = object.AddEllipticalCone(Center, MajorRadius, MinorRadius, Height)

对象

类型：块，模型空间，图纸空间

此方法适用的对象。

中心

访问：仅输入

类型：变体（双精度的三元素数组）

指定边界框中心的 3D WCS 坐标。

大半径

访问：仅输入

类型：双

椭圆底的长半径。必须是正数。

小半径

访问：仅输入

类型：双

椭圆底底的次要半径的长度。必须是正数。

高度

访问：仅输入

类型：双

圆锥体的高度。必须是正数。

返回值（RetVal）

类型：3DSolid

对象作为新创建的椭圆锥。3DSolid

言论

没有额外的评论。

例子

工 务 局：

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

Visual LISP：

(vl-load-com)
(defun c:Example_AddEllipticalCone()
    ;; This example creates an elliptical cone in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
       
    ;; Define the elliptical cone
    (setq center (vlax-3d-point 0 0 0)
          majorRadius 10
	         minorRadius 5
	         height 20)
    
    ;; Create the elliptical cone in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq coneObj (vla-AddEllipticalCone modelSpace center majorRadius minorRadius height))

    ;; Change the viewing direction of the viewport to better see the cone
    (setq NewDirection (vlax-3d-point -1 -1 1))
    (setq activeViewport (vla-get-ActiveViewport doc))
    (vla-put-Direction activeViewport NewDirection)
    (vla-put-ActiveViewport doc activeViewport)
    (vla-ZoomAll acadObj)
)