VS:CreateLoftSurfaces/ja

From Vectorworks Developer
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

.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