AddEllipticalCylinder メソッド(ActiveX)

Center、MajorRadius、MinorRadius、Height を指定して WCS の XY 平面に底面がある 3D ソリッド楕円柱を作成します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

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

object

タイプ: Block、ModelSpace、PaperSpace

このメソッドが適用されるオブジェクト。

Center

アクセス: 入力のみ

タイプ: バリアント型(3 要素の倍精度浮動小数点数型配列)

境界ボックスの中心を指定する 3D WCS 座標。

MajorRadius

アクセス: 入力のみ

タイプ: 倍精度浮動小数点数型

楕円底面の長径の長さ。正の数値でなければなりません。

MinorRadius

アクセス: 入力のみ

タイプ: 倍精度浮動小数点数型

楕円底面の短径の長さ。正の数値でなければなりません。

Height

アクセス: 入力のみ

タイプ: 倍精度浮動小数点数型

円柱の高さ。正の数値でなければなりません。

戻り値(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

Visual 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)
)