Iterace přes objekt Collection

Přehled informací

Výběr prvku ze souboru

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á:

Příklad procházení Layer collection (souboru vrstev) a zobrazení všech vrstev v tomto souboru

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

Příklad nalezení vrstvy se jménem "PRVNI"

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