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

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

该功能在高版本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

我一直用的是小精灵的指定粘贴 cdr插件-粘贴到当前视图中{tag}(1)

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

楼主的复制到视图中也很方便， cdr插件-粘贴到当前视图中{tag}(2)

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

，这个不就是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插件-粘贴到当前视图中

评分

华印网相关搜索

相关帖子

注意注意注意：必看 /1