---

Hallo Forum!

Wie macht man in VBA eine ordentliche Typüberprüfung bzw. welche Methode bietet sich da an?

weil das ist nicht das gelbe vom ei:

Code:

---

dim l as AcadLine
if l.OjectName = "AcDbLine" then ....

---

lg peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

entweder mit einem TypeOf (funktioniert nur via If-Abfrage)

Code:

---

Sub pistolpete()
    Dim o
    Set o = ThisDrawing.ModelSpace.Item(0) 'leere Zeichnung mit einer Linie
    If TypeOf o Is IAcadLine Then Debug.Print "yes"
End Sub

---

Oder via TypeName:

Code:

---

?typename(thisdrawing.ModelSpace.Item(0))
IAcadLine

---

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Antwort, genau das, was ich gesucht habe!

lg Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP