VS:HWallWidth/ja

From Vectorworks Developer
Jump to: navigation, search

.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
Personal tools
NamespacesFFFF

Variants
Actions
Advanced Search
See Also
Navigation
Toolbox
In other languages