VS:HWallWidth/ja

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

Description

ハンドルで指定した壁の幅を設定します。

PROCEDURE HWallWidth(
           wallHd          :HANDLE;
           widthDistance   :REAL)Coordinate));

def vs.HWallWidth(wallHd, widthDistance):
    return None

Parameters

wallHd		HANDLE		壁のハンドル
widthDistance		REAL (Coordinate)		壁の幅

Example

PROCEDURE Example;
VAR
	targetWall, sourceWall :HANDLE;
	cnt1, cnt2, cavs :INTEGER;
BEGIN
	targetWall := FSActLayer;
	MoveTo(0,0);
	WallTo(1,0);
	sourceWall := LNewObj;
	cavs := GetObjectVariableInt(sourceWall, 199);
	HWallWidth(targetWall, WallWidth(sourceWall));
	SetObjectVariableInt(targetWall, 199, cavs);
	FOR cnt2 := 0 TO cavs - 1 DO BEGIN
		SetObjectVariableBoolean(targetWall, 240 + cnt2, GetObjectVariableBoolean(sourceWall, 240 + cnt2)); {cavity is pair}
		SetObjectVariableReal   (targetWall, 200 + cnt2, GetObjectVariableReal   (sourceWall, 200 + cnt2)); {left offset}
		SetObjectVariableReal   (targetWall, 220 + cnt2, GetObjectVariableReal   (sourceWall, 220 + cnt2)); {right offset}
		SetObjectVariableLongInt(targetWall, 260 + cnt2, GetObjectVariableLongInt(sourceWall, 260 + cnt2)); {cavity fill}
		SetObjectVariableInt    (targetWall, 280 + cnt2, GetObjectVariableInt    (sourceWall, 280 + cnt2)); {pen weight}
		SetObjectVariableInt    (targetWall, 300 + cnt2, GetObjectVariableInt    (sourceWall, 300 + cnt2)); {pen style}
	END;
	ResetObject(targetWall);
	DelObject(sourceWall);
END;
RUN(Example);

Version

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