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.
Is anyone aware of one for CorelDraw X5?
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
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.
- LBExport.ai this is the AI file that the Corel macro creates and then LB imports.
- 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.
Dim answer As Integer
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
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
This topic was automatically closed 30 days after the last reply. New replies are no longer allowed.