Vla-get-endparameter

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-get-endparameter vla-object )


機能
楕円の終了パラメータを取得する。


引数
  • vla-object … Ellipse のVLAオブジェクト


戻り値
有効範囲は 0~2*PI。


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


関連事項