Dále potřebujeme vytvořit novou proceduru. Hlavičku procedury můžeme napsat ručně nebo použít dialogový box Přidat proceduru. Z vlastních zkušeností doporučujeme přidávat procedury pomocí dialogového boxu, přidání nové procedury je takto jednodušší a rychlejší.
Do okna kódu se zobrazí deklarace nové procedury typu Sub(více o typech procedur se v lekci Standardní moduly a procedury ve Visual Basicu pro Aplikace):
Nyní nám už nic nebrání, abychom do procedury AhojSvete() dopsaly následující programový kód.
Se psaním kódu programu během psaní funkcí Vám VBA bude pomáhat pomocí funkce IntelliSense .
Pro vkládaný text v AutoCADu musí mít zadány následující parametry:
Dim bodVlozeni(0 To 2) As Double ' deklarace proměnné pole pro vložení tří prvků Double, ' reprezentujících souřadnice bodu vložení textu Dim textVyska As Double ' deklarace proměnné typu Double - výška textu Dim textRetezec As String ' deklarace proměnné typu String - vypisovaný text Dim textObj As AcadText ' deklarace proměnné objekt typu AcadText
Do proměnné bodVlozeni zadáme jednotlivé hodnoty souřadnic vložení:
bodVlozeni (0) = 50 ' nastavení x-ové souřadnice bodu vložení bodVlozeni (1) = 30 ' nastavení y-ové souřadnice bodu vložení bodVlozeni (2) = 0 ' nastavení z-ové souřadnice bodu vložení
Nastavíme velikost zobrazovaného textu a zobrazovaný text:
textVyska = 5 ' nastavení velikosti textu textRetezec = "Zdravíčko světe!" ' zobrazovaný text
V tuto chvíli máme zadány všechny potřebné informace pro zobrazení textu. Text zobrazíme pomocí nastavení textového objektu a jeho přidáním do modelového prostoru (metoda AddText):
Set textObj = ThisDrawing.ModelSpace.AddText_ (textRetezec, bodVlozeni, textVyska) ' všimněte si znaku podtržítka na konci prvního řádku, ' podtržítko oznamuje VBA, že příkaz pokračuje na ' dalším řádku
Se zobrazeným textem můžeme i nadále jednoduchým způsobem pracovat. Například můžeme nastavit barvu zobrazeného textu.
Při změně barvy (i jakékoliv jiné vlastnosti) musíme znát jméno upravovaného objektu - pro náš příklad textbj. Dále již stačí přidat jméno vlastnosti a přiřadit jí novou hodnotu:
textObj.Color = acRed ' nastavení barvy napsaného textu na červenou
Obdobně můžeme změnit zvětšení výkresu. Nejprve si musíme zjistit jaké zvětšení požadujeme - pro náš příklad zvětšení na celou obrazovku ZoomExtents. Dále si musíme uvědomit, že zvětšení se vztahuje na výkresový dokument. Z těchto úvah nakonec získáme následující úsek kódu:
ThisDrawing.Application.ZoomExtents ' zvětšení aktuálního okna ve výkresu
Nakonec uložíme výkres pod jménem "Hello.dwg":
ThisDrawing.SaveAs("Hello.dwg")
Tím jsme dokončily naše první makro. Jak spustíte napsané makro se dozvíte v následujícím odstavci.
Text zdrojový kód procedury si můžete nahrát v souboru JednoduchyPriklad1TeloFunkce.txt. Nahraný kód stačí nakopírovat do okna kódu. Přesto Vám doporučujeme, alespoň pár řádek kódu napsat ručně, abyste viděli v činnosti pomůcky interaktivního vývojového prostředí Visual Basicu pro Aplikace v činnosti.