Procedure WallTo creates a wall object in a VectorWorks document. WallTo begins the wall at the current graphics pen position, with the end point at the specified location.
To explicitly set the start point of the wall, WallTo must be preceded by either Procedure MoveTo, LineTo, Wall, or WallTo. The procedure automatically performs a join/cleanup operation an intersection if the previous procedure was a wall creation procedure.
PROCEDURE WallTo(pX,pY : REAL);def vs.WallTo(p):
return None| Name | Type | Description |
|---|---|---|
| p | REAL | End point of wall. |
PROCEDURE Example;
VAR
x1, y1, x2, y2 :REAL;
resourceID :LONGINT;
wallStyleCnt :INTEGER;
wallStyleName :STRING;
wallStyleHand :HANDLE;
BEGIN
resourceID := BuildResourceList(127, 113, '', wallStyleCnt);
IF wallStyleCnt > 0 THEN BEGIN
wallStyleName := GetNameFromResourceList(resourceID, 1);
AlrtDialog(wallStyleName);
wallStyleHand := ImportResourceToCurrentFile(resourceID, 1);
SetWallPrefStyle(wallStyleName);
END ELSE BEGIN
SetWallWidth(3.5");
END;
GetPt(x1, y1);
GetPtL(x1, y1, x2, y2);
MoveTo(x1, y1);
WallTo(x2, y2);
END;
RUN(Example);Availability: from MiniCAD4.0