CorelDRAW剪贴板复制到Adobe Illustrator粘贴使用 技术分享

landboy

原理介绍，请观看这个演示视频
https://www.bilibili.com/video/BV1WZ421473D

演示程序.zip (56.09 KB, 售价: 5 印币)

2024-5-14 15:27 上传

点击文件名下载附件

技术干货分享， 演示程序 完全是 GPT写，还是比较省事的



补充内容 (2024-5-15 09:26):
下载  CorelDRAW_savePDFtoClip_VBA源码.zip  里面有 pdf2clip.exe  和   savePDFtoClip.bas
你会用 GMS，只要新建一个 GMS 导入这个 模块 savePDFtoClip.bas就可以

landboy

CorelDRAW_savePDFtoClip_VBA源码.zip (21.45 KB, 售价: 18 印币)

2024-5-15 09:18 上传

点击文件名下载附件

CorelDRAW_savePDFtoClip_VBA源码  代码很简单
主要是要用到 一个pdf 写内存的小工具 金币下载也很便宜

1. Attribute VB_Name = "savePDFtoClip"
   
2. Public Function CdrCopyToAI()
   
3.   On Error GoTo ErrorHandler
   
4.   sTempFilePDF = GetTempFile("pdf")
   
5.   
   
6.   With ActiveDocument.PDFSettings
   
7.     .BitmapCompression = pdfLZW
   
8.     .ColorMode = pdfCMYK
   
9.     .EmbedBaseFonts = False
   
10.     .EmbedFonts = False
    
11.     .FileInformation = False
    
12.     .Hyperlinks = False
    
13.     .IncludeBleed = False
    
14.     .Linearize = True
    
15.     .MaintainOPILinks = True
    
16.     .Overprints = True
    
17.     .pdfVersion = 6
    
18.     .PublishRange = pdfSelection
    
19.     .RegistrationMarks = False
    
20.     .SpotColors = True
    
21.     .Startup = pdfPageOnly
    
22.     .SubsetFonts = False
    
23.     .TextAsCurves = bTextToCurves
    
24.     .Thumbnails = False
    
25.   End With
    
26.   
    
27.   ActiveDocument.PublishToPDF sTempFilePDF
    
28.   
    
29.   '// 调用 pdf2clip.exe 把PDF文件加载到剪贴板,  命令行按实际文件夹填写路径
    
30.   
    
31.   cmd_line = "C:\TSP\pdf2clip.exe  " & sTempFilePDF
    
32.   ret = Shell(cmd_line, vbHide)
    
33.   
    
34. ErrorHandler:
    
35. End Function
    
36. 
    
37. 
    
38. Private Function GetTempFile(ByVal sExtension As String) As String
    
39.     GetTempFile = CorelScriptTools.GetTempFolder() & "CDR2AI" & "." & sExtension
    
40. End Function
    
41. 
    
42. 
    
43. Sub CorelDRAW_CopyPDF()
    
44.   savePDFtoClip.CdrCopyToAI
    
45. End Sub
    

复制代码

landboy

等下把这个工具 给老婆大人使用，她肯定很喜欢
这个工具基本可以算独立的工具了，只要在 AI 选择物件，复制一下。
点击这个工具，就会保存一个 单独 pdf文件，工具简单，但是用起来效果不错
savepdf.zip (42.17 KB, 售价: 18 印币)

2024-5-14 16:04 上传

点击文件名下载附件

红动中国

CDR与AI之前再也不用另存来另存去了，好麻烦，终于简单了

zhen88666

这个 可以互通挺实用的

juliman420

看视频简单的还行，如果是复杂的文件有图片有效果啥的估计有难度吧

landboy

juliman420 发表于 2024-5-14 18:07
看视频简单的还行，如果是复杂的文件有图片有效果啥的估计有难度吧

一样，通过 PDF 中转，使用也是这样的，这样最安全

开心就好

我测试不成功，1、cdr发布pdf到桌面，2、打开你的savepdf.exe文件，3、打开ai 新建画布粘帖不了

landboy

开心就好 发表于 2024-5-15 08:00
我测试不成功，1、cdr发布pdf到桌面，2、打开你的savepdf.exe文件，3、打开ai 新建画布粘帖不了 ...

昨晚改写了一个，可以支持 指定文件名。
开始一分享单独的程序里写死文件名的

【CorelDRAW VBA 插件教程:  CDR 剪贴板复制到Adobe Illustrator粘贴使用】 https://www.bilibili.com/video/BV1KD421P7FH

开心就好

landboy 发表于 2024-5-15 08:15
昨晚改写了一个，可以支持 指定文件名。
开始一分享单独的程序里写死文件名的

cdr导出pdf，文件名称为file，在打开pdf写到剪切板，最后再到ai新建画布粘帖也是空的