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