Vla-put-radiusratio

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-put-radiusratio vla-object ratio)

機能: 楕円の主軸に対する副軸の比率を指定する。

引数

vla-object … Ellipse のVLAオブジェクト
ratio … 副軸の比率値

戻り値
nil

MEMO : 副軸は 1.0 より小さい値で指定。(1.0 の半径比は円)。

サンプル

(vl-load-com)
(defun c:Example_RadiusRatio()
    ;; 副軸 0.3 の楕円を作ってから 0.75 に変更するサンプル
    ;; for that ellipse. It then changes the radius ratio to 0.75.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; 楕円を作成
    (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)

    (alert (strcat "楕円の副軸は： " (rtos (vla-get-RadiusRatio ellObj) 2)))

    ;; Change the radius ratio of the ellipse
    (vla-put-RadiusRatio ellObj 0.75)
    (vla-Update ellObj)
    (alert (strcat "楕円の副軸を変更： " (rtos (vla-get-RadiusRatio ellObj) 2)))
)