Geology.zip


Při popisování geologických map bylo využito číselníku hornin. Jedná se proto o popisování z tabulky v relaci 1:N, což znamená, že pro jednu hodnotu v číselníku může být více hodnot v atributové tabulce vrstvy.

Skript byl vytvořen tak, aby popsal vrstvu následovně. Malým písmenem je popsán druh horniny. Toto písmeno je obsaženo v poli číselníku, název pole musí zadat uživatel. Druhou částí popisu je stáří horniny. To je vepsáno jako dolní index. Hodnota se bere ze stáří uvedeného v atributové tabulce vrstvy tím, že se vezme první písmeno a změní se na velké. Metoda se dá jednoduše nahradit taktéž číselníkem, stačí malá úprava skriptu. Toto řešení bylo vybráno proto, aby se ukázalo co nejvíce možností popisování.

Jelikož MS Visual Basic je objektově orientovaný programovací jazyk, nelze vytvořit jeden popis i s dolním indexem, protože objekt může mít pouze jednu hodnotu vlastnosti zarovnání (alligment). Zde byl problém vyřešen vložením dvou grafických objektů (jeden s druhem horniny a druhý se stářím). Každý z nich má potom předdefinované jiné vlastnosti.

Pro vkládání popisů je použita funkce AddLabel(), která je popsána v předchozí kapitole. Pro každý objekt je vyvoláno samostatné dialogové okno pro úpravu popisu, proto i sám uživatel může měnit vzhled jeho obou částí. Jedinou výjimku tvoří zarovnání u stáří horniny, kde je ve skriptu hodnota pevně nastavena, aby tento objekt vytvořil dolní index.


Ukázka výřezu mapy po aplikaci skriptu geology.bas

STÁHNOUT SKRIPT
(Pro stažení klikněte pravým tlačítkem na odkaz a zvolte uložit jako)