VS:CreateLoftSurfaces/ja

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

Description

曲線の交点のグループに補間法を用いることでNURBS曲面を作成します。

FUNCTION CreateLoftSurfaces(
               groupCurvesHd   :HANDLE;
               bRule           :BOOLEAN;
               bClose          :BOOLEAN;
               bSolid          :BOOLEAN) : HANDLE;

def vs.CreateLoftSurfaces(groupCurvesHd, bRule, bClose, bSolid):
    return HANDLE

Parameters

groupCurvesHd		HANDLE		曲線のハンドル
bRule		BOOLEAN		ルールドで作成する場合はTRUE
bClose		BOOLEAN		閉で作成する場合はTRUE
bSolid		BOOLEAN		ソリッドを作成する場合はTRUE

Example

PROCEDURE Example;
VAR
	h, groupHand :HANDLE;
	bRule, bClose, bSolid :BOOLEAN;
BEGIN
	BeginGroup;

	h := CreateNurbsCurve(-PLENGTH/2, 0, 0, true, 1);
	AddVertex3D(h, -PLENGTH/2,PHEIGHT,0);
	AddVertex3D(h, PLENGTH/2,PHEIGHT,0);
	AddVertex3D(h, PLENGTH/2,0,0);

	h := CreateNurbsCurve(-PLENGTH/2-POFFSET,0,pWidth, true, 1);
	AddVertex3D(h, -PLENGTH/2-POFFSET, PHEIGHT+POFFSET, pWidth);
	AddVertex3D(h, PLENGTH/2+POFFSET, PHEIGHT+POFFSET, pWidth);
	AddVertex3D(h, PLENGTH/2+POFFSET, 0, pWidth);

	EndGroup;
	groupHand := LNewObj;
	bRule := TRUE;
	bClose := FALSE;
	bSolid := FALSE;
	groupHand := CreateLoftSurfaces(groupHand, bRule, bClose, bSolid);
	SetRot3D(LNewObj,#90d,#0d,#0d,0,0,0);
END;
RUN(Example);

Version

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