Getpoint

提供:GizmoLabs - だいたい CAD LISP なサイト
2009年11月15日 (日) 15:09時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成: ; 構文 : (getpoint [''pt''] [''msg'']) ; 機能 : ユーザが点を入力するまで待機(一時停止)し、入力された点を返す。 : ユーザは、現在の単…)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(getpoint [pt] [msg])


機能
ユーザが点を入力するまで待機(一時停止)し、入力された点を返す。
ユーザは、現在の単位形式で座標を入力するかクリックすることによって、点を指定できる。pt 引数を指定すると、その点から現在のクロスヘアカーソルの位置までラバーバンドを描く。getpoint 関数の要求に対して、ユーザは別の LISP 式を入力することはできない。
引数
  • pt : 現在の UCS での 2D 基点または 3D 基点。 pt 引数として 1つの整数または実数を受け入れ、CADの直接距離入力機能を使用して点が決定されることに注意。この機能は、始点としてシステム変数 LASTPOINT の値を、距離として pt 入力を、LASTPOINT からの方向として現在のカーソル位置を使用する。結果として、LASTPOINT から現在のカーソルの方向に、指定された単位数だけ離れた点が取得される。
  • msg : ユーザに表示するプロンプト文字列。
戻り値
現在の UCS で表された 3D 点。
サンプル
(setq p (getpoint)) 
(setq p (getpoint "場所は?")) 
(setq p (getpoint '(1.5 2.0) "2点目: ")) 

関連事項