此网站为广告印刷行业从业人员提供CDR排版辅助设计技术及Excel订单管理系统开发。
当前位置:Graphhome > 插件资源CDR/Excel > 正文

饼状图生成GMS插件-可任意拖拽扇区顺序-缓动排序

幸运大转盘第三版CDR版-最新版

演示图片为最新版本的转盘脚本,直接在CDR中,进入转盘修改模式,鼠标点击扇区即可进行排序(两次点击不同扇区,循环不断,Esc键退出)
此版本基本上实现了从文本到饼图的创建,以及轻松对已有饼图(本插件生成)进行修改的目的。
用到了CDR自身的properties属性来存储所有转盘的扇区信息,以及 Shape.IsonShape方法,用来判断某个点是否在shape上
下图演示如何从cdr文档中的文本转化成饼图,以及对饼图进行排序

下图演示如何对已经存在的饼图进行修改和修复


幸运大转盘第二版API版
此版本耗费时间最多
用到了windows API-GDI+在内存中生成饼图,并在VBA控件Image控件中展示生成饼图(此为最难点)
以及如何根据鼠标点击的坐标点来进行饼图扇区的重新排序,算法稍微复杂一点。
此版本为第三版的实现打下了基础

 


幸运大转盘第一版VBA控件版


很多人需要做幸运大转盘,在cdr里手工画,太费时间了,扇区大小调整麻烦,角度转起来麻烦。
以前本人想通过Excel制作好,然后通过graphhome连接插件从excel读取饼状图数据在cdr里面生成。后来一想其实不依赖excel也可以实现这个功能。

如您对博主开发的插件感兴趣,可加入群:19425907,Graphhome集成插件完善后将在群内公布。


本插件cdr各插件通用版,纯VBA代码,不调用任何API,理论上各版本通用,不带缓动效果,拖拽后瞬间完成排序饼状图-幸运大转盘-通用版


如您懂vba想学习更多编程技巧,可下载下面的测试版本:
拖拽缓动效果版,下载地址(目前测试仅支持X4,代码里面的Api函数):饼状图-幸运大转盘插件  密码:a815

关于GMS插件如何安装运行:请将本插件拷贝到您的软件安装目录下\CorelDRAW X4\Draw\GMS,重新启动cdr。
1、X4版本通过菜单-工具-运行宏,找到宏位置:运行SlowlyMoveFunctions.RunSector即可出现此界面。其它版本运行宏位置自行百度。
2、您也可以ALT+F11,找到对应的gms,展开。在模块中找到RunSector,按F5亦可出现此界面。

插件运行界面:

 
使用说明:
1、您可以点击添加一行,来增加扇区;点中列表的项目,上方文本框的信息也会跟着变化,如您需要修改文字,在文本框修改后回车即可。
2、您没有必要刻意去把每个扇区的度数计算出来,您所填写的度数实际上是一个权重系数,最终的扇区度数=360*填写的度数/总度数。你在做饼状图时,数据是多少就直接输入多少,没有必要计算出扇区度数。
3、如有多余的扇区,可以选中该扇区后点击下方删除按钮删除。
4、数据建立后可以按照建立的顺序生成扇区对应的色块,也可以随机打乱顺序生成扇区色块。
5、插件会随机生成扇区颜色,如您不喜欢某个颜色,您可以对着色块点右键修改颜色,该颜色将是最终的扇区颜色。

6、您可以手工拖拽色块来调节扇区顺序,如下图所示。

7、扇区生成是按照顺时针顺序生成。文字摆放方式可以是辐射状,也可以是水平摆放。

8、代码没有加密,您可以在此基础上做出适当的修改:本插件内部由一个窗体+一个模块+两个类模块构成
类模块clstimer主要用来产生timer事件控制缓动。
类模块clsOneTimerControl是用来规定被点击控件的动作,及给模块中的公共参数提供实时数据
本人在开发此插件过程中首次没有使用此自定义控件功能,直接使用listbox来排序,不能进行颜色修改。listbox版本就不放出。

 

版权保护: 本文由Graphhome原创,转载请保留链接: www.graphhome.com/html/18.html

小站主人Graphhome
博主印刷技术专业。熟悉印前技术、CTP制版流程。混迹图文广告行业多年,工作之余为提高工作效率,通过VB语言将coreldraw与Myexcel管理软件集成,搭建了订单管理系统,实现了工作数据一体化管理。站内免费开源地分享了博主作品格辅图攻graphhome软件和部分插件或技术,祝您工作顺利、生活幸福 ̄︶ ̄
  • 文章总数
  • 10122访问次数
  • 建站天数
  • Graphhome排版管理系统CDR

    标签