CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2020 开发者帮助 › 查看内容

AutoCAD 2020 开发者帮助

关于创建引线（VBA/ActiveX）

2024-5-18 18:19| 发布者: admin| 查看: 74| 评论: 0|原作者: admin|来自: AutoCAD

关于创建引线（VBA/ActiveX）

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

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

一条称为钩线的小线通常将注释连接到引线。如果最后一个引线段与水平线成 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