change x-y (0-0)

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

  • John,
     
    After changing it in one file, select Tools | Save Settings as Default. That will change all NEW files you create.
     
     
  • 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://community.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.

  • 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://community.coreldraw.com/forums/p/16772/70871.aspx#70871
    >
  • In reply to joan:

    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