---

Hallo,

(mal wieder ich...  )

Ich versuche über VB von außerhalb eine dwg zu öffnen. Dafür habe ich den folgenden Code:

Code:

---

Public Sub ConnectToAcad()

Dim acadApp As AcadApplication

On Error GoTo error
Set acadApp = GetObject(, "AutoCad.Application")
error:
If Err.Number = 429 Then
        Set acadpp = CreateObject("AutoCAD.Application")
   
End If

AutoCAD.Application.Documents.Open ("C:\tmp\test\1-251.dwg")

Call AutoCAD.Application.ActiveDocument.SetVariable("Filedia", 0)

'AutoCAD.Application.Documents.Close
AutoCAD.Application.Quit

End Sub

---

Interessanterweise funktioniert der Code nur einmal. Beim zweiten Aufruf kommt der Laufzeitfehler 462, "Remote-Server-Computer existiert nicht oder ist nicht verfügbar"

Hab ich AutoCAD etwa falsch beendet oder läuft da heimlich noch eine Instanz ? Was mach ich da falsch ??

MfG

Christian

P.S.: @marc danke für deinen setvar tip. Hat mir schon viel weitergeholfen

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

---

Hi Christian,

geraten, IMHO könntes so besser gehen, sieht zumindest optisch besser aus ;-))

Code:

---

Set acadpp = CreateObject("AutoCAD.Application")
[...]
acadapp.Documents.Open ("C:\tmp\test\1-251.dwg")
[...]
acadapp.quit
set acadapp = nothing

---

lg Nancy 

[Diese Nachricht wurde von startrek am 14. Mrz. 2005 editiert.]

[Diese Nachricht wurde von startrek am 14. Mrz. 2005 editiert.]

[Diese Nachricht wurde von startrek am 14. Mrz. 2005 editiert.]

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

---

Du hast Recht, sieht wirklich viel besser aus. Funktioniert aber gar nicht. Der Code bricht mit der Fehlermeldung
Laufzeitfehler 91, Objektvariable oder With-Blockvariable nicht definert
ab.

Ich finds auch merkwürdig, aber bei VBA wundert mich langsam gar nichts mehr.

MfG

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

---

... hmm, und in welcher Zeile steigt er damit aus?

[edit] von wo aus startest Du denn das Teil eigentlich?

Gruss Nancy

[Diese Nachricht wurde von startrek am 14. Mrz. 2005 editiert.]

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

---

Hallo Nancy,

peinlich, war ein Schreibfehler

acadpp
acadapp

Jetzt siehts schöner aus, geht auch besser...

MfG

Christian

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

---

Natürlich muss ich die Variable acadApp auch wieder entladen:

acadApp.Quit
Set acadApp = Nothing

So funktioniert es..

Vielen Dank an Euch alle...

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