Uso de tolerancias geométricas
Uso de tolerancias geométricas
Modificación de tolerancias
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