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

ActiveX 开发指南

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

2023-1-4 23:07| 发布者: admin| 查看: 692| 评论: 0|来自: 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