「Vla-put-startparameter」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-startparameter ''vla-object'' ''param'' ) ; 機能 : 楕円の開始パラメータを指定する。 ; 引数 :* vla-object … Ell...」) |
(相違点なし)
|
2016年2月8日 (月) 17:13時点における最新版
- 構文
- (vla-put-startparameter 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))) )
関連事項