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 = ActiveL