Thanks for the tips :-), I am very happy.
I have tried the last one and it works but how do you think I can have f.e three different kinds of hatches in one wall like the procedure below ( which is working ) but then not with the patterns changed by mu own existing vectorfills.
And after that I would like to make also in several separated scripts different kinds of walls with one, two, three, four different vectorfills.
Procedure CustTool;
VAR
Name:STRING;
Result:BOOLEAN;
BEGIN
PushAttrs;
ClearCavities;
PenSize(14);
PenPat(2);
AddCavity(TRUE, -7cm, -17cm, 24);
{ not pattern 24 but vectorfill #x }
PenSize(14);
PenPat(2);
AddCavity(TRUE, -3cm, -7cm, 1);
{ not pattern 1 but vectorfill #y }
PenSize(14);
PenPat(2);
AddCavity(TRUE, 7cm, -3cm, 71);
{ not pattern 71 but vectorfill #z }
DoubLines(34cm);
PenSize(14);
PenPat(2);
SetZVals(0cm, 250cm);
FillBack(0);
FillPat(5); { in this case it is a general pattern that covers the whole wall below the others, something llike a background }
PenFore(255);
PenBack(0);
PenPat(2);
PenSize(14);
PenPat(2);
CallTool(-208);
PopAttrs;
END;
THANKS A LOT FOR SUPPORTING