| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Lisp-Programm abwarten (962 mal gelesen)
|
gerhard123 Mitglied techn.Angestellter
Beiträge: 151 Registriert: 29.11.2007
|
erstellt am: 08. Apr. 2009 08:32 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 ACAD 2008 Mechanical
|
erstellt am: 08. Apr. 2009 08:47 <-- editieren / zitieren --> Unities abgeben: Nur für gerhard123
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 |
Ex-Mitglied
|
erstellt am: 08. Apr. 2009 08:48 <-- editieren / zitieren -->
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 |
gerhard123 Mitglied techn.Angestellter
Beiträge: 151 Registriert: 29.11.2007
|
erstellt am: 08. Apr. 2009 08:57 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied
|
erstellt am: 08. Apr. 2009 09:06 <-- editieren / zitieren -->
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 |
gerhard123 Mitglied techn.Angestellter
Beiträge: 151 Registriert: 29.11.2007
|
erstellt am: 08. Apr. 2009 09:16 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied
|
erstellt am: 08. Apr. 2009 09:29 <-- editieren / zitieren -->
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 |