Odkazování na objekty v hierarchii objektů

Přehled informací

Na objekty je možné se odkazovat přímo nebo pomocí uživatelem definovaných proměnných.

Přímý odkaz na objekt

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

Odkaz na objekt přes uživatelem definovanou proměnnou

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.