VS:HWallWidth

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

Description

Procedure HWallWidth sets the wall width of the referenced wall object.

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

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

Parameters

wallHd		HANDLE		Handle to wall.
widthDistance		REAL		New wall width.

Example

VectorScript

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);

Python

Version

Availability: from MiniCAD6.0