版块 › CorelDRAW专区 › cdr插件-粘贴到当前视图中

jiangyu 发表于 2023-9-29 15:31:11

cdr插件-粘贴到当前视图中

该功能在高版本cdr中的编辑菜单下，作用是将粘贴板中的对象粘贴到文件中当前显示的位置，而不是粘贴到文档中央。在X8中没有找到粘贴到当前视图中的功能，所以写了这个插件，该插件仅有这么一个功能，可以给一个快捷键“Shift + V”，当你复制了一些东西想要在cdr文件中使用时，可以按Shift + V，将复制对象粘贴在正在工作的位置。此插件使用X8制作，功能测试正常，而后在2023中测试正常，其余版本未测试。

asong 发表于 2023-9-29 15:34:33

忘记上图了吧，有图有真相

jiangyu 发表于 2023-9-29 16:13:09

asong 发表于 2023-9-29 15:34
忘记上图了吧，有图有真相

这个就是一段代码，没有窗体，不能截图，使用起来也没有特效，就是一个简单的小功能。vba比其他的插件优势就在这，可以把插件功能做的像系统功能一样简单易用。

4661100 发表于 2023-9-30 21:18:01

可以自定义快捷键吗？

jiangyu 发表于 2023-10-1 10:04:45

4661100 发表于 2023-9-30 21:18
可以自定义快捷键吗？

是的，选项---自定义---命令---宏，就可以找到该项

何先生 发表于 2023-10-1 12:42:24

我一直用的是小精灵的指定粘贴

何先生 发表于 2023-10-1 18:17:31

楼主的复制到视图中也很方便，

A-Ming 发表于 2023-10-10 13:47:32

:lol，这个不就是AI功能的么？大神有没有能不能写下AI的Ctrt+F（选中对象层上方)   AI的Ctrt+B（选中对象层下方)

A-Ming 发表于 2023-10-12 18:25:42

Sub 粘贴到选择对象上面()
   ActiveDocument.Unit = cdrMillimeter
Dim sh As Shape, s As Shape, ss As Shape
    Dim OrigSelection As ShapeRange
x = ActiveSelection.PositionX
y = ActiveSelection.PositionY
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.Copy
    ActiveLayer.Paste
    Dim Paste1 As ShapeRange
    Set s.CenterX = ss.CenterX
          s.CenterY = ss.CenterY
End Sub       大神帮我看下那里不对，能不能帮我修改下

jiangyu 发表于 2023-10-12 20:35:24

你的s与ss没有Set，不知道是什么对象。OrigSelection复制再粘贴，那不就是小键盘+的功能吗？

查看完整版本: cdr插件-粘贴到当前视图中