CorelDRAWX4的VBA插件开发(十二)新建出血参考线

我们在做设计文件的时候,经常需要考虑好参考线的位置,也就是平时所说的出血,这个也算是比较重要,一般来说内容都要放在安全线以内,所以这里就单独拿出来讲一下,如何一键建立参考线.

接前面的内容往下讲,若有不明白可以从第一篇开始看

打开tool文件创建四周加参考线代码

Sub guideangle(actnumber As Shape, cardblood As Integer)'对象x加出血yWith actnumberSet s1 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, .TopY - cardblood, 0#)Set s1 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, .BottomY + cardblood, 0#)Set s1 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(.LeftX + cardblood, 0, 90#)Set s1 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(.RightX - cardblood, 0, 90#)End WithEnd Sub

这样子一个等待使用的加出血的工具就做好了,我们随时只需要调用就好了.

调用

把之前的代码再作修改

Sub 第一个插件()tool.changeUnittool.guideangle CorelDRAW.ActiveShape, 5
End Sub

我们可以看到这样子四边都各加上一根距边5毫米的参考线

代码释义

guideangle 功能名称,随意命名,我是取的英文意思导线
actnumber As Shape actnumber是变量名称,可随意更改, Shape是一个类型,代表一个形状的类,是要往功能内部传进去的第一个参数
, 参数与参数之间用逗号隔开
cardblood As Integer 这里再传进去一个整数,也就是参考线与边的距离,是一个integer
With 这里用到了一个with,这是VB的省略用法,用意就是with后面的这个变量actnumber在end with的整个内部都是用一个.替代,可以帮我们省略代码,就这么个作用而已,可以看到在后面的.TopY和.BottomY 和.LeftX 以及.RightX前面这个非常突兀的点全是说明前面省略了一个actnumber
Set 因为参考线不是常用的变量类型,所以赋值的时候用上了set
s1变量名,可以随意命名(一般来说第一个字符不能是数字)
ActiveDocument 活动文档, 这里可以看到我是直接用的活动文档,程序也能识别,我之前从coreldraw这个名称开始写起是为了让大家更好的看明白整个程序的结构的从属关系
MasterPage 主页面, 里面包含导线层(参考线),桌面层,网格层
GuidesLayer 导线层
CreateGuideAngle 根据某个点(x,y)创建某个角度(angle)的参考线,所以里面有三个参数,前两个描述某个点的位置,第二个参数说明这根线的度数,从0到360度.因为是四条参考线,所以写了四行,而且在画0度的参考线的时候,实际上对x这个数是多少都无所谓所以就直接写0, 反过也也一样,在画90度参考线的时候,y值也可以随便填,所以也写上0
# 井号是度数的意思
tool.guideangle CorelDRAW.ActiveShape, 5这行的前面是从tool内部找到guideangle 功能, 然后空格直接带上实际的参数(直接用空格说明这个功能是不需要回传返回结果的,如果是要返回结果那就要带上括号,而sub也要改写成Function), 然后第一个参数传的是当前选中的形状, 第二个参数是5

CorelDRAWX4的VBA插件开发(十二)新建出血参考线相关推荐

CorelDRAWX4的VBA插件开发(十七)一键新建折页参考线
在做印刷品的折页的时候,我们往往需要用到参考线来进行制作,这里就放上一组一键新建带出血的可选几折页的参考线功能前面是为了方便大家了解程序所以共用一个按钮,到了这里,我们经常要用到面板,按钮有点不够用 ...
CorelDRAWX4的VBA插件开发(十)多文件编程
很多时候有若干个按钮,但是里面有相同的功能,比如上一节中所中用到的修改当前文档的度量单位为毫米这一功能,每一个功能都需要用到这个功能的时候,我们可以把它单独拉出来,放在另一个文件里面,用的时候只需要调 ...
CorelDRAWX4的VBA插件开发(四) 用一个例子了解CORELDRAW-X4的四个基本对象
CorelDRAWX4的VBA插件开发(四) 用一个例子了解CORELDRAW-X4的四个基本对象 1.打开第一章的界面如下图: 2.把之前的代码稍作修改 Sub 第一个插件()Dim zongShu ...
CorelDRAWX4的VBA插件开发(二十四)复合选框组件与联合命名面板
我们在处理文档的时候碰上的最多的问题就是与字符串相当的问题,这里再拿出来单把各种使用命名的小组件讲一下,我们先上效果图: 我们可以在上图看到最终结果,可以让一行文件名跟随各种组件进行更改,下下面我们先 ...
CorelDRAWX4的VBA插件开发(四十五)建立类(2)汇总相似功能简化重复代码:一键建立设计外框加出血线和等分折页线
在上一节中已经建立好了类,那么这一节我们来调用它,先建立一个面板然后修改框体名称然后从左侧新建一些按钮并且以拼音为结尾进行命名 Private Sub CheckBox2_zheYe_Click( ...
CorelDRAWX4的VBA插件开发(二十五)多类目选择实现复合框内容置换
有时候我们的复合框内的内容是有更多的需求,但是我们又不想另开一个窗口,怎么办呢,我们直接使用复合框内容替换就行啦先上效果图: 先在面第板上拉出一个框架, 再在里面添加上三个选项按钮, 添加好之后这三 ...
CorelDRAWX4的VBA插件开发(四十四)建立类(1)汇总相似功能简化重复代码:一键建立设计外框加出血线和等分折页线
这次主要来浅讲一下"类"这个功能,先上一下要实现的功能,建立设计外框加出血线和等分折页线,先上图那什么是类呢?类其实就是CLASS,用来封装成员参数和函数的,拆开来里面就是这些东 ...
CorelDRAWX4的VBA插件开发(四十六)VBA插入启动事件让CDR启动时检测并自动添加工具栏和按钮
先上结果图,这个工具栏和按钮都是主程序自动生成的在程序的运行当中,如果我们希望程序能够自己创建工具栏和按钮,可以在CDR启动事件中设置一个检测功能 Private Sub GlobalMacroSt ...
CorelDRAWX4的VBA插件开发(三十四)调用C++实现一键智能群组(第3节)主调函数以及三个被调函数
这一节就进入到了群组的实质性的内容,先把群组Qunzu()函数展示一下先展示主调函数Qunzu(),函数里面还有四个被调函数等会儿再说 BOOL Qunzu() {//undo开这个是一键多步撤销 ...
CorelDRAWX4的VBA插件开发(二十七)使用C++制作动态连接库DLL辅助VBA构键强大功能-(1)前言和准备工作
我们在使用VBA的时候会很多的局限性,包括调用库和递归函数,对指针结构体和类都不友好,对时间复杂度和空间复杂度都优化得不够,换言之VB就不是从性能出发的语言,所以难免力不从心所以这里用C++为VBA ...

CorelDRAWX4的VBA插件开发(十二)新建出血参考线

打开tool文件创建四周加参考线代码

调用

代码释义

CorelDRAWX4的VBA插件开发(十二)新建出血参考线相关推荐

最新文章

热门文章