Vla-put-endparameter

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月8日 (月) 17:15時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-endparameter ''vla-object'' ''param'' ) ; 機能 : 楕円の終了パラメータを指定する。 ; 引数 :* vla-object … Ellip...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)))
)


関連事項