CorelDRAW VBA - 在图层的指定位置创建连接线 Layer.CreateConnector

Layer.CreateConnector方法用来在图层的指定位置创建连接线。

参数说明

参数 描述
Start 指定连接行对象的起点
End 指定连接线对象的结束点

VBA参考代码

下面的VBA示例在当前活动图层上创建一个矩形和椭圆,并在它们之间绘制连接线。

Dim rect As Shape, ell As Shape
Dim lr As Layer
Set lr = ActiveLayer
' 创建矩形
Set rect = lr.CreateRectangle(0, 0, 3, 3)
' 创建椭圆
Set ell = lr.CreateEllipse2(5, 5, 1, 1)
' 创建矩形和椭圆的连接线
lr.CreateConnector rect.SnapPoints(9), ell.SnapPoints(5)

下面的VBA示例创建一个矩形和一个椭圆,并绘制连接每个对象中心的连接线。

Dim r As Shape, e As Shape
' 创建矩形
Set r = ActiveLayer.CreateRectangle(0, 0, 3, 3)
' 创建椭圆
Set e = ActiveLayer.CreateEllipse2(5, 5, 1, 1)
' 创建连接线
ActiveLayer.CreateConnector r.SnapPoints(r.SnapPoints.Count), e.SnapPoints(e.SnapPoints.Count)
相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值