Getdist

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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) "距離は?"))

関連事項