---

Hallo zusammen,

wenn ich aus VBA ein Lispprogramm aufrufe, kann ich irgendwie in VBA auf das Ende des Lispprogrammes warten oder das Ende des Lsipprogrammes abfragen?

Vorab schon mal Danke
Gerhard

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

---

Lass im Lisp am Ende eine Systemvariable USSERS o.ä. setzen und lass im VBA-CODE ne schleife laufen bis userrs den erwarteten wert hat.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hi Gerhard,

wie rufst Du Dein Lisp auf? In der Regel (wenn VBA und nicht dotNET) wartet die Fortsetzung Deines Codes sowieso auf Beendigung des vorigen Statements.

- alfred -

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

---

Hallo Alfred,

ich rufe das LISP-Programm aus VBA auf und waret in der Lisproutine auf eineige Benutzereingaben zB Einfügepunkt und Objektwahl.

Das Lispprogramm wird auch aus VBA aufgerufen und warten auf das der Enfügepunkt gestezt wird ... aber das VBA-Programm läuft weiter

Private Sub openWBlockType()
   
    ThisDrawing.SendCommand "blockErstellen "
    Dim blockDWG, zngName As String
    blockDWG = "c:\temp\TempALLWBO.dwg"
   
    'Dateinamen für Bilddatei zusammenbauen
    ThisDrawing.Application.Documents.Open (blockDWG)
    ThisDrawing.Application.ZoomAll
    Dim dwgName, pfad, pngName As String
    dwgName = Replace((LCase(ThisDrawing.GetVariable("DWGname"))), ".dwg", "")
    pfad = ThisDrawing.GetVariable("dwgprefix")
    pngName = pfad + dwgName + ".png"
   
    checkFilename (pngName)
    plotPNGFile (pngName)
   
    ThisDrawing.Close (False)
End Sub

mfg
Gerhard

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

---

Hi Gerhard,

ok, ich gehe davon aus, dass SendCommand auch solange/soviel 'sendet', bis dem Befehl alle Parameter übergeben sind und dann auch der (LISP-)Befehl fertig abgearbeitet ist.

Von der Strategie des Programmierens hast Du hier schon ein eher gewaltiges Problem (einer der Gründe, wieso 'SendCommand' eher zu vermeiden ist) ==> wenn der User mit <ESC> Dein LISP abbricht (in Deinem Fall keine Koordinate eingibt), dann stehst Du mit Deinem nachfolgenden VBA-Code auch an.

D.h. die weniger saubere Variante wäre, auch den Einfügepunkt schon in VBA abfragen (dann kannst Du handeln, wenn User die Punkteingabe abbricht) und diesen Punkt dann mit 'SendCommand' ans LISP zu transportieren.

Die (soweit ich das jetzt vermuten kann) sauberste Variante wäre, die Blockeinfügung in VBA komplett zu machen, ich weiss aber nicht, was in Deinem LISP so alles drinsteckt.

- alfred -

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

---

Hallo Alfred,

in meinem Lisp steckt nicht sehr viel drinnen, ich erstelle nur einen WBlock. Habe das auch zuvor mit VBA gemacht, mein Problem ist nur der Basispunkt vom WBlock wenn ich diesen wieder einfügen will.

Ich wollte mir das verschieben der Geometrie auf den 0,0,0 Punkt ersparen.

Hast du vielleicht einen Tipp wie ich das Problem lösen kann?

Lg.
Gerhard

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

---

Hi Gerhard,

Code:

---

Hast du vielleicht einen Tipp wie ich das Problem lösen kann?

---

...welches Problem, jetzt sind's schon zwei 

a) das mit dem Geometrie-Schieben vor 'wblock'? Sollte eigentlich kein Problem mehr sein, ist ja schon beantwortet

b) das mit dem Warten? Dann nimm aus meiner obigen Antwort die 'weniger saubere Variante'

- alfred -

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