版块 › CorelDRAW专区 › CDR导出jpg和PDF，能不能保存到原路径？

turh123 发表于 2024-6-21 14:58:24

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

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

魔星星 发表于 2024-6-21 15:02:01

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

大神周 发表于 2024-6-21 20:55:26

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

landboy 发表于 2024-6-21 21:20:15

自己写脚本就可以

turh123 发表于 2024-6-22 08:07:44

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

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

icolor 发表于 2024-6-22 08:26:32

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

landboy 发表于 2024-6-22 08:45:45

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

Private Sub Export_JPEG_Click()
    On Error Resume Next
    Dim d As Document
    Set d = ActiveDocument
    Dim sh As Shape, shs As Shapes
    Dim Color As String
    Set shs = ActiveSelection.Shapes
   
    dpi = CInt(ComboBox2.text)
    Select Case ComboBox1.text
   
    Case Is = "灰度"
      Color = cdrGrayscaleImage
    Case Is = "CMYK颜色"
      Color = cdrCMYKColorImage
    Case Is = "RGB颜色"
      Color = cdrRGBColorImage
    Case Is = "黑白"
      Color = cdrBlackAndWhiteImage
    End Select

    '// 导出图片精度设置，设置颜色模式
    Dim opt As New StructExportOptions
    opt.ResolutionX = dpi
    opt.ResolutionY = dpi
    opt.ImageType = Color
   
    Dim path$: path = CorelScriptTools.GetFolder    '// 这里的选择路径，改成 获得文件路径应该就可以了
    '// 批处理导出图片
    For Each sh In shs
      ActiveDocument.ClearSelection
      sh.CreateSelection

      ' 导出图片 JPEG格式
      f = path & "\" & d.FileName & "_ID" & sh.StaticID & ".jpg"
      d.Export f, cdrJPEG, cdrSelection, opt
    Next sh
End Sub

红动中国 发表于 2024-6-22 09:14:26

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

landboy 发表于 2024-6-22 09:23:07

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

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

查看完整版本: CDR导出jpg和PDF，能不能保存到原路径？