---

Hallo,

wie rufe ich den ein vorhandenen Lispbefehl aus Lisp heraus auf ?, klingt vielleicht ein wenig blöd aber (command "meinbefehl") geht nicht während (command "_move") funktioniert.
Desweiteren würde ich gern aus Lisp heraus eine beliebige Datei öffnen können z.B. Excel, Word, oder auch eine Internetseite aufrufen, ist das machbar, oder nur über Kombination mit ActiveX, VBA ?

Gruß, Jürgen

----------www.pc-ideal.de

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

---

zum Thema Browseraufruf:

CADchup's SiCADDE

zum Thema Word (Excel):

CADmium

Zum Thema Aufruf von LSP in LSP:

(da beginne ich jetzt vielleicht doof)

Wenn das LSP im LSP definiert ist (also die aufzurufende Funktion eine Funktion in deinem LSP ist)

Code:

---

(defun c:deineFunktion ())
blablabla
blablabla
(deineSubfunktion); hier wird deine Subfunktion aufgerufen
blablabla
blablabla

(defun deineSubFunktion); hier wird deine Subfunktion definiert
blablabla
blablabla

---

Wenn deine LSP eine externe LSP ist:
(load "deinLISP.lsp")

Beachte dabei aber deine Suchpfade; dies bedeutet die zuladende LSP muss im Suchpfad stehen oder der Suchpfad muss auf das Verzeichnis der zuladenden LSP verweisen.

------------------
Grüsse

Thomas

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

---

...und wenn Du einen Lisp-Befehl ausführen willst:

(c:deinBefehl)

------------------
Gruß, Ernst
http://www.geopaint.at

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

---

Hallo, Danke Tunnelbauer und Geos,

der Aufruf im Lisp selber war mir schon klar, ist ja so einiges möglich :

(if (= au 1)(c:meinBefehl)) ;externer Lispaufruf

Browser-Aufruf:
(defun GetBrowser (/ str) (substr (setq str (vl-registry-read "HKEY_CLASSES_ROOT\\htmlfile\\shell\\open\\command")) 2 (1- (vl-string-search "\" " str))))
(startapp (GetBrowser) "http://www.pc-ideal.de")

(setq we (getfiled "Select a Lisp File" "" "lsp" 0))    ;gibt den Dateinamen + Pfad zurück

(command "_start" "winword P:\compass\Mail.doc")  ;Word-Document öffnen

Gruß, Jürgen

---------www.pc-ideal.de

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

---

Eine ganz andere Frage,

wenn ich aus einer Liste mit subst Elemente lösche, dann bleiben da, wenn ich das an eine Listbox übergbe nach dem löschen leere Felder drin, gibts die Möglichkeit ein Listenelement ganz zu entfernen, ist subst der falsche Befehl ?

In der Art:

(if (= la nil)(setq la '()))
(if (= en 1)(setq la (subst "" ff1 la)))
(if (= hi 1)(setq la (cons ff1 la)))

Gruß, Jürgen

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

---

Hallo Jürgen,

ja, gibts es: VL-REMOVE / VL-REMOVE-IF / VL-REMOVE-IF-NOT

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

Danke Holger !

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

---

Hallo,

mit dem externen Aufruf einer Lisproutine aus Lisp heraus hab ich jetzt doch noch ein Problem, also wenn ich (c:meinBefehl) in die Befehlszeile eingebe, dann funktioniert das, das gleiche aus Lisp heraus geht aber nicht mehr sobald ich eine Variable verwende, so wie folgt:

(if (= au 1)(c:meinbefehl))    ;geht

(setq arr (strcat "c:" arr))  ;die Variable arr enthält meinBefehl
(if (= au 1)(arr))            ;geht nicht wiso ?
             

Gruß, Jürgen

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

---

Hallo Jürgen,

du musst einen Symbolnamen übergeben, und keinen String.
Schau dir folgende Zeilen an, dann wird es klarer.

Code:

---

(defun c:HALLO ()
(alert "Hallo")
)
(setq FNAME "HALLO")
((eval (read(strcat "C:" FNAME))))

---

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

Hallo Holger,

nicht schlecht Dein Wissen ! Danke, jetzt gehts !

also dann so:
(setq arr (eval (read (strcat "c:" meinBefehl))))
(if (= au 1)(arr))

Gruß, Jürgen

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