CDR导出jpg和PDF，能不能保存到原路径？

turh123

AI可以将导出的jpg和PDF，默认都是原路径保存的。CDR为什么不是原路返回保存的？有没有插件能让CDR导出的jpg和PDF，保存到原路径？

魔星星

YG 的导图功能 文件路径  是可以的保存的

大神周

这个问题应该也问题不大吧，选择一下就好了啊

landboy

自己写脚本就可以

turh123

landboy 发表于 2024-6-21 21:20
自己写脚本就可以

大佬出手写个脚本吧，我不懂CDR脚本怎么写

icolor

感觉不碍事啊，导出到桌面，再移到源文件文件夹

landboy

turh123 发表于 2024-6-22 08:07
大佬出手写个脚本吧，我不懂CDR脚本怎么写

1. Private Sub Export_JPEG_Click()
   
2.     On Error Resume Next
   
3.     Dim d As Document
   
4.     Set d = ActiveDocument
   
5.     Dim sh As Shape, shs As Shapes
   
6.     Dim Color As String
   
7.     Set shs = ActiveSelection.Shapes
   
8.    
   
9.     dpi = CInt(ComboBox2.text)
   
10.     Select Case ComboBox1.text
    
11.    
    
12.     Case Is = "灰度"
    
13.       Color = cdrGrayscaleImage
    
14.     Case Is = "CMYK颜色"
    
15.       Color = cdrCMYKColorImage
    
16.     Case Is = "RGB颜色"
    
17.       Color = cdrRGBColorImage
    
18.     Case Is = "黑白"
    
19.       Color = cdrBlackAndWhiteImage
    
20.     End Select
    
21. 
    
22.     '// 导出图片精度设置，设置颜色模式
    
23.     Dim opt As New StructExportOptions
    
24.     opt.ResolutionX = dpi
    
25.     opt.ResolutionY = dpi
    
26.     opt.ImageType = Color
    
27.    
    
28.     Dim path$: path = CorelScriptTools.GetFolder    '// 这里的选择路径，改成 获得文件路径应该就可以了
    
29.     '// 批处理导出图片
    
30.     For Each sh In shs
    
31.         ActiveDocument.ClearSelection
    
32.         sh.CreateSelection
    
33. 
    
34.         ' 导出图片 JPEG格式
    
35.         f = path & "" & d.FileName & "_ID" & sh.StaticID & ".jpg"
    
36.         d.Export f, cdrJPEG, cdrSelection, opt
    
37.     Next sh
    
38. End Sub

复制代码

红动中国

他好像默认是保存在第一次储存的路径那里，点一下选择一下就可以了，不用完全这么工具化吧。。。。

landboy

批量转图和批量导出图片插件 GMS 插件

https://www.52cnp.com/thread-22019-1-1.html