创建坐标标注

AutoCAD ActiveX/VBA

 
创建坐标标注
 
 
 

坐标(或基准)标注用于测量从原点(称为基准点)到被标注的特征(例如部件上的孔)之间的垂直距离。这些标注通过保持特征与基准点之间的精确偏移量,来避免误差增大。

坐标标注由带引线的 XY 坐标组成。X 基准坐标标注沿 X 轴测量特征点与基准点的距离。Y 基准坐标标注沿着 Y 轴测量相同的距离。AutoCAD 使用当前用户坐标系 (UCS) 的原点确定测量的坐标。坐标使用绝对值。

文字将与坐标引线对齐,而不考虑当前标注样式定义的文字方向。用户可以接受默认文字,也可以提供自己的文字。

要创建坐标标注,请使用 AddDimOrdinate 方法。这个方法需要输入三个值:用于指定要标注的点的坐标 (A)、用于指定引线端点的坐标 (B) 以及用于指定标注是 X 基准坐标标注还是 Y 基准坐标标注的布尔标志。如果为布尔标志输入 TRUE,该方法将创建 X 基准坐标标注。如果输入 FALSE,则会创建 Y 基准坐标标注。

有关创建坐标标注的详细信息,请参见《用户手册》中的“创建坐标标注”。

创建坐标标注

本例在模型空间中创建坐标标注。

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
      
    ' 定义标注
    definingPoint(0) = 5
    definingPoint(1) = 5
    definingPoint(2) = 0
    leaderEndPoint(0) = 10
    leaderEndPoint(1) = 5
    leaderEndPoint(2) = 0
    useXAxis = 5
      
    ' 在模型空间中创建坐标标注
    Set dimObj = ThisDrawing.ModelSpace. _
               AddDimOrdinate(definingPoint, _
               leaderEndPoint, useXAxis)
    ZoomAll
End Sub