Procedure CustTool;
VAR
Name:STRING;
Result:BOOLEAN;
BEGIN
PushAttrs;
Result:= SetWallStyle(LNewObj,'Building Wall',0,0);
PenSize(2);
PenPatN(2);
SetZVals(0", 0");
FillBack(256);
FillFore(1252);
FillPat(1);
Result:= SetDefaultBeginningMarker(0, 15, 0.125000, 0.000000, 0, 0.000000, FALSE);
Result:= SetDefaultEndMarker(0, 15, 0.125000, 0.000000, 0, 0.000000, FALSE);
PenSize(2);
NameClass('House-Remaining');
Layer('House Walls');
PenBack(256);
PenFore(257);
PenPatN(2);
TextFont(28);
TextJust(1);
TextSize(12);
TextSpace(2);
TextFace([]);
CallTool(-208);
PopAttrs;
END;
Run(CustTool);
I added the line "Result:= SetWallStyle(LNewObj,'Building Wall',0,0);"
and deleted the lines
"
Result := DeleteAllComponents(nil);
Result := InsertNewComponentN(nil, 1, 6", 5, 0, 0, 2, 2);
Result := SetComponentName(nil, 1, '2D/3D Wall Existing');
Result := SetComponentClass(nil, 1, 0);
Result := SetComponentFillColors(nil, 1, 257, 256);
Result := SetComponentPenColors(nil, 1, 257, 256, 257, 256);
Result := SetComponentUseFillClassAttr(nil, 1, FALSE);
Result := SetComponentUsePenClassAttr(nil, 1, FALSE, FALSE);
"
the deleted line where created by the custom tool command