可以从图形中的任意点或特征创建引线，并在绘制时控制其外观。引线可以是直线段或平滑的样条曲线。引线颜色由当前的尺寸线颜色控制。引线缩放比例由活动标注样式中设置的全局标注比例控制。箭头的类型和大小（如果有）由活动样式定义的第一个箭头控制。
注释通常由一条小线（称为钩线）连接到引线。如果最后一条引线段与水平线的夹角大于 15 度，则钩线会与多行文字和特征控制框一起显示。钩线具有一个箭头的长度。如果引线没有注释，它也就不会有钩线。
要创建引线，请使用 AddLeader 方法。这个方法需要输入三个值：指定创建引线所在的坐标数组，注释对象（或如果引线没有注释则为 NULL）以及要创建的引线类型。引线类型可用指定引线是直线还是光滑的样条曲线，还可以确定引线是否带箭头。使用以下一个常量来指定引线类型：acLineNoArrow、acLineWithArrow、acSplineNoArrow 或 acSplineWithArrow。这些常量是相互排斥的。
Sub Ch5_CreateLeader()
Dim leaderObj As AcadLeader
Dim points(0 To 8) As Double
Dim leaderType As Integer
Dim annotationObject As AcadObject
points(0) = 0: points(1) = 0: points(2) = 0
points(3) = 4: points(4) = 4: points(5) = 0
points(6) = 4: points(7) = 5: points(8) = 0
leaderType = acLineWithArrow
Set annotationObject = Nothing
' 在模型空间中创建引线对象
Set leaderObj = ThisDrawing.ModelSpace. _
AddLeader(points, annotationObject, leaderType)
ZoomAll
End Sub