Vla-getcorner

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-getcorner vla-object Point Prompt )

機能: 矩形のコーナーを取得する。

引数

vla-object … Utility の VLAオブジェクト
Point … 矩形の基点を指定する 3D WCS 座標。
Prompt … ユーザに入力を求めるときに表示される文字列。

戻り値: 矩形のコーナーを示す 3D WCS 座標

MEMO : CAD はユーザが矩形のコーナーを入力するのを待って、選択された点の値に対する戻り値を設定する。パラメータ Point は、3D WCS 座標での矩形の基点を指定する。このパラメータは必ず設定すること。パラメータ Prompt は、ユーザ入力を求める際に CAD が表示する文字列を指定する。Prompt はオプション。
CAD ユーザは、WCS 座標形式で点を入力して、コーナーを指定できます。GetCorner メソッドは、Point を 3 次元の点として処理します。また、グラフィックス画面上の位置を指定して、コーナーを指定することもできますAutoCAD は、第 2 のコーナーの位置を視覚的に確認できるように、Point から現在のクロスヘアカーソルの位置まで動的にサイズ変更された矩形を描きます。矩形は、WCS の XY 平面に描かれます。ポインティングデバイスを使用すると、GetCorner では Point の Z フィールドは無視され、実行結果の Z フィールドには現在の高度が設定されます。
AutoLISP だと、getcorner 関数があるので、そっちも使える。

サンプル

(vl-load-com)
(defun c:Example_GetCorner()
    ;; コーナーを指示して矩形を作図するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; ユーザに句形範囲を指示させる
    (setq basePnt (vlax-3d-point 2 2 0))
    (setq returnPnt (vla-GetCorner (vla-get-Utility doc) basePnt "矩形範囲を指示 : "))
    
    ;; 支持点を表示
    (setq returnPnt (vlax-safearray->list (vlax-variant-value returnPnt)))
    (alert (strcat "指示された範囲は " (rtos (nth 0 returnPnt) 2) ", " (rtos (nth 1 returnPnt) 2) ", " (rtos (nth 2 returnPnt) 2)))
)