connecting users of the CorelDRAW family of products
We take every threat seriously. CorelDRAW.com has not been affected by the Heartbleed security bug.

change x-y (0-0)

rated by 0 users
Answered (Not Verified) This post has 0 verified answers | 5 Replies | 3 Followers

Share  
Page 1 of 1 (6 items) | RSS

Not Ranked
western PA
John H posted on Thu, Oct 29 2009 10:08

I am using CorelDrawX4 to create and send files to a Laser Engraver.
In Corel, I always click and drag my 0-0 to be at the upper left corner of my page.
I select my artwork then go to the OBJECTS POSITION (in the toolbar, in the upper left part of the screen).
I type in 0 (zero) for the x position and 0 (zero) for the y position and hit ENTER.
The "center" of my artwork always goes to the 0-0 position.
Is there a way to have the "upper left corner" of my artwork ALWAYS go to the 0-0 position?
I tried to change this in the "transformations/positions" docker, but it does not stay as a default.
I have attached two screen shots to hopefully aid in describing my question.

Thank you in advance for your help.

John H

All Replies

Top 10 Contributor
Cave Creek, AZ
Male
TAG - Mediamarketplace (Foster)
John,
 
After changing it in one file, select Tools | Save Settings as Default. That will change all NEW files you create.
 
 
Top 50 Contributor
Houston, Texas
Male
Suggested by Aleem Ashraf
Use Align and Distribute instead of the transformation docker. You have
the choice to align your object to the top and left edges of your page.
After opening the ALIGN AND DISTRIBUTE dialog, change the "Align objects
to:" option to "edge of Page". The default is set for "Active Objects".

Steve
www.brutefish.com

John H wrote:
> I am using CorelDrawX4 to create and send files to a Laser Engraver.
> In Corel, I always click and drag my 0-0 to be at the upper left corner
> of my page.
> I select my artwork then go to the OBJECTS POSITION (in the toolbar, in
> the upper left part of the screen).
> I type in 0 (zero) for the x position and 0 (zero) for the y position
> and hit ENTER.
> The "center" of my artwork always goes to the 0-0 position.
> Is there a way to have the "upper left corner" of my artwork ALWAYS go
> to the 0-0 position?
> I tried to change this in the "transformations/positions" docker, but it
> does not stay as a default.
> I have attached two screen shots to hopefully aid in describing my question.
>
> Thank you in advance for your help.
>
> John H
>
>
> ------------------------------------------------------------------------
> http://coreldraw.com/forums/p/16772/70871.aspx#70871
>

John H:
Is there a way to have the "upper left corner" of my artwork ALWAYS go to the 0-0 position?

Hi John, this is a very good question but unfortunately this doesn't seem to be possible. The best and easiest workaround is what steve has suggested in his above post.

Or if you don't wanna go to the Aligh and Distribute panel, just double click the Rectangle tool (that will add a page frame), Select ur artwork and then shift select the page frame and prees "T" key for top align and "L" key for left align, remove the page frame if u want to.

The only absolute knowledge attainable by man is that life is meaningless.

— Leo Tolstoy

I have a module listed under GlobalMacros named zeromark which consists
of this (I also have a shortcut of it on the toolbar):

Sub originattopleft()
Dim oPage As CorelDRAW.Page
'Place origin at top left
With ActiveDocument
Set oPage = .ActivePage
.DrawingOriginY = oPage.SizeHeight / 2
End With
End Sub

joan


John H wrote:
> I am using CorelDrawX4 to create and send files to a Laser Engraver.
> In Corel, I always click and drag my 0-0 to be at the upper left corner
> of my page.
> I select my artwork then go to the OBJECTS POSITION (in the toolbar, in
> the upper left part of the screen).
> I type in 0 (zero) for the x position and 0 (zero) for the y position
> and hit ENTER.
> The "center" of my artwork always goes to the 0-0 position.
> Is there a way to have the "upper left corner" of my artwork ALWAYS go
> to the 0-0 position?
> I tried to change this in the "transformations/positions" docker, but it
> does not stay as a default.
> I have attached two screen shots to hopefully aid in describing my question.
>
> Thank you in advance for your help.
>
> John H
>
>
> ------------------------------------------------------------------------
> http://coreldraw.com/forums/p/16772/70871.aspx#70871
>
Top 10 Contributor
Pigeon Forge, TN
Male
TAG - gdgmacros.com

Here...Try this...

 

Sub moveToTopLeft()

Dim s As Shape
Dim sr As ShapeRange
Dim x#, y#, w#, h#
Dim pageHeight#

pageHeight = 11 'set page height

ActiveDocument.ReferencePoint = cdrBottomLeft
Set sr = ActiveLayer.Shapes.All
sr.GetBoundingBox x, y, w, h
sr.SetPosition 0, (0 + pageHeight) - h

End Sub

 

Have fun!

John

Visit me at my GDGMacros website anytime!

Join me on Facebook to stay up to date with GDGMacros, Tips and Tricks for VBA Automation in CorelDraw, Discounts, specials, Free code and macros, and more cool sometimes not so relevant posts!

Page 1 of 1 (6 items) | RSS
© Corel Corporation. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms and Conditions / User Guidelines.