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

AutoCAD 2022 开发者帮助

关于创建纵坐标尺寸（VBA/ActiveX）

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

纵坐标或基准尺寸测量从原点（称为基准）到尺寸标注特征（如零件中的孔）的垂直距离。

这些尺寸通过保持特征与基准的精确偏移来防止误差的增加。

纵坐标尺寸由带有引线的 X 或 Y 纵坐标组成。X 基准纵坐标尺寸用于测量特征沿 X 轴与基准的距离。Y 基准纵坐标尺寸沿 Y 轴测量相同的距离。AutoCAD 使用当前用户坐标系（UCS）的原点来确定测量坐标。使用坐标的绝对值。

无论当前尺寸样式定义的文本方向如何，文本都与纵坐标引线对齐。您可以接受默认文本，也可以提供自己的文本。

若要创建纵坐标尺寸，请使用该方法。此方法需要三个值作为输入：指定要标注点的坐标（A）、指定引线末端的坐标（B）以及指定尺寸是 X 基准纵坐标尺寸还是 Y 基准纵坐标尺寸的布尔标志。如果为布尔标志输入 TRUE，则该方法将创建 X 基准纵坐标尺寸。如果输入 FALSE，它将创建一个 Y 基准纵坐标尺寸。AddDimOrdinate

创建纵坐标尺寸

本示例在模型空间中创建纵坐标维。

Sub Ch5_CreatingOrdinateDimension()
    Dim dimObj As AcadDimOrdinate
    Dim definingPoint(0 To 2) As Double
    Dim leaderEndPoint(0 To 2) As Double
    Dim useXAxis As Long

    ' Define the dimension
    definingPoint(0) = 5
    definingPoint(1) = 5
    definingPoint(2) = 0
    leaderEndPoint(0) = 10
    leaderEndPoint(1) = 5
    leaderEndPoint(2) = 0
    useXAxis = 5

    ' Create an ordinate dimension in model space
    Set dimObj = ThisDrawing.ModelSpace. _
 AddDimOrdinate(definingPoint, _
 leaderEndPoint, useXAxis)
    ZoomAll
End Sub