How to reset tops of walls that have previously been fitted to roof

[Christiaan]

Is there a way to reset the tops of walls to be horizontal when they've previously be fitted to the roof geometry?

[Farookey]

Hi... Got a script for that sir!

Made it into a plug-in for convenience... you could do the same...

Here it is...

PROCEDURE RemoveWallPeaksProc;

VAR

WallZ : REAL;

WallDZ : REAL;

BEGIN

GetLayerElevation(GetLayer(FSActLayer), WallZ, WallDZ);

WallDZ := WallDZ / (25.4 / GetPrefReal(152));

ClearWallPeaks(FSActLayer);

HWallHeight(FSActLayer, WallDZ, WallDZ );

ResetObject(FSActLayer);

END;

RUN(RemoveWallPeaksProc);

:-) ENJOY!

Edit: Just so you know though; they make the wall horizontal, but at the Delta Z that the Design Layer is set to. So, if for some reason you have it set to 0, do not be surprised. Oh... Just select the wall and run the command/script...

Edited November 1, 2011 by Farookey

[Christiaan]

Thanks Farookey, does this allow you to select specific walls or does it do all walls on a layer?

[Farookey]

Specific walls...

Select the wall you want to adjust and run command...

Unfortunately, it only does single walls... But it sure beats redrawing a wall all over again.

[Christiaan]

Thanks again. There needs to be something built in for this.

[Farookey]

Yes, directly from VW. Maybe next update?

: )

[Christiaan]

Better yet walls should dynamically bind to roof geometry rather than needing to be triggered manually.

[bcd]

I know it's not the same thing but for gable walls etc you can also double click the wall and delete the wall peaks. - the script looks great,

[billtheia]

PROCEDURE RemoveWallPeaksProc;

VAR

WallZ : REAL;

WallDZ : REAL;

BEGIN

GetLayerElevation(GetLayer(FSActLayer), WallZ, WallDZ);

WallDZ := WallDZ / (25.4 / GetPrefReal(152));

ClearWallPeaks(FSActLayer);

HWallHeight(FSActLayer, WallDZ, WallDZ );

ResetObject(FSActLayer);

END;

RUN(RemoveWallPeaksProc);

Great script, Farookey. Doesn't seem to work in VW2012, though. Does anyone have any idea why?

[maarten.]

It does work here, you just need to make sure you've only selected one wall that has a wall peak.

Here is the script again, rewritten a little bit so it will work on all selected walls on the active layer.

PROCEDURE RemoveWallPeaksProc;
{original script by Farookey}
{all selected walls on the active layer will get their wall peaks removed}
VAR
LayerH : HANDLE;
Criteria : STRING;
WallZ : REAL;
WallDZ : REAL;

PROCEDURE RemoveWallPeaks(h : HANDLE);
BEGIN
	ClearWallPeaks(h);
	HWallHeight(h,WallDZ,WallDZ);
	ResetObject(h);
END;

BEGIN
LayerH:=ActLayer;
GetLayerElevation(LayerH,WallZ,WallDZ);
WallDZ:=WallDZ/(25.4/GetPrefReal(152));
Criteria:=Concat('(L=',Chr(39),GetLName(LayerH),Chr(39),') & (T=WALL) & (SEL=TRUE)');
ForEachObject(RemoveWallPeaks,Criteria);
END;
RUN(RemoveWallPeaksProc);

[billtheia]

Thanks, Maarten.

I was only selecting one wall at a time.

Both scripts seem to work on walls that have a peak in the center but not on walls that have a peak at one end of the wall.

[Christiaan]

What about when there're no peaks but the top or bottom of the wall slopes? Is there any way to reset a wall so it removes these slopes and conforms to the top and bottom auto-bounding (or Layer Elevation/Layer Wall Height)?

[VincentCuclair]

Better yet walls should dynamically bind to roof geometry rather than needing to be triggered manually.

Could be irritating in several situations......how about having it as a mode bar option in walls?!