cdr插件-粘贴到当前视图中
该功能在高版本cdr中的编辑菜单下，作用是将粘贴板中的对象粘贴到文件中当前显示的位置，而不是粘贴到文档中央。在X8中没有找到粘贴到当前视图中的功能，所以写了这个插件，该插件仅有这么一个功能，可以给一个快捷键“Shift + V”，当你复制了一些东西想要在cdr文件中使用时，可以按Shift + V，将复制对象粘贴在正在工作的位置。此插件使用X8制作，功能测试正常，而后在2023中测试正常，其余版本未测试。忘记上图了吧，有图有真相 asong 发表于 2023-9-29 15:34
忘记上图了吧，有图有真相
这个就是一段代码，没有窗体，不能截图，使用起来也没有特效，就是一个简单的小功能。vba比其他的插件优势就在这，可以把插件功能做的像系统功能一样简单易用。 可以自定义快捷键吗？ 4661100 发表于 2023-9-30 21:18
可以自定义快捷键吗？
是的，选项---自定义---命令---宏，就可以找到该项 我一直用的是小精灵的指定粘贴
楼主的复制到视图中也很方便，
:lol，这个不就是AI功能的么？大神有没有能不能写下AI的Ctrt+F（选中对象层上方) AI的Ctrt+B（选中对象层下方) 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 大神帮我看下那里不对，能不能帮我修改下 你的s与ss没有Set，不知道是什么对象。OrigSelection复制再粘贴，那不就是小键盘+的功能吗？
页:
[1]
2