Převod pole na typ variant

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.

Příklad převodu tří polí pomocí metody CreateTypedArray

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().