Getorient

構文

(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 

---

関連事項