BreadCrumbs: CorelDraw

CorelDraw

From Luke Jackson

(Difference between revisions)

Current revision

Open .EPS Files with CorelDraw11

For some reason there is a bug in CorelDraw11 which prohibits it from opening .EPS files. Instead in inserts a gray box representing the bounding box of the image with the file information. I have found a workaround for this issue and it is explained below.

Import PostScript Settings

Open CorelDraw11 and create a blank document.
From the Tools sub-menu of the menu bar select Customization.
You should now see the Options window appear. On the left side of this window there is a tree at the bottom of the tree is the Global element, Click on it and expand it.
Click on Filters and on the right of the options window should appear the Filters file association options.
What we want to do is tell Corel to use a different filter than the traditional EPS filter to open EPS files. So on the far right you should see a list box with all of the currently configured filters and their associated files. Locate EPS - Encapsulated PostScript and click on it once to highlight it. Now it gets a tad complex because we still want to be able to export .EPS files but we don't want to use the .EPS filter to import them. So what we need to do is give it less of a priority than the PostScript filter. We can do this by using the Move Down button to move it below the PS, PRN, EPS - PostScript filter.
Once this is completed EPS files will fall back onto the PostScript filter. This is OK because an EPS is still PostScript at the core and we will only have to ensure some simple options for the filter at time of open. Click OK to save your changes and close the Options window.
Close the existing blank document and locate a valid .EPS we can use to test.
There are some more bugs / anomalies with CorelDraw11 when it comes to file names. So the only way I am able to have it keep my file name is by dragging the desired file(s) into the CorelDraw workspace. (Please ensure no documents are open as it will then insert the files into the open document rather than creating a temp document with the file name for each file)
Once a file is dropped onto the workspace you will be prompted with the Import PostScript dialog box. Simply configure the following settings:

- VM Size: 8.0 MB
- Import text as Curves
- Report PostScript errors

Click OK to dismiss the box and open the .EPS file. You should now see curves and be able to manipulate the vector graphic.

I should mention that I have seen instances where files open blank, but I had not found any file which did not open to be a properly formated EPS file. I usually use an application like Adobe Illustrator to confirm that the file is not corrupted. I.E. no bitmap images, mesh objects, redundant paths. Once I verify this I re-export it as an .EPS and then in order for CorelDraw11 to open the file it needs to be converted by Goverts GoBatchGS. This has been successful everytime. Hope this is of help to someone.

 <pre>
-Sub AutoCenterObject()
+Sub AutoSizePage()
-    ActivePage.Shapes.All.Group
+    On Error Resume Next
-    ActivePage.Shapes(1).CreateSelection
+    ActiveDocument.BeginCommandGroup "AutoSizePage"
-    Dim width As Double, height As Double
+    Dim CurRange As ShapeRange, Width As Double, Height As Double, mSpace As Double
+        'Margin size.
+    mSpace = 0.05
+        'Get shape(s) range.
+    Set CurRange = ActivePage.Shapes.All
+    If CurRange.count > 0 Then
         ActiveDocument.Unit = cdrInch
-        ' Add 0.05in margin
+            'Get range size + margin.
-        width = ActiveShape.SizeWidth + 0.05
+        CurRange.GetSize Width, Height
-        height = ActiveShape.SizeHeight + 0.05
+            'Adjust current page size.
-    ' Set current page size
+        ActivePage.SetSize Width + mSpace, Height + mSpace
-    ActivePage.SetSize width, height
+            'Check application version
-    ' Set default document page size
+        If Application.VersionMajor > 11 Then
-    ActiveDocument.Pages(0).SetSize width, height
+                'Align range to center of page.
-    CorelScript.AlignToCenterOfPage 3, 3
+            CurRange.AlignRangeToPage cdrAlignHCenter + cdrAlignVCenter
-    ActivePage.Shapes.All.UngroupAll
+        Else
+                'Bug fix set default page size for export
+            ActiveDocument.Pages(0).SetSize Width + mSpace, Height + mSpace
+                'Set range postion to center since no AlignRangeToPage in 11
+            CurRange.SetPosition (mSpace / 2), Height + (mSpace / 2)
+        End If
+    Else
+        MsgBox "Please select 1 or more object(s).", vbExclamation, "AutoSizePage"
+    End If
     ActiveDocument.ClearSelection
+    ActiveDocument.EndCommandGroup
 End Sub
 </pre>
 </pre>
-=== Unlock And Delete Locked Objects ===
+=== Create Text ===
 <pre>
-Sub KillnWeld()
+Sub IPageNumber()
     On Error Resume Next
