CorelDRAW VBA - 在图层的指定位置创建一条曲线 Layer.CreateCurve

Layer.CreateCurve方法用来在图层的指定位置创建一条曲线。

参数说明

参数	描述
Source	指定曲线的源

VBA参考代码

创建曲线

下面的VBA示例在当前活动图层上创建一条曲线。

' 变量声明
Dim crv As New Curve
Dim s As Shape
Dim sp As SubPath
' 创建曲线对象（此时曲线对象只是在内存中）
Set crv = Application.CreateCurve(ActiveDocument)
' 为曲线创建子路径
Set sp = crv.CreateSubPath(1, 5)
sp.AppendLineSegment 2, 0
sp.AppendCurveSegment2 5, 7, 6, 6, 3, 5
sp.AppendCurveSegment2 7, 2, 3, 6, 7, 1
sp.AppendLineSegment 9, 6
' 设置第3个节点的类型为平滑节点
sp.Nodes(3).Type = cdrSmoothNode
' 将曲线对象添加到当前活动图层
Set s = ActiveLayer.CreateCurve(crv)

创建拼图块

下面的VBA示例在当前活动图层上创建一个拼图块。

' 变量声明
Dim s As Shape, sp As SubPath, crv As Curve
' 创建曲线对象（此时曲