Getorient

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(getorient [pt] [msg])


機能
ユーザが角度を入力するまで待機(一時停止)し、入力された角度をラジアン単位で返す。
右(東)向きが 0ラジアンで反時計回りに角度を増加させながら計測する。ユーザの角度入力は、システム変数 ANGDIR、ANGBASEの設定に基づくが、一旦角度が与えられると、右を 0 ラジアンとして反時計回りに計測される(システム変数 ANGDIR、ANGBASE無視)。0度の方向や角度が増加する方向を他に設定した場合、何らかの変換が必要。
回転量(相対角度)が必要な場合は getangle を、方向(絶対角度)が必要な場合は getorient を使用する。
要求に対して、ユーザは別の LISP 式を入力する事はできない。


引数
  • pt : 現 UCSでの 2D基点。pt 引数を指定した場合、2つの点の 1点目として使用され、ユーザがもう1 つの点を指定するとLISPで角度を求める事ができる。3D 基点を与える事もできるが、角度は常に現在の作図平面で計測される。
  • msg : ユーザに表示するプロンプト文字列。


戻り値
ユーザが指定した角度。この角度は、現在の作図平面に関するもので、単位はラジアン。


サンプル
(setq pt1 (getpoint "点を指定: "))
(4.55028 5.84722 0.0) 
(getorient pt1 "点を指定: ")
5.61582

関連事項