VS:GetClosestPt/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

ハンドルで指定した図形の頂点を返します。頂点が見つからない場合は、0を返します。

PROCEDURE GetClosestPt(
            VAR obj            :HANDLE;
            pt                 :REAL;
            VAR index          :INTEGER;
            VAR containedObj   :LONGINT);

def vs.GetClosestPt(pt):
    return (obj, index, containedObj)

Parameters

obj		HANDLE		図形のハンドル
pt		REAL		頂点のX座標
index		INTEGER		頂点のY座標
containedObj		LONGINT		頂点番号

Example

PROCEDURE GetClosestPtExample;
VAR
	obj :HANDLE; 
	ptX, ptY :REAL; 
	index :INTEGER; 
	containedObj :LONGINT;
BEGIN
	GetPt(ptX, ptY);
	obj := PickObject(ptX, ptY);
	GetClosestPt(obj, ptX, ptY, index, containedObj);
	SetPenFore(obj, 65535, 0, 0);
END;
RUN(GetClosestPtExample);

Version

利用可能バージョン: VectorWorks8.5