Rozhraní AutoCAD ActiveX automatizace nabízí metodu - CreateTypedArray - pro jednoduchý převod všech polí dat typů integer, float, double na prvek variant odpovídajícího typu (integer, float, double).
Metoda CreateTypedArray má dva argumenty. Prvním argumentem je typ konvertovaných dat (typ dat v poli, které se bude konvertovat), druhým parametrem je pole dat. Metoda vrací pole hodnot jako prvek variant.
První pole je pole souřadnic pro křivku, další je startovací bod křivky, poslední je koncový bod křivky. Po převodu polí jsou výsledky využity pro přidání křivky do výkresu:
Sub Ch2_VytvorKrivkuPomociTypedArray() ' Tento příklad vytvoří křivku v modelovém prostoru ' výkresu pomocí metody CreateTypedArray Dim ObjKrivka As AcadSpline Dim startTan As Variant Dim endTan As Variant Dim fitPoints As Variant Dim noOfPoints As Integer Dim utilObj As Object ' později připojí objekt Utility Set utilObj = ThisDrawing.Utility ' Definování objektu Krivky 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 noOfPoints = 3 Set ObjKrivka = ThisDrawing.ModelSpace.AddSpline _ (fitPoints, startTan, endTan) ' Zvětšení výkresu nad právě vytvořeným objektem ZoomAll End Sub
Vysvětlení předchozího kódu:
Na začátku kódu funkce je umístěna definice proměnných. Poté je vytvořen odkaz na objekt Utility, který obsahuje metodu CreateTypedArray. Následuje vytvoření tří polí typu variant. Metoda CreateTypedArray má následující parametry (jméno_vytvořeného_pole_typu_variant, typ_vstupních_dat, vstupní_data). Dále je přidána křivka do modelového prostoru aktuálního výkresu pomocí metody AddSpline. Nakonec je zvětšen výkres nad vytvořenou křivkou.
Zdrojový kód funkce Ch2_VytvorKrivkuPomociTypedArray().