「GZ:3pointAngle」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
(同じ利用者による、間の2版が非表示)
18行目: 18行目:


; サンプル
; サンプル
<syntaxhighlight lang="lisp" line>
<pre class="brush:autolisp;">
(setq ang1 (rad->deg (GZ:3pointAngle (getpoint) (getpoint) (getpoint))))
(setq ang1 (rad->deg (GZ:3pointAngle (getpoint) (getpoint) (getpoint))))
(princ (strcat "指示した点の角度は " (rtos ang1) " 度です。"))
(princ (strcat "指示した点の角度は " (rtos ang1) " 度です。"))
</syntaxhighlight>
</pre>
 
-----
-----
関連事項
関連事項

2021年5月29日 (土) 11:12時点における最新版

構文
(GZ:3pointAngle p1 p2 p3)


機能
3点の座標角から小さい方の角度を返す。


引数
  • p1, p3 : p2を中心とした座標点
  • p2 : 角度の頂点座標


戻り値
∠p1p2p3 のラジアン値


サンプル
(setq ang1 (rad->deg (GZ:3pointAngle (getpoint) (getpoint) (getpoint))))
(princ (strcat "指示した点の角度は " (rtos ang1) " 度です。"))

関連事項