Getorientのソースを表示

{{AutoLISP}}

; 構文
: (getorient [''pt''] [''msg''])


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


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


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


; サンプル
 <pre class="brush:autolisp;">
(setq pt1 (getpoint "点を指定: "))
(4.55028 5.84722 0.0) 
(getorient pt1 "点を指定: ")
5.61582
</pre> 

-----
関連事項
* 

[[Category:AutoLISP]]