Jump to content
  • 0

Three wishes


Tim Schultz

Question

2 answers to this question

Recommended Posts

  • 0

1) ODBC

Me too!

2) Folders in layers.

I would like to be able to group different layers similar to the hierarchical way McIntosh stores files inside folders.

Something like the "-" sub-menu classes would be nice...

3) A keyboard command to rotate 45?.

This would be like the rotate 90? command but would not require that I access a dialog box and enter a value.

This is feasible with VectorScript, you can then edit your workspace and add a keyboard shortcut.

Link to comment
  • 0

{Create a new VectorScript Plug-in Command with this...}

Procedure RotateSel45;

VAR

centerX, centerY:REAL;

p1X, p1Y, p2X, p2Y, p3X, p3Y, p4X, p4Y:REAL;

FirstBBox:BOOLEAN;

{--------------}

Function AddBBox(Hnd:Handle):BOOLEAN;

BEGIN

IF FirstBBox THEN BEGIN

GetBBox (Hnd, p3X, p3Y, p4X, p4Y);

FirstBBox:=FALSE;

END ELSE BEGIN

GetBBox (Hnd, p1X, p1Y, p2X, p2Y);

UnionRect(p1X, p1Y, p2X, p2Y, p3X, p3Y, p4X, p4Y, p3X, p3Y, p4X, p4Y);

END;

END;

{--------------}

Procedure FindCenter;

BEGIN

Rect(p3X, p3Y, p4X, p4Y);

HCenter(LNewObj, centerX, centerY);

DelObject(LNewObj);

END;

{--------------}

Function RotateHnd45(Hnd:HANDLE):BOOLEAN;

BEGIN

HRotate(Hnd, centerX, centerY, 45);

END;

{--------------}

BEGIN

FirstBBox:=TRUE; {init. BBox variable}

ForEachObjectInLayer (AddBBox, 6, 0, 4 ); {selected+unlocked, shallow , editable layers}

FindCenter; {gets centerX and centerY}

ForEachObjectInLayer (RotateHnd45, 6, 0, 4 ); {Rotates 45d around centerX, centerY}

END;

Run(RotateSel45);

{Hope this helps...}

[ 12-01-2002, 09:41 AM: Message edited by: Alexandre B A Villares ]

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...