{Developed by Julian Carr 1997

This command sets the pen thickness and colour of all SELECTED objects
on the active layer. It will work in Edit Symbol mode and it will also
work on symbols if the objects inside them are selected.

Adapt it for other weights and colours by changing the constants at
the top of the routine.
}

Procedure AdjustLines;
CONST
    PFC = 23;  {pen foreground colour by palette index number}
    LW = 10;    {line weight in mils - 1 mil = 1/1000" = 0.0254mm}
VAR
    LName : STRING;

Procedure FEO(h : HANDLE);
VAR
    h1 : HANDLE;
    Type : INTEGER;
BEGIN
    Type:=GetType(h);
    IF Type=63 THEN BEGIN
        h1:=FIn3d(h);
        REPEAT
            IF GetType(h1)=2 THEN BEGIN
                SetLW(h1,LW);
                SetPenFore(h1,PFC);
            END;
            h1:=NextObj(h1);
        UNTIL h1=Nil;
    END;
    IF (Type<>10)&(Type<>11)&(Type<>15)&(Type<>16)&
    (Type<>17)&(Type<>22)&(Type<>29) THEN SetLW(h,LW);
    SetPenFore(h,PFC);
    HMove(h,0,0); {forces correct redraw for walls}
END;

BEGIN
    LName:=GetLName(ActLayer);
    ForEachObject(FEO,(Sel=True) & (L=LName));
    ForEachObject(FEO,InSymbol & (Sel=True) & (L=LName));
    ReDrawAll;
END;
RUN(AdjustLines);