---

Hi!
Habe gerade festgestellt das dieser code bei acad2004 nicht
funktioniert.
Weiss jemand warum??
thx

Public Sub ConnectToAcad()
On Error Resume Next
    Set AcadApp = GetObject(, "AutoCAD.Application")
        AcadApp.Visible = True
        Set ThisDrawing = AcadApp.ActiveDocument
    If Err Then
        Err.Clear
        Set AcadApp = CreateObject("AutoCAD.Application")
        AcadApp.Visible = True
        Set ThisDrawing = AcadApp.ActiveDocument
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
    MsgBox "Jetzt wird ausgeführt " + AcadApp.Name + _
          " Version " + AcadApp.Version

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

---

Hallo CNC,

ich tippe mal darauf, das Du statt

Code:

---

... "AutoCAD.Application" ...

---

schreiben solltest

Code:

---

...  "AutoCAD.Application.15"

---

Bin mir nicht sicher, ob 2004 die '.15' hat

sonst kuck mal in der Regedit unter
HKEY_CLASSES_ROOT -> AutoCAD.Application -> CurVer
was dort als wert eingetragen ist. Das musst Du dann in die Gänsefüsschen schreiben.

Wenn dies nicht funktioniert, kannst mal deinen Fehler näher beschreiben und woŽs hängt.

Gruß TP

------------------

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

---

Also,2004 ist die wersion 16,und 2002 wersion 15.

...  "AutoCAD.Application.15" funktioniert prima

...  "AutoCAD.Application.16" bringt 'ne fehlermeldung:

"Objektvariable oder With-Blockvariable nicht festgelegt"

Der eintrag in der Reg. ist nach Acad2002 ausführen:
HKEY_CLASSES_ROOT\AutoCAD.Application\CurVer="AutoCAD.Application.15"
und
HKEY_CLASSES_ROOT\AutoCAD.Application\CurVer="AutoCAD.Application.16"
nach Acad2004 ausführen

[Diese Nachricht wurde von cnc am 25. Sep. 2004 editiert.]

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

---

Hallo cnc,

ja ok, mein Fehler arbeite halt nur mit MAP und bin von dem her auch von MAP ausgegangen, aber wennŽs nun läuft, dann ist doch ok.

Schönes WE und Grüßle TP

------------------

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