用CorelScript来解决矩形圆角问题

　　妇孺皆知现在时髦的矢量图软硬件无非为以次三种，corel公司的coreldraw、adobe公司的illustrator、及macromedia公司的freehand，个中coreldraw以其革新速率快（传闻coreldraw 11.0简体华文版行将出书），完全功效宏大，简而易学的操纵博得不少专科人士及非专科人士的喜爱。

　　但是好货色并非白璧无瑕，亦不免有所缺点。即日要讲是怎样画矩形圆角，有的老用户赶快会嘀咕，这对coreldraw不是题目啊，得心应手就可处置，且9.0之上本子可对矩形四角大肆一角画圆角。好，先让咱们来画一矩形。

　　诉求：画一50×100mm的矩形，而后四角变45度圆角。

　　保守本领一：按矩形东西，白手画一矩形，而后在菜单条底下的东西栏object(s) size中填入宽50mm，高100mm，结果四角变45度圆角（见图一）。

图一

　　保守本领二：先用启发线（guidelines）定位50x100mm，而后选view菜单中snap to guidelines，再在方才启发线范畴内画矩形，结果四角变45度（见图二）。

图二

　　经过之上两种本领，咱们不妨看到，最后获得的圆角是不普遍的，显而后一种本领获得的截止更令人合意些。所以咱们每画一个如许的图，常常城市用到本领二，那么有没有更一举两得的本领？有！　　底下咱们引见用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.9begin 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, z4end dialogj=dialog(dialog1) &&这是辨别ok or cancelif 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, trueelseif x=1 then.applyoutline val(j3)*10000, 1, 0, 0, 100, 0, 0, -1, -1, false, 2, 0, false&&表面线粗细endifendifend withobject　　咱们不妨用corelscript编纂器写或用写入板，写完后以.csc方法生存（如，规范矩形.csc）。　　之上步调重要用到的语句有：　　画矩形语句语法.createrectangle .top = long, .left = long, .bottom = long, .right = long　　圆角语句语法.setcornerroundness 左上角观点，左下角观点，右上角观点，右下角观点　　底下咱们实行一下这个程式，点击tools菜单中的run script，找到规范矩形.csc界面如次图三，是否很数字化？此后再画只有翻开这步调，填数字即可。

图三