Na objekty je možné se odkazovat přímo nebo pomocí uživatelem definovaných proměnných.
Při přímém odkazu na objekt, začleňte objekt do volací hierarchie. Následující úsek kódu přidá čáru do modelového prostoru aktuálního výkresu.
Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double Dim LineObj as AcadLine startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0 endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0 Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)
Vysvětlení předchozího kódu:
V ukázce kódu nejprve definujeme dvě pole startPoint a endPoint, obě dimenze 3. Dále objekt LineObj typu AcadLine (čára AutoCADu). Následuje přiřazení hodnot do jednotlivých prvků pole. Poslední řádek kódu přidá do modelového prostoru (ModelSpace) aktuálního výkresu (ThisDrawing) čáru (AddLine).
Při odkazu na objekt pomocí uživatelem definované proměnné, definujeme proměnnou, aby odpovídala požadovanému prostoru (požadovaného typu), potom proměnnou nastavíme, aby ukazovala na modelový prostor aktuálního výkresu. Následující úsek kódu definuje proměnnou (moSpace) typu AcadModelSpace a nastaví proměnnou, aby byla přiřazena aktuálnímu modelovému prostoru:
Dim moSpace As AcadModelSpace Set moSpace = ThisDrawing.ModelSpace
Přidání čáry do modelového prostoru s použitím uživatelem definované proměnné:
Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double Dim LineObj as AcadLine startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0 endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0 Set LineObj = moSpace.AddLine(startPoint,endPoint)
Vysvětlení předchozího kódu:
V ukázce kódu nejprve definuje dvě pole startPoint a endPoint, obě dimenze 3. Dále objekt LineObj typu AcadLine (čára AutoCADu). Následuje přiřazení hodnot do jednotlivých prvků pole. Poslední řádek kódu přidá do modelového prostoru aktuálního výkresu čáru (AddLine). Ukazatel na aktuální výkres a modelový prostor je uložen v proměnné moSpace.
![]()