CDR 多个物件替换多个

jialan75 · 发表于 2016-7-9 21:59:24

本帖最后由 jialan75 于 2016-7-9 22:09 编辑

H用的函数应该是这个
Dim doc As Document, retval As Long, shift As Long

Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double

Set doc = ActiveDocument

doc.Unit = cdrCentimeter

retval = doc.GetUserArea(x1, y1, x2, y2, shift, 10, True, cdrCursorExtPick)

ActivePage.SelectShapesFromRectangle x1, y1, x2, y2, False
利用这个可以实现，
神乎其神的一键群组。

younwolf · 发表于 2016-7-12 11:13:23

免费版的魔镜就有这功能

yhsza · 发表于 2016-7-12 11:21:52

感觉越来越智能了，现在的软件

1688 · 发表于 2016-7-14 20:55:03

jialan75 发表于 2016-7-9 21:59
H用的函数应该是这个
Dim doc As Document, retval As Long, shift As Long

这个能用gms做成宏吗，，感觉很能实现好多功能

存心 · 发表于 2016-7-14 22:40:43

http://52cnp.com/thread-326-1-1.html这里有源码啊，学习一下，就可以做到了

jozeyin · 发表于 2016-7-15 10:56:41

我就看着学习学习。。

coolwe99 · 发表于 2016-7-16 10:27:50

动画上看功能挺好的楼主应该是弄好了吧

no543216789 · 发表于 2016-10-29 06:55:11

应该不是高手不也下手，应该是懒得写，我虽然有段时间没写了，但是思路应该不难，对两个群组的子对象进行操作

yql0354 · 发表于 2017-1-20 16:29:44

高手还是有的，就是出手不出手的问题。

ljy250 · 发表于 2017-2-3 09:46:59

不是随机的
是从左中到左上
然后就是从上到下

CDR 多个物件替换多个

注意注意注意：必看 /1