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
' 创建曲线对象(此时曲线
相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值