VS:GetPolylineVertex/ja

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

Description

ハンドルで指定した多角形／曲線の頂点の値を返します。

注：vertexNumパラメータは、多角形／曲線の場合1から、3D多角形の場合0からの値になります。

PROCEDURE GetPolylineVertex(
               obj              :HANDLE;
               vertexNum        :INTEGER;
               VAR p            :REAL;
               VAR vertexType   :INTEGER;
               VAR arcRadius    :REAL);

def vs.GetPolylineVertex(obj, vertexNum):
    return (p, vertexType, arcRadius)

Parameters

obj		HANDLE		多角形／曲線のハンドル
vertexNum		INTEGER		頂点番号
p		REAL		頂点のX、Y座標
vertexType		INTEGER		頂点の種類（0：頂点指定／1：ベジェポイント指定／2：キュービックスプラインポイント
arcRadius		REAL		円弧の半径（頂点の種類が3の場合のみ有効）

Example

PROCEDURE Example;
VAR
	obj        :HANDLE;
	vertexNum  :INTEGER;
	ptX, ptY   :REAL;
	vertexType :INTEGER;
	arcRadius  :REAL;
BEGIN
	obj := FSActLayer;
	FOR vertexNum := 1 TO GetVertNum(obj) DO BEGIN
		GetPolylineVertex(obj, vertexNum, ptX, ptY, vertexType, arcRadius);
		TextOrigin(ptX, ptY);
		CreateText(Concat('vNum: ', vertexNum, '  vType: ', vertexType, '  radius: ', arcRadius));
	END;
END;
RUN(Example);

Version

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