VS:GetHole/ja

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

Description

ハンドルで指定した曲線の、指定した番号の穴図形のハンドルを返します。

FUNCTION GetHole(
         inOutsidePolyline   :HANDLE;
         inIndex             :INTEGER;
         VAR outHole         :HANDLE) : BOOLEAN;

def vs.GetHole(inOutsidePolyline, inIndex):
    return (BOOLEAN, outHole)

Parameters

inOutsidePolyline		HANDLE		曲線のハンドル
inIndex		INTEGER		穴の番号
outHole		HANDLE		穴図形のハンドル

Return Value

穴が空いている場合はTRUEを返します。他の場合はFALSEを返します。

Example

PROCEDURE Example;
VAR
	inPolyline  :HANDLE;
	outNumHoles :INTEGER;
	inIndex     :INTEGER;
	outHole     :HANDLE;
	vertexNum   :INTEGER;
	pX, pY      :REAL;
	vertexType  :INTEGER;
	arcRadius   :REAL;
BEGIN
	inPolyline := FSActLayer;
	IF GetNumHoles(inPolyline, outNumHoles) THEN BEGIN
		FOR inIndex := 1 TO outNumHoles DO BEGIN
			if GetHole(inPolyline, inIndex, outHole) THEN BEGIN
				FOR vertexNum := 1 TO GetVertNum(outHole) DO BEGIN
					GetPolylineVertex(outHole, vertexNum, pX, pY, vertexType, arcRadius);
					WriteLn('pX: ', pX, ' pY: ', pY);
				END;
			END;
		END;
	END;
END;
RUN(Example);

Version

利用可能バージョン: VectorWorks9.0

See Also

関連関数:

VS:GetNumHoles

関連関数: [[VS:GetNumHoles]]