Vla-anglefromxaxis

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年10月20日 (日) 18:35時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-anglefromxaxis ''vla-object'' ''pt1'' ''pt2'') ; 機能 : X 軸からの線分の角度を取得する。 ; 引数 :* vla-object … vla...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-anglefromxaxis vla-object pt1 pt2)


機能
X 軸からの線分の角度を取得する。


引数
  • vla-object … vlaオブジェクト
  • pt1 … 角度の始点。バリアント型 (3 要素の倍精度浮動小数点数型配列)
  • pt2 … 角度の終点。バリアント型 (3 要素の倍精度浮動小数点数型配列)


戻り値
線分の角度のラジアン値(倍精度浮動小数点数型)


サンプル
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq *util* (vla-get-utility *actdoc*))

(setq pt1 (vla-getpoint *util* nil "\n角度の始点 :"))
(setq pt2 (vla-getpoint *util* pt1 "\n角度の終点 :"))
(setq ang1 (vla-anglefromxaxis *util* pt1 pt2))
; 3.21616

(vla-angletostring *util* ang1 acdegrees 3)
; "184.272"


関連事項