VS:ClipSurface/ja

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

Description

ハンドルで指定した図形2で図形1を切断します。

PROCEDURE ClipSurface(
            s1   :HANDLE;
            s2   :HANDLE);

def vs.ClipSurface(s1, s2):
    return None

Parameters

s1		HANDLE		図形1のハンドル
s2		HANDLE		図形2のハンドル

Example

PROCEDURE ClipSurfaceExample;
VAR
	h1, h2, h3 :HANDLE;
BEGIN
	DSelectAll;
	CallTool(-203);
	h1 := FSActLayer;
	DSelectAll;
	CallTool(-203);
	h2 := FSActLayer;
	ClipSurface(h1, h2);
	h3 := PrevObj(h2);
	IF h3 <> h1 THEN SetFPat(h3, 5);
END;
RUN(ClipSurfaceExample);

Version

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