The script shown will "unfit" selected walls that have had wall peaks added using the "Fit Walls to Roof" command in VectorWorks Architect.
This is an example of a "bare-bones" script. I leave it to others to add some niceties, such as error checking. For example, what should happen if nothing is selected?
Procedure Fix_Walls;
var desired_ht:REAL;
PROCEDURE HandleWalls(h:HANDLE);
VAR result:BOOLEAN;
BEGIN
ClearWallPeaks(h);
result := SetWallHeights(h,desired_ht,desired_ht);
END;
BEGIN