VS:GetClosestPt/ja
Jump to navigation
Jump to search
.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