Conversión de matrices en variantes

AutoCAD ActiveX

 
Conversión de matrices en variantes
 
 
 

AutoCAD ActiveX Automation proporciona un método para convertir una matriz de datos en un variante. Este método se llama CreateTypedArray y crea un variante que contiene una matriz de enteros, números flotantes, dobles, etc. Puede transferir el variante resultante a cualquier método o propiedad de AutoCAD que acepte como variante una matriz de números.

El método CreateTypedArray utiliza como entradas el tipo de valores que están en la matriz, y la matriz de datos que debe convertirse. Devuelve como variante la matriz de valores.

Creación de una curva spline con el método CreateTypedArray

El siguiente código convierte tres matrices mediante CreateTypedArray: coordenadas de los puntos de ajuste de la spline, y la tangente inicial y final de la spline. A continuación transfiere la variante al método AddSpline para crear la spline.

Sub Ch2_CreateSplineUsingTypedArray()
    ' This example creates a spline object in model space
    ' using the CreateTypedArray method.
    Dim splineObj As AcadSpline
    Dim startTan As Variant
    Dim endTan As Variant
    Dim fitPoints As Variant
      
    Dim utilObj As Object ' late bind the Utility object
    Set utilObj = ThisDrawing.Utility
      
    ' Define the Spline Object
    utilObj.CreateTypedArray _
                startTan, vbDouble, 0.5, 0.5, 0
    utilObj.CreateTypedArray _
                endTan, vbDouble, 0.5, 0.5, 0
    utilObj.CreateTypedArray _
                fitPoints, vbDouble, 0, 0, 0, 5, 5, 0, 10, 0, 0
      
    Set splineObj = ThisDrawing.ModelSpace.AddSpline _
                (fitPoints, startTan, endTan)
      
    ' Zoom in on the newly created spline
    ZoomAll
      
End Sub