---

Bei Nutzung einer externen Anwendung durch (startapp ..) und warten in einer Lisp-Schleife macht Autocad keinen Screen-Refresh. Wenn ich eine andere Anwendung nach vorne hole oder meine externe Anwendung über dem Autocad-Screen zu bewegen, wird der Autocad-Screen falsch oder weiss dargestellt.

(startapp "extern.exe")
(while (not(findfile rfile)) (command "._delay" 100) )

Gibt es eine Möglichkeit dies zu verhindern?

Hans-Peter

------------------
Hans-Peter

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

---

(princ)  ?

aber warum führst du die Extern.exe nicht mit der Methode "Run" des WSCRIPT.SHELL - Objektes aus ... dann macht auch dein Lisp nicht weiter , bis Extern.Exe wieder geschlossen wird

------------------
      - 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

---

Hallo,

Danke für den Tip.
Werde ich auch mal testen.
Leider würde das aber nicht in einer Autocad OEM funkionieren wo es ja kein VLAX gibt.

Grüsse,

Hans-Peter

------------------
Hans-Peter

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

---

Hallo,

Gerade mal getestet. Da wartet aber nichts. Mag aber am PascalScript-Interpreter liegen.

(setq shell (vlax-create-object "WScript.Shell"))
(vlax-invoke shell "run" (strcat "\"pdScript.exe\" \"C:\\Dokumente und Einstellungen\\...\\Eigene Dateien\\Pascal scripts\\Samples\\AutocadDialog\\AutocadDialog.dpas\" \"/pds{hide-from-taskbar=true}\" \"450\" \"150\" \"" rfile "\""))

Grüsse,

Hans-Peter

------------------
Hans-Peter

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

---

und so ?

(vlax-invoke shell "run" (strcat "\"pdScript.exe\" \"C:\\Dokumente und Einstellungen\\...\\Eigene Dateien\\Pascal scripts\\Samples\\AutocadDialog\\AutocadDialog.dpas\" \"/pds{hide-from-taskbar=true}\" \"450\" \"150\" \"" rfile "\"") 1 :vlax-true)

bei unsichtbar 1 durch 6 ersetzen

------------------
  - 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

---

Hallo,

1 :vlax-true hat funktioniert!
Danke für den Tip.
Leider bleibt das Manko das man VLAX braucht.

Hans-Peter

------------------
Hans-Peter

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

---

Hallo,

Ich nutze es nun erst mal so:

Code:

---

(defun c:pdia ( / rfile techo shell );Öffnen pdScript Dialog
(princ "\nWarte auf Dialog Ende\n") ;
(setq rfile (strcat (getenv "TEMP") "\\~pdia_return.txt" )) ;Resultfile für Return-Data und Ende-Signal in der Startapp-Version
(setq techo(getvar "CMDECHO")) ;
(setvar "CMDECHO" 0) ;aus
(if (findfile rfile) ;
(vl-file-delete rfile) ;Altes Resultfile erst mal löschen
) ;
(if (null vlax-add-cmd)(vl-load-com)) ;
(if (null vlax-add-cmd) ;
(progn ;
(startapp "pdScript.exe" (strcat "\"C:\\Dokumente und Einstellungen\\wickh.INTERLUEBKE\\Eigene Dateien\\Pascal scripts\\Samples\\AutocadDialog\\AutocadDialog.dpas\" \"/pds{hide-from-taskbar=true}\" \"450\" \"150\" \"" rfile "\""))
(while (not(findfile rfile)) ;
(command "._delay" 100) ;
) ;
) ;
(progn ;
(setq shell (vlax-create-object "WScript.Shell")) ;
(vlax-invoke shell "run" (strcat "\"pdScript.exe\" \"C:\\Dokumente und Einstellungen\\wickh.INTERLUEBKE\\Eigene Dateien\\Pascal scripts\\Samples\\AutocadDialog\\AutocadDialog.dpas\" \"/pds{hide-from-taskbar=true}\" \"450\" \"150\" \"" rfile "\"")1 :vlax-true)
) ;
) ;
(princ "\nDialog beendet") ;
(setvar "CMDECHO" techo) ;wieder an
(princ) ;
) ;

---

------------------
Hans-Peter

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