CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

AddEllipticalCylinder 方法（ActiveX）

2024-5-18 18:55| 发布者: admin| 查看: 351| 评论: 0|原作者: admin|来自: AutoCAD

创建一个 3D 实体椭圆柱体，其底位于 WCS 的 XY 平面上，给定 Center、MajorRadius、MinorRadius 和 Height。

支持的平台：仅限 Windows

签名

VBA：

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

对象

类型：块、模型空间、纸空间

此方法应用到的对象。

中心

访问：仅输入

类型：变体（双打的三元素阵列）

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

MajorRadius

访问：仅输入

类型：双

椭圆底的主要半径的长度。必须为正数。

小半径

访问：仅输入

类型：双

椭圆底的短半径的长度。必须为正数。

高度

访问：仅输入

类型：双

圆柱体的高度。必须为正数。

返回值（RetVal）

类型： 3DSolid

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

言论

没有其他评论。

例子

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

可视化 LISP：

(vl-load-com)
(defun c:Example_AddEllipticalCylinder()
    ;; This example creates an elliptical cylinder in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
       
    ;; Define the elliptical cylinder
    (setq center (vlax-3d-point 0 0 0)
          majorRadius 5
          minorRadius 2.5
          height 10)
    
    ;; Create the elliptical cylinder in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq cylinderObj (vla-AddEllipticalCylinder modelSpace center majorRadius minorRadius height))
  
    ;; Change the viewing direction of the viewport to better see the cylinder
    (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)
)