---

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

---

Hi,

hast Du die Verweise auf AutoCAD entsprechend gesetzt? (oder arbeitest Du mit LateBindung?)

Wenn Du mal einen Haltepunkt auf die fehlerhafte Zeile setzt und dann in der Überwachung den Ausdruck 'ACAD.ActiveDocument.ModelSpace' analysierst, hast Du da eine Count-Angabe?

- alfred -

------------------
www.hollaus.at