Creaci髇 de tolerancias geom閠ricas

From AutoCAD ActiveX

previous page next page

Uso de tolerancias geométricas

Modificación de tolerancias

Manual del desarrollador de ActiveX y VBA > Cotas y tolerancias > Uso de tolerancias geométricas >

Creación de tolerancias geométricas

Para crear una tolerancia geométrica, utilice el método AddTolerance. Este método requiere la introducción de tres valores: la cadena de texto que contiene el símbolo de tolerancia, la ubicación del dibujo donde se situará la tolerancia y un vector de dirección para determinar la dirección de la tolerancia. Las tolerancias también se pueden copiar, desplazar, borrar, ampliar o reducir y rotar.

Creación de una tolerancia geométrica

Este ejemplo crea una tolerancia geométrica sencilla en espacio modelo.

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

          ' Define the tolerance object
          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
          ' Create the tolerance object in model space
          Set toleranceObj = ThisDrawing.ModelSpace. _
              AddTolerance(textString, insertionPoint, direction)
          ZoomAll
      End Sub

previous page start next page