CorelDRAW剪贴板复制到Adobe Illustrator粘贴使用 技术分享
原理介绍,请观看这个演示视频
https://www.bilibili.com/video/BV1WZ421473D
技术干货分享, 演示程序 完全是 GPT写,还是比较省事的
补充内容 (2024-5-15 09:26):
下载CorelDRAW_savePDFtoClip_VBA源码.zip里面有 pdf2clip.exe和 savePDFtoClip.bas
你会用 GMS,只要新建一个 GMS 导入这个 模块 savePDFtoClip.bas就可以
CorelDRAW_savePDFtoClip_VBA源码代码很简单
主要是要用到 一个pdf 写内存的小工具 金币下载也很便宜
Attribute VB_Name = "savePDFtoClip"
Public Function CdrCopyToAI()
On Error GoTo ErrorHandler
sTempFilePDF = GetTempFile("pdf")
With ActiveDocument.PDFSettings
.BitmapCompression = pdfLZW
.ColorMode = pdfCMYK
.EmbedBaseFonts = False
.EmbedFonts = False
.FileInformation = False
.Hyperlinks = False
.IncludeBleed = False
.Linearize = True
.MaintainOPILinks = True
.Overprints = True
.pdfVersion = 6
.PublishRange = pdfSelection
.RegistrationMarks = False
.SpotColors = True
.Startup = pdfPageOnly
.SubsetFonts = False
.TextAsCurves = bTextToCurves
.Thumbnails = False
End With
ActiveDocument.PublishToPDF sTempFilePDF
'// 调用 pdf2clip.exe 把PDF文件加载到剪贴板,命令行按实际文件夹填写路径
cmd_line = "C:\TSP\pdf2clip.exe" & sTempFilePDF
ret = Shell(cmd_line, vbHide)
ErrorHandler:
End Function
Private Function GetTempFile(ByVal sExtension As String) As String
GetTempFile = CorelScriptTools.GetTempFolder() & "CDR2AI" & "." & sExtension
End Function
Sub CorelDRAW_CopyPDF()
savePDFtoClip.CdrCopyToAI
End Sub
等下把这个工具 给老婆大人使用,她肯定很喜欢
这个工具基本可以算独立的工具了,只要在 AI 选择物件,复制一下。
点击这个工具,就会保存一个 单独 pdf文件,工具简单,但是用起来效果不错
CDR与AI之前再也不用另存来另存去了,好麻烦,终于简单了 这个 可以互通挺实用的 看视频简单的还行,如果是复杂的文件有图片有效果啥的估计有难度吧 juliman420 发表于 2024-5-14 18:07
看视频简单的还行,如果是复杂的文件有图片有效果啥的估计有难度吧
一样,通过 PDF 中转,使用也是这样的,这样最安全 我测试不成功,1、cdr发布pdf到桌面,2、打开你的savepdf.exe文件,3、打开ai 新建画布粘帖不了 开心就好 发表于 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新建画布粘帖也是空的
页:
[1]
2