[cdr插件] CorelDraw粗细线插件

CorelDraw粗细线插件
CorelDraw 12.0.0.525英文版为例说明，其它版本操作类似，以下均简称CD：）


做一个VBA制作CD插件的简单教程来看一下流程，抛砖引玉，希望高手们多发点教程。


插件的作用：使选中的曲线一端粗，一端细，粗细可以控制。
==================================================
一、创建  
我们先来创建一个CD工程文件，比较简单，新建一个空的文本文件（如: 新建文本文档.txt），将其名称“新建文本文档”改为“我的第一个CD宏”，扩展名“txt”改为“gms”

如果你的CD12的安装位置是默认的话，你可以将这个GMS文件拷贝放到以下两个位置中的任意一下（否则根据实际位置更改）：

一、CD的DrawGMS目录，即：
“C:Program FilesCorelCorel Graphics 12DrawGMS”

二、当前用户的应用程序数据文件夹（我的是Administrator，根据实际更换），即：
“C:Documents and SettingsAdministratorApplication DataCorelGraphics12User DrawGMS”

这样一种CD工程文件就生成了。

二、编辑和运行
你先通过OFFICE系列的VBA教程熟悉一下VBE编辑器的操作使用。百度一下，网上很多。

如果CD开着的话，重启一下CD，通过［工具］菜单下的命令或直接按Alt+F11启动VBE编辑器.
在左上角的[工程栏]里找到我们刚才建立的工程文档

选中标准模块,在左下方的属性栏里将它的名字(name)改为Module1
选中窗体模块,在左下方的属性栏里将它的名字(name)改为UserForm

双击标准模块,在右侧的代码区输入以下代码:

Sub CXLine()
        UserForm.Show
End Sub
’以上代码就是一个最简单的宏,虽然没什么实际意义.
它的作用就是让名字叫UserForm的窗体显示出来.
其中:
Sub CXLine()
        UserForm.Show
End Sub

代码简单解释一下:
Sub CXLine()
End Sub
这是一个宏过程，其中CXLine是这个过程的名称，也支持中文，后面的括号是放参数用的，没参数的话也要放个空括号。
UserForm.Show
Userform是我们刚在窗体模块中新建的窗体的名字,show是一种方法,从字面意思看是”显示”的意思,整句的作用就是让名字叫UserForm的窗体显示出来.