Při práci s objekty Collection často potřebujeme vybrat určitý prvek ze souboru. Výběr prvku ze souboru se provádí pomocí medody Item. Metoda Item potřebuje pro svoji činnost použití identifikátoru pro specifikaci hledané položky. Jako identifikátor se používá:
Sub Ch2_ProchazeniVrstev() ' procházení přes soubor On Error Resume Next Dim I As Integer Dim msg As String msg = "" For I = 0 To ThisDrawing.Layers.count - 1 msg = msg + ThisDrawing.Layers.Item(I).Name + vbCrLf Next MsgBox msg End Sub
Vysvětlení předchozího kódu:
První řádek kódu nejprve ošetřuje výskyt chyby při běhu funkce. Dále jsou definovány proměnné I (integer) a msg (řetězec). Následuje cyklus běžící přes všechny vrstvy ve výkresu. V cyklu je do proměnné msg vždy přiřazeno jméno právě procházené vrstvy. Po skončení cyklu je zobrazen celý obsah proměnné msg pomocí metody MsgBox.
Zdrojový kód funkce Ch2_ProchazeniVrstev().
Sub Ch2_NalezeniVrstvyPRVNI() ' použití metody Item pro nalezení vrstvy se jménem "PRVNI" On Error Resume Next Dim PrvniVrstva As AcadLayer Set PrvniVrstva = ThisDrawing.Layers.Item("PRVNI") If Err <> 0 Then MsgBox "Vrstva 'PRVNI' neexistuje." End If End Sub
Vysvětlení předchozího kódu:
První řádek kódu nejprve ošetřuje výskyt chyby při běhu funkce. Dále je definována proměnná PrvniVrstva (typu AcadLayer). Další řádek kódu se pokusí nastavit proměnnou PrvniVrstva, aby ukazovala na vrstvu se jménem "PRVNI". Následuje zjištění jestli v předchozím řádku kódu nedošlo k chybě (jestli vrstva "PRVNI" ve výkresu existuje). V případu neexistence vrstvy "PRVNI" ve výkresu, je zobrazena chybová hláška "Vrstva 'PRVNI' neexistuje".
Zdrojový kód funkce Ch2_NalezeniVrstvyPRVNI().