MinorRadius プロパティ(ActiveX)

楕円の副軸の長さを指定します。

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

構文と要素

VBA:

object.MinorRadius

object

タイプ: Ellipse

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

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

楕円の副軸の長さ

注意

楕円の長い方の軸を主軸と呼びます。短い方は副軸です。

例

VBA:

Sub Example_MinorRadius()
    ' This example creates an Ellipse in model space and displays
    ' both the Major radius and the Minor radius of the new Ellipse
  
    Dim ellObj As AcadEllipse
    Dim majAxis(0 To 2) As Double, center(0 To 2) As Double
    Dim radRatio As Double
    
    ' Create an ellipse in model space
    center(0) = 5: center(1) = 5: center(2) = 0
    majAxis(0) = 10: majAxis(1) = 20: majAxis(2) = 0
    radRatio = 0.3
    Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)

    ThisDrawing.Application.ZoomAll
    
    ' Display radius information
    MsgBox "The major radius of the new Ellipse is: " & ellObj.majorRadius & vbCrLf & _
           "The minor radius of the new Ellipse is: " & ellObj.minorRadius
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_MinorRadius()
    ;; This example creates an Ellipse in model space and displays
    ;; both the Major radius and the Minor radius of the new Ellipse
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Create an ellipse in model space
    (setq center (vlax-3d-point 5 5 0)
          majAxis (vlax-3d-point 10 20 0)
          radRatio 0.3)
  
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq ellObj (vla-AddEllipse modelSpace center majAxis radRatio))
  
    (vla-ZoomAll acadObj)
    
    ;; Display radius information
    (alert (strcat "The major radius of the new Ellipse is: " (rtos (vla-get-majorRadius ellObj) 2)
                   "\nThe minor radius of the new Ellipse is: " (rtos (vla-get-minorRadius ellObj) 2)))
)