CorelDRAW VBA - 创建圆和椭圆

公告


本专栏的相关的文章已不在同步更新,请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

coreldraw-vba-create-ellipse

目的

这篇教程将教会你使用 CorelDRAW VBA代码在文档中创建圆形、椭圆以及开放式椭圆曲线。

无论任何形状,都是创建在图层上面的,图层(Layer)对象提供了以下方法用来创建椭圆:

  • Layer.CreateEllipse
  • Layer.CreateEllipse2

以上两个方法都返回一个 Shape 对象的引用,两个方法的不同之处在于传递的参数不同,请根据需要在自己的VBA代码中选择具体的方法。

下面来看看两个不同方法的区别。

CreateEllipse(基于边距创建椭圆)

CreateEllipse 这个方法通过使用 4 个参数来创建矩形,如下所示:

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个椭圆(默认坐标参考点是左下角,请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果)
Dim left, top, right, bottom
left = 10 ' 从文档左边距离1厘米处开始绘制
top = 10 ' 从距离底部距离1厘米处开始绘制
right = 40 ' 从文档左边距离1厘米处开始,向右一直绘制到4厘米处,相当于椭圆的宽度为3厘米(40-10)
bottom = 60 ' 从文档底部距离1厘米处开始,距离底部距离一共6厘米,相当于椭圆的高度为5厘米(60-10)

' 创建椭圆
Set s = ActiveLayer.CreateEllipse(left, top, right, bottom)

代码运行效果图:


coreldraw-vba-create-ellipse-1

CreateEllipse2(基于中心点和半径创建椭圆)

CreateEllipse2 方法基于中心点、水平半径和垂直半径来创建椭圆。注意:如果只给了一个半径值,那么将会创建一个圆形而不是椭圆。
请查看以下代码演示:

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个椭圆(默认坐标参考点是左下角,请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果)
Dim x, y, width, height
x = 0 ' 横坐标为0
y = 0 ' 纵坐标为0
radius_h = 100 ' 水平半径10厘米
radius_v = 20 ' 垂直半径2厘米
' 创建椭圆
Set s = ActiveLayer.CreateEllipse2(x, y, radius_h, radius_v)

代码运行效果图:


coreldraw-vba-create-ellipse-2

创建圆形

上面已经说到,创建圆形,只需要调用 CreateRectangle2 参数时,传入一个半径值即可,代码如下:

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个圆形(默认坐标参考点是左下角,请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果)
Dim x, y, width, height
x = 0 ' 横坐标为0
y = 0 ' 纵坐标为0
radius = 100 ' 半径10厘米
' 创建圆形
Set s = ActiveLayer.CreateEllipse2(x, y, radius)

代码运行效果图:


coreldraw-vba-create-ellipse-3

创建开放式椭圆曲线(例如C型曲线)

调用 CreateEllipse 方法,传入额外的参数可以创建开放式曲线,主要是通过开始角度和结束角度来控制,代码如下:

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个C型曲线(默认坐标参考点是左下角,请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果)
Dim left, top, right, bottom, angel_start, angel_end, is_pie
left = 10
top = 10
right = 40
bottom = 60
angel_start = 60 '开始角度
angel_end = 290 '结束角度
is_pie = False ' 是否饼图

' 创建C型曲线
Set s = ActiveLayer.CreateEllipse(left, top, right, bottom, angel_start, angel_end, is_pie)

代码运行效果图:


coreldraw-vba-create-ellipse-4

原创声明:本文首发于个人CorelDRAW VBA博客,请尊重文章版权。
转载请注明原文链接:http://www.cdrvba.com/coreldraw-vba-create-ellipse

你可能感兴趣的:(CorelDRAW VBA - 创建圆和椭圆)