VS:Split2DObjectByLine/ja

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

Description

ハンドルで指定した図形を2点で定義される直線で分割します。分割された図形はlistHdsハンドルでアクセスします。

PROCEDURE Split2DObjectByLine(
                objectHd      :HANDLE;
                p1            :REAL;
                p2            :REAL;
                VAR listHds   :HANDLE);

def vs.Split2DObjectByLine(objectHd, p1, p2):
    return listHds

Parameters

objectHd		HANDLE
p1		REAL
p2		REAL
listHds		HANDLE

Example

PROCEDURE Example;
VAR
   polyHandle :HANDLE;
   lineHandle :HANDLE;
   resultHandle :HANDLE;
   begPt :VECTOR;
   endPt :VECTOR;
BEGIN
   CallTool(-204); polyHandle := FSActLayer;
   CallTool(-201); lineHandle := FSActLayer;
   GetSegPt1(lineHandle, begPt.x, begPt.y);
   GetSegPt2(lineHandle, endPt.x, endPt.y);
   Split2DObjectByLine(polyHandle, begPt.x, begPt.y, endPt.x, endPt.y, resultHandle);
   resultHandle := CreateDuplicateObject(resultHandle, NIL);
END;
RUN(Example);

Version

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