-    ActiveDocument.BeginCommandGroup "KillnWeld"
+    ActiveDocument.BeginCommandGroup "IPageNumber"
-    Dim sr As New ShapeRange
+    Nesting.IPageNumberEx
-    'Align
-    'Nesting.AutoAnSPage
-    'Make Clean
-    Cutting.KillnClean
-    'Check all the shapes on the current Page
-    KillnWeldExecute ActivePage.Shapes, sr
-    'Report back what was found from search
-    If sr.count > 0 Then
-        MsgBox "Welded " & sr.count & " shapes! (Computer 1 - Dave 0)", , "KillnWeld"
-    Else
-        MsgBox "No Shapes Found.", , "KillnWeld"
-    End If
-    ActiveDocument.ClearSelection
     ActiveDocument.EndCommandGroup
 End Sub
-Private Sub KillnWeldExecute(ss As Shapes, sr As ShapeRange)
+Private Sub IPageNumberEx(Optional t_pages As Integer = 0)
-    Dim s As Shape, cFill As New Color
+    Dim p_name, o_name As String, p_text As String, s_text As String, c_text As String
+    o_name = ActivePage.Name
+        'Get page number from page name.
+    p_name = Split(o_name, " ", -1, vbTextCompare)
+        'Set prefix and suffix
+    p_text = "PG-"
+    s_text = "-of-"
-    For Each s In ss
+    If o_name = "Page 1" Then
-            'If shape is locked unlock it.
+        If t_pages > 0 Then
-        If s.Locked = True Then
+                'Assemble as single string.
-            MsgBox "Please cleanup shapes first!", , "KillnWeldExecute"
+            c_text = p_text & p_name(1) & s_text & t_pages
-            Exit Sub
+            Nesting.cTextShape c_text, "Arial", 50, cdrInch
-        ElseIf s.Type = cdrGroupShape Then
-                'Null group name
-            s.Name = ""
-                'If a group is found loop all shapes in the group
-            KillnWeldExecute s.Shapes, sr
         Else
-                'If shape is text and has fill weld it.
+            frmIPageNumber.Show
-            If s.Type = cdrTextShape And s.Fill.Type <> cdrNoFill Then
-                Set s = s.Weld(s, False, False)
-                sr.Add s
-            End If
         End If
-    Next s
-End Sub
-</pre>
-=== Create Text ===
-<pre>
-Sub Start()
-    If ActivePage.Name = "Page 1" Then
-        frmIPageNumber.Show
     Else
-        ' Create Page Number Text Shape
+            'Assemble as single string.
-        Dim p_text As Shape
+        c_text = p_text & p_name(1)
-        Dim c_page As String
+        Nesting.cTextShape c_text, "Arial", 50, cdrInch
-        ActiveDocument.Unit = cdrInch
-        c_page = ActivePage.Name
-        Set p_text = ActiveLayer.CreateArtisticText(16, 21, c_page, cdrEnglishUS, cdrCharSetDefault, Arial, 40)
     End If
 End Sub
-Private Sub okPages_Click()
+Private Sub btOK_Click()
-    If IsNumeric(t_pages.Value) And t_pages.Value > 1 Then
+    If IsNumeric(txtPages.Value) And txtPages.Value > 0 And txtPages.Value < 32768 Then
-        IPageNumber2
+        IPageNumberEx txtPages.Value
     Else
-        MsgBox "You messed me up!", vbOKOnly, "Something is amuck!"
+        MsgBox "Please enter a number greater than 0 and less than 32768.", , "IPageNumber"
     End If
     Unload Me
 End Sub
-Private Sub IPageNumber2()
+Private Sub btCancel_Click()
-    ' Create Page Number Text
+    Unload Me
-    Dim p_text As Shape
+End Sub
-    Dim c_page As String
-    ActiveDocument.Unit = cdrInch
+Private Sub cTextShape(s_text As String, s_font As String, s_size As Byte, d_unit As cdrUnit)
-    c_page = "Page 1 of " + t_pages.Value
+        'Create text shape with s_text.
-    Set p_text = ActiveLayer.CreateArtisticText(16, 21, c_page, cdrEnglishUS, cdrCharSetDefault, Arial, 40)
+    Dim sh As Shape
+    ActiveDocument.Unit = d_unit
+    c_text = Trim(s_text)
+    'MsgBox c_text
+    Set sh = ActiveLayer.CreateArtisticText(1, 1, c_text, cdrEnglishUS, cdrCharSetDefault, s_font, s_size)
+    'Nesting.GetClick
 End Sub
 </pre>
     On Error Resume Next
     ActiveDocument.BeginCommandGroup "AutoAnSPage"
