CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 尺寸、引线和几何公差› 关于创建引线和注释（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于创建引导线（VBA/ActiveX）

2023-1-4 22:53| 发布者: admin| 查看: 764| 评论: 0|来自: AutoCAD

摘要: 可以从图形中的任何点或要素创建引出线，并在绘制时控制其外观。

可以从图形中的任何点或要素创建引出线，并在绘制时控制其外观。

引线可以是直线段或平滑样条曲线。引线颜色由当前尺寸线颜色控制。引线比例由活动标注样式中的整体尺寸刻度集控制。箭头的类型和大小（如果存在）由活动样式中定义的第一个箭头控制。

一条称为钩线的小线通常将注释连接到引线。如果最后一个引出线段与水平线段的角度大于 15 度，则钩线与 MText 和特征控制帧一起显示。钩线是单个箭头的长度。如果引线没有注释，则它没有钩线。

若要创建引导线，请使用方法。此方法需要三个值作为输入：指定在何处创建引线的坐标数组、注释对象（如果引线没有注释，则为 NULL）以及要创建的引线类型。AddLeader

引线的类型指定引线是直线还是平滑样条曲线。它还决定了领导者是否要有箭头。使用以下常量之一指定引线的类型：,,, 或。这些常量是互斥的。acLineNoArrowacLineWithArrowacSplineNoArrowacSplineWithArrow

创建引导线

本示例在模型空间中创建一条引导线。没有与引出线关联的注释。

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

    ' Create the leader object in model space
    Set leaderObj = ThisDrawing.ModelSpace. _
          AddLeader(points, annotationObject, leaderType)
    ZoomAll
End Sub