Custom Tool - Dash Styles

[James Russell]

Hey all,

I just used the create custom tool script to make this:

Procedure CustTool;

VAR

Name:STRING;

Result:BOOLEAN;

BEGIN

PushAttrs;

FillBack(256);

FillFore(257);

FillPat(0);

Result:= SetDefaultBeginningMarker(2, 0, 0.078735, 0.078735, 0, 0.000000, FALSE);

Result:= SetDefaultEndMarker(2, 0, 0.078735, 0.078735, 0, 0.000000, FALSE);

PenPat(-4);

PenSize(2);

CallTool(-204);

PenBack(256);

PenFore(257);

PenPat(-4);

CallTool(-204);

PopAttrs;

END;

Run(CustTool);

The main issue I'm having it that it won't save my dash style (Dash Style-4) into the script. Had a quick look at the VS appendix but couldn't find a reference to dash styles.

Anyone have a clue what line I can add here to do dash styling?

Cheers,

James

[maarten.]

PenPat(-4); should be your dash style.

If not, try this:

Activate your dash style in the attribute palette and run this script:

Message(FPenPat);

Fill in the value that you'll find in the messagebox in

PenPat(value);