Getdist
- 構文
- (getdist [pt] [msg])
- 機能
- ユーザが距離を入力するまで待機(一時停止)する。
- ユーザは 2 つの点を指定して距離を指定するが、基点を与えた場合は 2 点目だけを指定する。また、CAD の現在の距離単位形式に従って数値を入力することによっても、距離を指定できる。現在の距離単位形式が、フィート/インチ(建築図面表記)の場合でも、getdist 関数は常に実数で距離を返す。
- getdist 関数は、1 番目の点から現在のクロスヘアカーソルの位置にラバー バンドを描き、ユーザが距離を目で確認できるようにする。
- getdist 関数の要求に対して、ユーザは別の LISP 式を入力することはできない。
- 引数
-
- pt : 現在の UCS で、基点として使用する 2D 点または3D 点。 pt を与えた場合、ユーザは 2 点目を指定するよう要求される。
- msg : ユーザに表示するプロンプト文字列。この文字列を指定しなかった場合、メッセージは表示されない。
- 戻り値
- 実数。 3D 点が与えられた場合、3D 距離を返す。initget 関数のビット コードを 64 に設定した場合は、3D 点の Z 座標を無視して 2D 距離を返す。
- サンプル
(setq dist (getdist)) (setq dist (getdist '(1.0 3.5))) (setq dist (getdist "距離は? ")) (setq dist (getdist '(1.0 3.5) "距離は?"))
関連事項
- initget 関数