VS:SetPolylineVertex/ja
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
ハンドルで指定した多角形/曲線の頂点の値を設定します。
PROCEDURE SetPolylineVertex(
obj :HANDLE;
vertexNum :INTEGER;
p :REAL;
vertexType :INTEGER;
arcRadiusDistance :REAL)Coordinate); recalcBounds:BOOLEAN);
def vs.SetPolylineVertex(obj, vertexNum, p, vertexType, arcRadiusDistance, recalcBounds): return None
Parameters
obj HANDLE 多角形/曲線のハンドル vertexNum INTEGER 頂点番号(1から) p REAL 頂点のX、Y座標 vertexType INTEGER 頂点の種類(0:頂点指定/1:ベジェポイント指定/2:キュービックスプラインポイント arcRadiusDistance REAL (Coordinate) 円弧の半径(頂点の種類が3の場合のみ有効) recalcBounds BOOLEAN 図形の領域を再計算させる場合はTRUE
Example
PROCEDURE Example; {This will convert anything it can in the drawing to a polyline (including rectangles, polygons, etc.), and then it will fillet all of the corners with a radius of .015".} CONST kFilletRadius = .015"; VAR cnt :INTEGER; x, y :REAL; vertexType :INTEGER; vertexRadius :REAL; criteria :STRING; PROCEDURE FilletPolygon(h :HANDLE); BEGIN h := ConvertToPolyline(h); FOR cnt := 1 to GetVertNum(h) DO BEGIN GetPolylineVertex(h, cnt, x, y, vertexType, vertexRadius); SetPolylineVertex(h, cnt, x, y, 3, kFilletRadius, TRUE); END; END; BEGIN criteria := '(ALL)'; ForEachObject(FilletPolygon, criteria); END; RUN(Example);
Version
利用可能バージョン: VectorWorks8.5