---

Hallo,
ich bekomme in der Zeile Anzahlobjekte = ACAD.ActiveDocument.ModelSpace.Count folgende Fehlermeldung beim ausführen:

Laufzeitfehler 48
Fehler beim laden einer DLL

Wenn ich die oben beschriebene Zeile entferne funktioniert der Rest des Programms (die Ausgabe in die Kommandozeile) ohne Probleme.

Kennt jemand eine Lösung für dieses Problem?

Vielen Dank für Eure Hilfe

Sub Main()

    Dim Anzahlobjekte As Long
    Dim ACAD As AcadApplication 'Create ACAD variable of type AcadApplication
    Set ACAD = GetObject(, "AutoCAD.Application") 'Get a running instance of the class AutoCAD.Application

    ACAD.ActiveDocument.Utility.Prompt "Hello from Excel!" 'Print a message to the AutoCAD command line

    Anzahlobjekte = ACAD.ActiveDocument.ModelSpace.Count
    MsgBox (Anzahlobjekte)

End Sub

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

---

Sorry, falsches Forum...

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