Hello everyone, I just created a script with the multi tool where it selects the walls tool and at the same time puts the wall on the correct class and level. How can I add to the script so that I can set the right style for the Walls tool?
Procedure CustTool;
VAR
Name:STRING;
Result:BOOLEAN;
BEGIN
PushAttrs;
Result := DeleteAllComponents(nil);
Result := InsertNewComponentN(nil, 1, 15, -366, 14, 2, 2, 2);
Result := SetComponentName(nil, 1, 'Putz');
Result := SetComponentClass(nil, 1, 13);
Result := SetComponentFillColors(nil, 1, 257, 256);
Result := SetComponentPenColors(nil, 1, 257, 256, 257, 256);
Result := SetComponentUseFillClassAttr(nil, 1, FALSE);
Result := SetComponentUsePenClassAttr(nil, 1, TRUE, TRUE);
Result := InsertNewComponentN(nil, 2, 200, -130, 14, 14, 2, 2);
Result := SetComponentName(nil, 2, 'Beton');
Result := SetComponentClass(nil, 2, 213);
Result := SetComponentFillColors(nil, 2, 257, 256);
Result := SetComponentPenColors(nil, 2, 257, 256, 257, 256);
Result := SetComponentUseFillClassAttr(nil, 2, FALSE);
Result := SetComponentUsePenClassAttr(nil, 2, TRUE, TRUE);
Result := InsertNewComponentN(nil, 3, 15, -366, 14, 2, 2, 2);
Result := SetComponentName(nil, 3, 'Putz');
Result := SetComponentClass(nil, 3, 13);
Result := SetComponentFillColors(nil, 3, 257, 256);
Result := SetComponentPenColors(nil, 3, 257, 256, 257, 256);
Result := SetComponentUseFillClassAttr(nil, 3, FALSE);
Result := SetComponentUsePenClassAttr(nil, 3, TRUE, TRUE);
PenSize(14);
PenPatN(2);
SetZVals(0", 0);
NameClass(' ▲ 00 Standard - Mauerwerk');
Layer('03_Waende');
SetPref( 3, True );
SetPref( 1013, True );
SetPref( 1014, False );
SetPref( 1015, False );
SetPrefReal( 78, 1.000000 );
SetPrefReal( 79, 1.000000 );
SetPrefReal( 1019, 1000.000000 );
SetPrefReal( 1020, 1000.000000 );
SetPrefReal( 1021, 0.000000 );
SetPrefReal( 1022, 2540.000000 );
SetPrefReal( 1023, 2540.000000 );
SetPrefReal( 1024, 25400.000000 );
SetPrefReal( 1025, 25400.000000 );
SetPrefReal( 1026, 0.000000 );
SetPref( 35, False );
SetPref( 36, False );
SetPref( 1027, True );
SetPref( 1028, True );
SetPref( 1029, True );
SetPref( 1030, True );
SetPref( 1031, True );
SetPref( 1032, True );
SetPref( 1033, True );
SetPref( 1067, True );
SetPrefString( 1034, '45.000000;30.000000' );
SetPref( 1035, True );
SetPref( 1036, True );
SetPrefReal( 53, 0.000000 );
SetPref( 1037, True );
SetPref( 1038, True );
SetPref( 1039, True );
SetPrefReal( 1040, 0.100000 );
SetPref( 4, False );
SetPrefReal( 1041, 2.000000 );
SetPref( 1042, False );
SetPrefReal( 1043, 0.000000 );
SetPref( 1044, False );
SetPrefReal( 1045, 0.500000 );
SetPref( 1046, True );
SetPref( 1047, False );
SetPrefReal( 1048, 0.000000 );
SetPref( 1049, True );
SetPref( 1050, True );
SetPrefReal( 1051, 0.250000 );
SetPrefReal( 1052, 0.000000 );
SetPref( 1053, False );
SetConstrain('qswdf');
CallTool(-208);
PopAttrs;
END;
Run(CustTool);