我们在做设计文件的时候,经常需要考虑好参考线的位置,也就是平时所说的出血,这个也算是比较重要,一般来说内容都要放在安全线以内,所以这里就单独拿出来讲一下,如何一键建立参考线.
接前面的内容往下讲,若有不明白可以从第一篇开始看
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
