用CorelScript来解决矩形圆角问题

　　通过以上两种方法，我们可以看到，最终得到的圆角是不一致的，显然后一种方法得到的结果更令人满意些。于是我们每画一个这样的图，往往都会用到方法二，那么有没有更事半功倍的方法？有！

　　下面我们介绍用CorelScript来解决矩形圆角问题。CorelScript是捆绑在CorelDRAW中的一个脚本程序，它就象Photoshop中的一个Action，或是Plug-in。

　　以下就是画矩形圆角的程式

j1=0 &&宽
j2=0 &&高
j3=0.15 &&轮廓线粗细（默认是0.15mm）
x=0 &&轮廓线是否按比例缩放（默认数值是0，即是）
z1=0 &&左上角角度
z2=0 &&左下角角度
z3=0 &&右上角角度
z4=0 &&右下角角度
WITHOBJECT "CorelDraw.Automation.11" &&如果是9.0就改为Automation.9
BEGIN DIALOG Dialog1 198, 150, " 标准矩形 程式:张震军"
  TEXT 95, 69, 18, 11, "毫米"
  TEXT 95, 26, 19, 11, "毫米"
  TEXTBOX 56, 23, 36, 14, j1
  TEXTBOX 56, 66, 36, 14, j3
  GROUPBOX 7, 9, 184, 118, "输入区"
  OKBUTTON 111, 132, 35, 13
  CANCELBUTTON 155, 132, 35, 13
  TEXT 30, 26, 25, 10, "宽度："
  TEXT 13, 69, 41, 10, "矩形轮廓："
  TEXT 30, 47, 25, 10, "高度："
  TEXTBOX 56, 44, 36, 14, j2
  TEXT 95, 47, 18, 11, "毫米"
  TEXT 52, 113, 75, 10, "轮廓线按比例缩放："
  OPTIONGROUP x
    OPTIONBUTTON 129, 112, 21, 11, "是"
    OPTIONBUTTON 161, 112, 24, 11, "否"
  TEXT 174, 69, 15, 10, "度"
  TEXT 123, 90, 27, 10, "右下角"
  TEXT 123, 26, 27, 10, "左上角"
  TEXT 174, 26, 15, 10, "度"
  TEXT 123, 47, 27, 10, "左下角"
  TEXT 123, 69, 27, 10, "右上角"
  TEXT 174, 47, 15, 10, "度"
  TEXT 174, 90, 15, 10, "度"
  TEXTBOX 149, 23, 22, 13, z1
  TEXTBOX 149, 44, 22, 13, z2
  TEXTBOX 149, 66, 22, 13, z3
  TEXTBOX 149, 87, 22, 13, z4
END DIALOG
j=dialog(dialog1) &&这是判别ok or cancel
if j=1 then
.CreateRectangle(val(j2)*10000)/2,-(val(j1)*10000)/2,-(val(j2)*10000)/2,(val(j1)*10000)/2,(val(z3)*10000)/2 &&这是画矩形
.SetCornerRoundness z1*10, z2*10, z3*10, z4*10 &&这是画圆角
if x=0 then
.ApplyOutline val(j3)*10000, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, true
ELSEIF x=1 THEN
.ApplyOutline val(j3)*10000, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, FALSE
&&轮廓线粗细
endif
endif
end withobject

　　我们可以用CorelScript编辑器写或用写字板，写完后以.csc格式保存（如，标准矩形.csc）。

　　以上程序主要用到的语句有：

　　画矩形语句语法

.CreateRectangle .Top = long, .Left = long, .Bottom = long, .Right = long

　　圆角语句语法

.SetCornerRoundness 左上角角度，左下角角度，右上角角度，右下角角度

　　下面我们执行一下这个程式，点击tools菜单中的run script，找到标准矩形.csc
界面如下图三，是不是很数字化？以后再画只要打开这程序，填数字即可。

图三