Vectorscript for "Make Guide"?

[Markus Barrera-Kolb]

I'd like to be able to use the "Make Guide" command with the keyboard shortcut "G", but simple keystrokes (w/o a modifier) are only available for tools and not menu items, for whatever strange reason. I thought it might be possible to make a tool script that executes this command and then assign that shortcut to it. Can someone enlighten me what the syntax would be for running that command in VectorScript? Thanks!

[Henry Finch]

Sorry for being no help on a non-modified keystroke for Make Guide but I've been using for years. The forward slash is right above the right command key on macs. I think as important is the unlock command to go with it. A script for an unlocked Make Guides would make sense. I do use for Unlock and for Lock which are directly above the /.

[maarten.]

I think it's this one:

DoMenuTextByName('Guides',1);

[Gerrit]

Create a new "Tool" PIO, paste in the following code.

Next, add it to your workspace and set a keyboard shortcut to the tool.

====================

PROCEDURE Set2Guide;

VAR

x, y : REAL;

h : HANDLE;

BEGIN

DSelectAll;

GetPt(x,y);

h := PickObject(x, y);

IF h <> NIL THEN BEGIN

SetSelect(h);

DoMenuTextByName('Guides',1);

DoMenuTextByName('Unlock',0);

END ELSE SysBeep;

END;

Run(Set2Guide);

[maarten.]

Gerrit , is there a reason why you unlock that Guide? I thought that the purpose of a Guide was that you couldn't move it accidentially?

[Gerrit]

My distracted mind must have been merging both Markus' and Henry's requests :-)

Besides, I too like most of my guides unlocked - I move them around constantly.

[Markus Barrera-Kolb]

Thanks for your replies Gerrit & maarten! And by omitting the "DeselectAll" I also have the option of selecting several objects prior to invoking the script...

[Markus Barrera-Kolb]

Using the "DoMenuTextByName" command I've also made a script for selecting all guides (so that I can assign the shortcut option+G to it). Can something be added to the script so that the command is executed immediately, i.e. doesn't require another mouse-click?

Currently, the script looks like this:

PROCEDURE SelectGuides;

BEGIN

DoMenuTextByName('Guides',2);

END;

RUN (SelectGuides);

[Gerrit]

In order to achieve that, you'll need to make a Command instead of a Tool, and add it to the menu's of your workspace (including the keyboard shortcut).