用CorelScript来解决矩形圆角问题中国展示

? 　　众所周知当今流行的矢量图软件无非为以下三种，Corel公司的CorelDRAW、Adobe公司的Illustrator、及Macromedia公司的Freehand，其中CorelDRAW以其更新速度快（据说CorelDRAW 11.0简体中文版即将出版），整体功能强大，简而易学的操作赢得不少专业人士及非专业人士的青睐。　　然而好东西并非完美无缺，亦难免有所瑕疵。今天要讲是如何画矩形圆角，有的老用户马上会嘀咕，这对CorelDRAW不是问题啊，轻而易举就可解决，且9.0以上版本可对矩形四角任意一角画圆角。好，先让我们来画一矩形。　　要求：画一50×100mm的矩形，然后四角变45度圆角。　　传统方法一：按矩形工具，徒手画一矩形，然后在菜单条下面的工具栏object(s) size中填入宽50mm，高100mm，最后四角变45度圆角（见图一）。
( L+ D5 k9 c: A" y# O5 G" |1 r9 u

" r5 m# @: g; D3 r图一

　　传统方法二：先用引导线（Guidelines）定位50x100mm，然后选View菜单中Snap to Guidelines，再在刚才引导线范围内画矩形，最后四角变45度（见图二）。
4 K3 E3 ^* i) u
, {9 F+ _1 K) a( {" R7 \. @0 G
图二　　通过以上两种方法，我们可以看到，最终得到的圆角是不一致的，显然后一种方法得到的结果更令人满意些。于是我们每画一个这样的图，往往都会用到方法二，那么有没有更事半功倍的方法？有！
2 e$ {$ S+ a+ m* V. m4 g$ m7 B
* r( f! F3 `7 L3 C4 _* l　　下面我们介绍用CorelScript来解决矩形圆角问题。CorelScript是捆绑在CorelDRAW中的一个脚本程序，它就象Photoshop中的一个Action，或是Plug-in。
, \0 q9 [, E# p7 r  R: B
5 {/ a# U" B5 J2 _　　以下就是画矩形圆角的程式

" P6 l" {4 G3 Xj1=0 &&宽
; K; ?% N  `$ U# f! X  [: _8 Yj2=0 &&高
j3=0.15 &&轮廓线粗细（默认是0.15mm）
x=0 &&轮廓线是否按比例缩放（默认数值是0，即是）
- F" ~6 J! m+ r/ }z1=0 &&左上角角度
z2=0 &&左下角角度
z3=0 &&右上角角度
4 |! j9 r( p" wz4=0 &&右下角角度
WITHOBJECT \"CorelDraw.Automation.11\" &&如果是9.0就改为Automation.9
BEGIN DIALOG Dialog1 198, 150, \" 标准矩形 程式:张震军\"
* s7 }7 y% T& V' x; M7 ^$ Y  `& z??TEXT 95, 69, 18, 11, \"毫米\"
??TEXT 95, 26, 19, 11, \"毫米\"
" z  t8 Z  f. H/ D??TEXTBOX 56, 23, 36, 14, j1
??TEXTBOX 56, 66, 36, 14, j3
??GROUPBOX 7, 9, 184, 118, \"输入区\"
2 t' e. e1 l3 t2 {2 W??OKBUTTON 111, 132, 35, 13
- n; H! r, M2 R; _0 v??CANCELBUTTON 155, 132, 35, 13
4 j+ s9 u+ i5 v2 }  G??TEXT 30, 26, 25, 10, \"宽度：\"
??TEXT 13, 69, 41, 10, \"矩形轮廓：\"
??TEXT 30, 47, 25, 10, \"高度：\"
??TEXTBOX 56, 44, 36, 14, j2
7 W0 h  Q; ~0 F2 h??TEXT 95, 47, 18, 11, \"毫米\"
  D3 S5 z/ G  t7 `+ A7 p. f6 H) I??TEXT 52, 113, 75, 10, \"轮廓线按比例缩放：\"
??OPTIONGROUP x
  L2 B% c! u* Q9 N8 j????OPTIONBUTTON 129, 112, 21, 11, \"是\"
????OPTIONBUTTON 161, 112, 24, 11, \"否\"
, q6 w: P4 [7 T7 T: U1 G4 B??TEXT 174, 69, 15, 10, \"度\"
* \4 o4 \1 _7 N7 x- j??TEXT 123, 90, 27, 10, \"右下角\"
7 P$ E5 ^5 z; c% e, L??TEXT 123, 26, 27, 10, \"左上角\"
/ X! k2 K8 k) i# u* Z# J  t6 [??TEXT 174, 26, 15, 10, \"度\"
??TEXT 123, 47, 27, 10, \"左下角\"
??TEXT 123, 69, 27, 10, \"右上角\"
??TEXT 174, 47, 15, 10, \"度\"
+ f9 T- K7 v1 q( l$ U9 w??TEXT 174, 90, 15, 10, \"度\"
??TEXTBOX 149, 23, 22, 13, z1
' G, T& Q9 |1 r. U??TEXTBOX 149, 44, 22, 13, z2
5 q/ j, E5 e& j/ A$ ???TEXTBOX 149, 66, 22, 13, z3
8 v, |& Q( M/ q/ Y7 A8 Z??TEXTBOX 149, 87, 22, 13, z4
/ L% X( F/ @- ]* ?1 \% P: @END DIALOG
- ?1 u4 H. y5 H4 u' |6 [: nj=dialog(dialog1) &&这是判别ok or cancel
8 w) R. T' q5 n- S( ^if j=1 then
" ^0 |2 ^8 ~3 g/ u' l8 M" k& }/ |.CreateRectangle(val(j2)*10000)/2,-(val(j1)*10000)/2,-(val(j2)*10000)/2,(val(j1)*10000)/2,(val(z3)*10000)/2 &&这是画矩形
# _/ ~9 P/ b. l4 M% m9 Q.SetCornerRoundness z1*10, z2*10, z3*10, z4*10 &&这是画圆角
% e7 g: c+ A# Wif x=0 then
5 {  G# I- E2 {  a/ \) ]* ].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
# y" J9 L0 {# Xendif
. o. P' m9 p4 \. |end withobject
% V4 ]1 Q' V: `
7 j/ e7 \9 |+ G4 b1 @2 C　　我们可以用CorelScript编辑器写或用写字板，写完后以.csc格式保存（如，标准矩形.csc）。
$ {$ z6 M3 W- |% z) _/ j3 f
* A5 l; H& M/ b　　以上程序主要用到的语句有：
6 F- k6 p: a2 @# A% [3 e, _/ _
　　画矩形语句语法
' u5 x" y5 A6 P+ s* w
5 ]7 C9 X: R+ I! }0 z.CreateRectangle .Top = long, .Left = long, .Bottom = long, .Right = long

　　圆角语句语法
* R$ @6 C- Y. V) H
) p' d% A- D+ ^' E( n.SetCornerRoundness 左上角角度，左下角角度，右上角角度，右下角角度

　　下面我们执行一下这个