-    Dim CurSelection As ShapeRange
+    Dim doc As Document
+    Dim ss As ShapeRange
+    Dim leftMargin As Integer
+    Dim topMargin As Integer
+    Set doc = ActiveDocument
+    doc.Unit = cdrMillimeter
+    'Set Margin
+    leftMargin = 5
+    topMargin = 15
-    Set CurSelection = ActiveSelectionRange
+    Set ss = doc.ActivePage.Shapes.All
-    If CurSelection.count > 0 Then
+    If ss.count > 0 Then
-        'Align and Space Selected Objects
-        CurSelection.AlignToPage cdrAlignLeft + cdrAlignTop, cdrTextAlignBoundingBox
-        CurSelection.Move 0.2, -0.2
-        'If priority text exists make it the first shape, convert it to curves, and select it.
+        If ss.SizeWidth > ss.SizeHeight Then
-        If CurSelection.Shapes.First.Type = cdrGroupShape Then CurSelection.Ungroup
+            'Force Portrit
+            ss.Rotate 270
-        If CurSelection.Shapes.First.Type = cdrTextShape Then
-            CurSelection.Shapes.First.ConvertToCurves
-            CurSelection.Shapes.First.CreateSelection
-        Else
-            ActiveDocument.ClearSelection
         End If
+        'Align Foil to Workspace
+        ss.AlignRangeToPoint cdrAlignTop + cdrAlignLeft, (ActivePage.LeftX + leftMargin), (ActivePage.TopY - topMargin)
     Else
-        MsgBox "Please select 1 or more object(s).", , "AutoAnSPage"
+        MsgBox "Please select 1 or more object(s).", vbExclamation, "AutoAnSPage"
     End If
+    ActiveDocument.ClearSelection
     ActiveDocument.EndCommandGroup
+End Sub
+</pre>
+=== AutoAnSPageNoRotate ===
+<pre>
+Sub AutoAnSPageNoRotate()
+    On Error Resume Next
+    ActiveDocument.BeginCommandGroup "AutoAnSPageNoRotate"
+    Dim doc As Document
+    Dim ss As ShapeRange
+    Dim wb As ShapeRange
+    Dim leftMargin As Integer
+    Dim topMargin As Integer
+    Set doc = ActiveDocument
+    doc.Unit = cdrMillimeter
+    'Set Margin
+    leftMargin = 5
+    topMargin = 5
+    Set ss = doc.ActivePage.Shapes.All
+    Set wb = doc.ActivePage.FindShapes(Name:="WeedBorder")
+    wb.Delete
+    If ss.count > 0 Then
+        'If ss.SizeWidth > ss.SizeHeight Then
+            'Force Portrit
+            ss.Rotate 270
+        'End If
+        'Align Foil to Workspace
+        ss.AlignRangeToPoint cdrAlignTop + cdrAlignLeft, (ActivePage.LeftX + leftMargin), (ActivePage.TopY - topMargin)
+        Nesting.WeedingBoardHeader
+    Else
+        MsgBox "Please select 1 or more object(s).", vbExclamation, "AutoAnSPageNoRotate"
+    End If
+    ActiveDocument.ClearSelection
+    ActiveDocument.EndCommandGroup
+End Sub
+</pre>
+=== WeedingBoardHeader ===
+<pre>
+Sub WeedingBoardHeader()
+    On Error Resume Next
+    ActiveDocument.BeginCommandGroup "WeedingBoardHeader"
+    Dim doc As Document
+    Dim ss As ShapeRange
+    Dim wb As ShapeRange
+    Dim leftMargin As Integer
+    Dim topMargin As Integer
+    Set doc = ActiveDocument
+    doc.Unit = cdrMillimeter
+    'Set Margin
+    leftMargin = 10
+    topMargin = 0
+    Set ss = doc.ActivePage.Shapes.All
+    Set wb = doc.ActivePage.FindShapes(Name:="WeedBorder")
+    If wb.count = 0 Then
+        Dim s1 As Shape
+        Set s1 = ActiveLayer.CreateLineSegment(5, 0, 450, 0)
+        s1.Name = "WeedBorder"
+        s1.Fill.ApplyNoFill
+        s1.Outline.SetProperties 0.003, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=45#
+        wb.Add s1
+        wb.AlignRangeToPoint cdrAlignTop + cdrAlignLeft, (ActivePage.LeftX + leftMargin), (ActivePage.TopY - topMargin)
+        'This is where we flip the designs to make space for pull board
+        ss.Add s1
+        ss.Rotate 180
+    Else
+        MsgBox "Weeding Border Already Exists.", vbExclamation, "AutoAnSPage"
+    End If
+    ActiveDocument.ClearSelection
+    ActiveDocument.EndCommandGroup
+End Sub
+</pre>
+=== AutoAnSPageNoRotate ===
+<pre>
+Sub AutoAnSPageNoRotate()
+    On Error Resume Next
+    ActiveDocument.BeginCommandGroup "AutoAnSPageNoRotate"
+    Dim doc As Document
+    Dim ss As ShapeRange
+    Dim wb As ShapeRange
+    Dim leftMargin As Integer
+    Dim topMargin As Integer
+    Set doc = ActiveDocument
+    doc.Unit = cdrMillimeter
+    'Set Margin
+    leftMargin = 5
+    topMargin = 35
+    Set ss = doc.ActivePage.Shapes.All
+    Set wb = doc.ActivePage.FindShapes(Name:="WeedBorder")
+    wb.Delete
+    Nesting.WeedingBoardHeader
+    If ss.count > 0 Then
+        'If ss.SizeWidth > ss.SizeHeight Then
+            'Force Portrit
+            ss.Rotate 270
+        'End If
+        'Align Foil to Workspace
+        ss.AlignRangeToPoint cdrAlignTop + cdrAlignLeft, (ActivePage.LeftX + leftMargin), (ActivePage.TopY - topMargin)
+    Else
+        MsgBox "Please select 1 or more object(s).", vbExclamation, "AutoAnSPageNoRotate"
+    End If
+    ActiveDocument.ClearSelection
+    ActiveDocument.EndCommandGroup
+End Sub
+</pre>
+=== Slightly adjust color of shapes ===
+<pre>
+Private Sub ColorNudge()
+Dim cFill As New Color
+    cFill.CopyAssign s.Fill.UniformColor
+    cFill.ConvertToCMYK
+    cFill.CMYKBlack = cFill.CMYKBlack - 5
+    s.Fill.UniformColor = cFill
 End Sub
 </pre>
     Next s
 End Sub
