---

Hallo,

kann mir jmd sagen, warum dieser Code nicht funktioniert?

Dim acadApp As AcadApplication

On Error GoTo error
Set acadApp = GetObject(, "AutoCad.Application")
error:
If Err.Number = 429 Then
    If MsgBox("Acad ist nicht gestartet, möchten Sie es starten?", vbOKCancel) = vbOK Then
    Set acadpp = CreateObject("AutoCAD.Application")
    'acadApp.Visible = True
   
End If
Else
MsgBox "ACAD ist gestartet"
End If

acadApp.ActiveDocument.SendCommand ("filedia" & vbCr & "0" & vbCr)
acadApp.ActiveDocument.SendCommand ("öffnen" & vbCr & "C:\tmp\test\1-250.dwg" & vbCr)
acadApp.ActiveDocument.SendCommand ("filedia" & vbCr & "1" & vbCr)

End Sub

Also ACAD startet mit einem leeren Dokument, aber danach ists aus. Entweder Acad stürzt ab (wenn ACAD bereits gestartet) oder derLaufzeitfehler 91," Objektvariable oder With-Blockvariable ist nicht festgelegt" tritt auf, sobald der erste sendcommand befehl gestartet wird.

MfG

CB_

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

---

Kann Dir leider nicht sagen warum das nicht geht, aber warum benutzt Du denn die Sendcommand-Funktion und nicht die Open-Funktion des Acads?

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

---

Weil ich die nicht kenne... (schäm)

bin absoluter Acad-VB-Noob.

Ich versuchs mal mit der open Methode.

und wie stelle ich filedia auf 0?

Ich muss für einen anderen Befehl alle Dialoge abschalten...

hmmmm.. vielleicht stelle ich filedia über ein lisp auf 0???

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

---

So gehts besser..

acadApp.Documents.Open ("C:\tmp\test\1-250.dwg")
acadApp.ActiveDocument.SendCommand ("filedia" & vbCr & "0" & vbCr)
'bis hierhin gehts
acadApp.ActiveDocument.SendCommand ("-etransmit" & vbCr & "zip" & vbCr & "C:\tmp\test\1-250" & vbCr _
    & vbCr & "j" & vbCr & "n" & vbCr & "n" & vbCr & "j" & vbCr & "n" & vbCr & vbCr)

acadApp.Documents.Close

ABER: VB ist zu schnell, der Befehl wird schneller übergeben als Acad ihn verarbeiten kann...

Kennt da jmd ne Lösung??

MfG

CB_

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

---

@cb_
Ich kenne mich auch nicht sonderlich in VB aus, aber eines weiß ich:
"SendCommand" sollte man sicher nur dann nehmen, wenn es anders nicht geht...
Geh' mal bitte in den VBA-Editor und benutze die Suche aus dem Objektkatalog... Da kommt bei mir nach der Suche von setvar folgendes raus:

Code:

---

Sub SetVariable(Name As String, Value)
    Element von AutoCAD.AcadDocument
    Sets the value of an AutoCAD system variable

---

Ein Tip:
Steig erst mal durch die Objektstruktur und die grundlegende Bedienung des VBA-Editors durch bevor Du wild rum-"sendcommandest".
Wenn schon VBA (und nicht lisp) dann einigermaßen richtig.

------------------
Ciao,
Marc

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

---

hi zusammen,
@cb
versuch es doch mal über eine externe script-datei (z.b. test.scr)
i(st eine art batch-datei, in der du die befehle in der reihenfolge hinterlegt, wie du sie auch eingeben würdest)

aufrufen kann man die dann wie folgt:

Private Sub CommandButton5_Click()
Dim acadApp As AcadApplication
Set acadApp = GetObject(, "AutoCad.Application")
'Dialogboxen unterdrücken
acadApp.ActiveDocument.SendCommand ("filedia 0 ")
acadApp.ActiveDocument.SendCommand ("_script C:\test.scr" & vbCr)
End Sub

Inhalt der test.scr (text-datei)
----------------
filedia
1
-etransmit
zip
"C:\1-250"

j
n
n
n
n

-----------

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

---

Moin OlliBär,

danke für Deinen Tipp, werde ich mal probieren.

Habe aber nun schon vorher eine Lösung. Guckst Du hier: http://ww3.cad.de/foren/ubb/Forum259/HTML/000550.shtml

MfG

Christian

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