corelDraw export to lightburn error

Hi, I did all the steps in the pdf file to export CorelDRAW to Lightburn, but when I use it, I get the following error, what is the solution?

You are using CorelDRAW 2020, but the PDF doc that ships with LB is for 2018.

Here is a PDF I created that works for CorelDRAW 2019. I am pretty sure it also works with 2020.

1 Like

Is anyone aware of one for CorelDraw X5?

Thanks

I saw your tutorial file but I did the same steps before, the error still persists

The steps in the PDF that LB provides do not work in CorelDraw 2019, which is what I have.

Yes, they are a little different, but I did the steps right

Edit: I rebooted my PC, and reinstalled LB 1.0, and it worked fine.


1 Like

If you select the LB icon(highlighted in green), do you also get the same error message? See screenshot below

Yes, it is

There are only 2 files that it would be looking for.

  1. LBExport.ai this is the AI file that the Corel macro creates and then LB imports.
  2. ExportToLightBurn.gms this is the macro.

Also, make sure that you have the file SendUDP.exe in the correct folder. Code for macro is below.

Sub LightBurn()
Dim answer As Integer
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.CreateSelection
Dim expopt As StructExportOptions
Set expopt = CreateStructExportOptions
expopt.UseColorProfile = True
Dim expflt As ExportFilter

Dim outputFile As String
outputFile = "C:" & Environ("HOMEPATH") & "\LBExport.ai"
If Len(Dir$(outputFile)) > 0 Then
    Kill (outputFile)
End If

'Is anything selected?
answer = vbYes  ' Assume success

If ActiveSelectionRange.Count = 0 Then
    'Export everything if there's no selection
    Set expflt = ActiveDocument.ExportEx(outputFile, cdrAI, cdrAllPages, expopt)
Else
    Set expflt = ActiveDocument.ExportEx(outputFile, cdrAI, cdrSelection, expopt)
End If

If answer = vbYes Then
    With expflt
        .Version = 10 ' FilterAILib.aiVersionCS6
        .TextAsCurves = True
        .PreserveTransparency = True
        .ConvertSpotColors = False
        .SimulateOutlines = False
        .SimulateFills = False
        .IncludePlacedImages = True
        .IncludePreview = True
        .EmbedColorProfile = False
        .Finish
    End With

    Dim appLocation As String
    appLocation = Environ("ProgramFiles") & "\LightBurn\SendUDP.exe "
    If Len(Dir$(appLocation)) = 0 Then
        appLocation = "C:\Program Files\LightBurn\SendUDP.exe "
    End If

    Call Shell(appLocation & """" & outputFile & """", vbHide)
End If

End Sub

This topic was automatically closed 30 days after the last reply. New replies are no longer allowed.