不死的神预言者 发表于 2024-1-25 20:00:07

gms插件 批量旋转 优化版

这个插件用的人好像比较多，2.0版本的，测试启动会有卡顿
优化了下启动速度和操作界面，删除了一些没必要的。
1.启动能瞬间打开    2.界面改了下，更符合操作习惯。





高版本用，低版本不要下载。

不死的神预言者 发表于 2024-1-26 13:44:06

有坛友说旋转水平这个功能，加上比较好，
原来的代码，旋转后，不是绝对水平的。

这个功能重写了代码，不管任何角度，选中多少数量对象，一键水平！


完美版，收点辛苦费吧！
我的x4只偶尔转换文件用，所以不支持低版本的！x8以上用~
源码没上锁，有需要改x4的，自己研究下



好利伯 发表于 2024-1-25 21:51:06

怎么把旋转至水平删掉了？我以为大数人应该是冲着我这个旋转至水平购买的

jinchao 发表于 2024-1-25 21:30:37

阿不让我评论啊

何先生 发表于 2024-1-25 21:45:13

收藏几个旋转了，我试一下效果

好利伯 发表于 2024-1-25 21:59:55

“1.启动能瞬间打开”，下载学习一下楼主的新思路:lol

gyjijian525 发表于 2024-1-26 10:18:21

这个3.0版本，可以弄个X4吗？目前用X4的人还很多

harry 发表于 2024-1-26 10:28:14

旋转还需要专门做一个插件吗？

很简单的代码就能实现，


Dim sh As Shape, shs As Shapes
    Set shs = ActiveSelection.Shapes
    For Each sh In shs
      sh.Rotate 90 '改这里就是需要的角度，也可以调用文本框数字角度。
    Next sh


希望能帮到你。

不死的神预言者 发表于 2024-1-26 12:06:02

harry 发表于 2024-1-26 10:28
旋转还需要专门做一个插件吗？

很简单的代码就能实现，


感谢源码，旋转是分两种的，一种是选择全部对象，来旋转。常用角度可以做成单个图标。
一种是选择中的每个单个对象，围绕自身中心点来批量旋转，这种用的频率少，启动窗口的会比较实用些。

喜相来 发表于 2024-1-26 16:06:39

小巧快捷方便。
页: [1] 2
查看完整版本: gms插件 批量旋转 优化版