我們在做設計文件的時候,經(jīng)常需要考慮好參考線的位置,也就是平時所說的出血,這個也算是比較重要,一般來說內容都要放在安全線以內,所以這里就單獨拿出來講一下,如何一鍵建立參考線.

接前面的內容往下講,若有不明白可以從第一篇開始看

• 打開tool文件創(chuàng)建四周加參考線代碼

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是一個類型,代表一個形狀的類,是要往功能內部傳進去的第一個參數(shù)
, 參數(shù)與參數(shù)之間用逗號隔開
cardblood As Integer 這里再傳進去一個整數(shù),也就是參考線與邊的距離,是一個integer
With 這里用到了一個with,這是VB的省略用法,用意就是with后面的這個變量actnumber在end with的整個內部都是用一個.替代,可以幫我們省略代碼,就這么個作用而已,可以看到在后面的.TopY和.BottomY 和.LeftX 以及.RightX前面這個非常突兀的點全是說明前面省略了一個actnumber
Set 因為參考線不是常用的變量類型,所以賦值的時候用上了set
s1變量名,可以隨意命名(一般來說第一個字符不能是數(shù)字)
ActiveDocument 活動文檔, 這里可以看到我是直接用的活動文檔,程序也能識別,我之前從coreldraw這個名稱開始寫起是為了讓大家更好的看明白整個程序的結構的從屬關系
MasterPage 主頁面, 里面包含導線層(參考線),桌面層,網(wǎng)格層
GuidesLayer 導線層
CreateGuideAngle 根據(jù)某個點(x,y)創(chuàng)建某個角度(angle)的參考線,所以里面有三個參數(shù),前兩個描述某個點的位置,第二個參數(shù)說明這根線的度數(shù),從0到360度.因為是四條參考線,所以寫了四行,而且在畫0度的參考線的時候,實際上對x這個數(shù)是多少都無所謂所以就直接寫0, 反過也也一樣,在畫90度參考線的時候,y值也可以隨便填,所以也寫上0
# 井號是度數(shù)的意思
tool.guideangle CorelDRAW.ActiveShape, 5這行的前面是從tool內部找到guideangle 功能, 然后空格直接帶上實際的參數(shù)(直接用空格說明這個功能是不需要回傳返回結果的,如果是要返回結果那就要帶上括號,而sub也要改寫成Function), 然后第一個參數(shù)傳的是當前選中的形狀, 第二個參數(shù)是5

總結

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(十二)新建出血参考线的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。