+</pre>
+= Registry Settings =
+== Default Page ==
+<pre>
+[HKEY_CURRENT_USER\Software\Corel\CorelDraw\13.0\CorelDRAW\Application Preferences\Page Setup Settings]
+"PaperSize"="4600000,5600000"
+"PaperSizeType"="0"
+"PaperOrientation"="0"
+"PageLayout"="1"
+"FacingPages"="0"
+"LeftPageFirst"="0"
+"PageBorderVisible"="1"
+"PrintAndExportPageBackground"="1"
+"Bleed"="0"
+"BleedVisible"="0"
+[HKEY_CURRENT_USER\Software\Corel\CorelDraw\13.0\CorelDRAW\Application Preferences\Ruler and Grid Settings]
+"DrawingOrigin"="-2300000,-2800000"
+"XGridFreq"="4.000000"
+"YGridFreq"="4.000000"
+"WorldPageUnits"="5"
+"WorldScale"="1.000000"
+"XRulerUnits"="5"
+"YRulerUnits"="5"
+"UseImperialTicksPerInch"="0"
+"MinorTick"="0"
+"HPixelResolution"="11811024"
+"VPixelResolution"="11811024"
+"ShowFraction"="1"
+"GridShowAsLines"="1"
+"GridUseFrequency"="1"
+"SMHPixelResolution"="11811024"
+"SMVPixelResolution"="11811024"
+</pre>
+== Disable Welcome Screen ==
+'''Doesn't Work!! Yet!!'''
+<pre>
+[HKEY_CURRENT_USER\Software\Corel\CorelDraw\13.0\CorelDRAW\Application Preferences\Startup]
+"ShowHintsOnStartup"="0"
 </pre>

CorelDraw

From Luke Jackson

Current revision

Contents

Open .EPS Files with CorelDraw11

FAQ

Why won't my curves weld properly after I converted them from outlines?

Macros

Installing

Examples

Create Measurement Shapes

Convert Outlines to Objects

Center Shapes and Crop Document

Convert to Curves, Ungroup All, Mirror, Set Outline Width & Color, Remove Fill

Create Text

AutoAnSPage

AutoAnSPageNoRotate

WeedingBoardHeader

AutoAnSPageNoRotate

Slightly adjust color of shapes

QRotate

Find Shapes Base

Registry Settings

Default Page

Disable Welcome Screen

See Also

Tags

Sources

Views

Personal tools

Navigation

Search

Toolbox