---

Hallo
Das würde zwar auch in ein Excel Forum passen, aber dort kennt wahrscheinlich keiner Autocad ;-)

Ich habe versucht von Excel aus mit
    Set XlApp = GetObject(, "Excel.Application") und ähnlichem
auf Acad zuzugreifen (umgekehrt von Excel aus funktionierts super)
und bekomme andauernd die Fehlermeldung, dass ActiveX dieses Objekt nicht öffnen oder ansprechen kann (oder so ähnlich).
  Acad ist installiert und die Acad Objektreferenz hab ich auch geladen
Geht soetwas gar nicht (von Excel über VBA auf Acad) oder nur einfach anders?

Danke

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

---

Hallo,

mehrere Wege führen nach Rom.
Wenn Du den Verweis gesetzt hast, dann funktioniert das ...

Code:

---

Sub test()

    Dim acApp As AutoCAD.AcadApplication
    Set acApp = New AutoCAD.AcadApplication
   
    acApp.Visible = True

End Sub

---

Gruss TP

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

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

---

Hallo Taz_Cad

1. Du mußt den Verweis auf die AutoCad-Objektbibliothek gesetzt haben.
2. Du mußt AutoCad gestartet haben.
3. Du mußt die Version von Autocad beachten
4. Dann müßte folgendes funtkionieren

On Error Resume Next
Err.Clear
Set ACADServer = GetObject(, "AutoCad.Application.15")
If Err.Number = 0 Then
    AutoCADVersion = "2000"
    Exit Function
End If
Err.Clear
Set ACADServer = GetObject(, "AutoCad.Application.16")
If Err.Number = 0 Then
    AutoCADVersion = "2004"
    Exit Function
End If
usw.

------------------
Gruß Jörn

ergänzt:
Stimmt natürlich auch was BloodyMess geschrieben hat.
Er war etwas schneller mit seiner Antwort.
GetObject = AutoCad bereits gestartet
New AutoCAD.AcadApplication = AutoCad starten

[Diese Nachricht wurde von yamaha am 03. Mai. 2005 editiert.]

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