创建形位公差

Sub Ch5_CreateTolerance()

    Dim toleranceObj As AcadTolerance

    Dim textString As String

    Dim insertionPoint(0 To 2) As Double

    Dim direction(0 To 2) As Double

      
    ' 定义公差对象
      
    textString = "Here is the Feature Control Frame"
      
    insertionPoint(0) = 5
      
    insertionPoint(1) = 5
      
    insertionPoint(2) = 0
      
    direction(0) = 1
      
    direction(1) = 1
      
    direction(2) = 0
      
    ' 在模型空间中创建公差对象
      
    Set toleranceObj = ThisDrawing.ModelSpace. _
      
        AddTolerance(textString, insertionPoint, direction)
      
    ZoomAll
      
End Sub