Vla-put-endparameter

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

構文: (vla-put-endparameter vla-object param )

機能: 楕円の終了パラメータを指定する。

引数

vla-object … Ellipse のVLAオブジェクト
param … 有効範囲は 0～2*PI。

戻り値: nil

MEMO：楕円の開始および終了パラメータは、以下の方程式に基づいて計算される。

P(Theta) = A * cos(Theta) + B * sin(Theta)

A と B はそれぞれ長半径と短半径。

たとえば、開始角度が Theta1 である場合、対応する開始パラメータは上記の公式に基づいて計算された P(Theta1)。同様に、終了角度が Theta2 である場合、対応する終了パラメータは上記の公式に基づいて計算された P(Theta2)。

楕円作成には、角度、パラメータどちらでも使用できる。

サンプル

(vl-load-com)
(defun c:Example_StartParameter()
    ;; 楕円を作成して、開始点と終了点のパラメータを変更するサンプル
    (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))
    
    ;; 開始のパラメータは 1.57、 終了のパラメータは 6.28
    (vla-put-StartParameter ellObj 1.57)
    (vla-put-EndParameter ellObj 6.28)
    (vla-ZoomAll acadObj)
    
    ;; 設定を取得
    (alert (strcat "楕円の開始パラメータは " (rtos (vla-get-StartParameter ellObj) 2) "、終了パラメータは " (rtos (vla-get-EndParameter ellObj) 2)))
)