Far ripartre un lisp

[canotta]

Guten Abend, alle!
Ich habe eine Spieß in der Schule, die ich im Internet gefunden habe... aber jedes Mal, wenn ich ihn zurückrufen muss... wäre es sehr bequem, wenn am Ende aller Operationen, eine Sache wie das durch das Programm benötigt wird, wollen Sie das Programm ja oder nein starten?
Wissen Sie, wie man erstellt, das ist, diese Funktion hinzuzufügen? oder wenn Sie ein Beispiel kennen, das diese Funktion bereits nutzt, ... dass ich im Netz gesucht habe, aber kein Ergebnis
Danke im Voraus

 

[GP.]

um immer das Programm, das Sie verschiedene Möglichkeiten haben, zur Verfügung zu haben, stelle ich Ihnen die einfachste, füge die Datei zum Inhalt der Startgruppe des Appload-Befehls hinzu.

 

[canotta]

Hi, gp!
der Befehl _appload 'Ich benutzte, und ich hatte auch den Befehl zu einem "paletta" Autocad hinzugefügt, wo ich ein Icon mit ps erstellt und jedes Mal, wenn ich wollte, dass lsp ich es anklickte.... dann erkannte ich, dass es bequemer wäre, in die lsp eine Funktion zu integrieren, die von Anfang an alle Prozess neu starten oder einfach stoppen Sie es... aber wenn Sie etwas tun können, um ein Beispiel; Text in Frage einfügen
jetzt die Sache zu erweitern, aber in der Praxis die gleiche Funktion zu halten, dass, wenn ich Ja sage, wir uns vorstellen, dass die Lsp einen Text mit "blauem Zuhause" einfügt und wenn ich sage, kein Text mit "rotem Haus" ... dann versuchen, das Programm neu zu starten, werde ich "arbeiten hinter mir", aber es scheint mir, dass diese Funktion ist ziemlich ähnlich, und tun ein wenig "" von der Basis"", jemand kann es codieren? Ich sah zahlreiche Tutorials an und schoss für das Netzwerk, aber nichts ähnliches wie diese Funktion
guten Abend für alle!! und vielen Dank für die Verfügbarkeit

 

[GP.]

Dies ist ein Beispiel, um die Lispe neu starten nur ein Senden

(defun c:prova ( / type_casa txt)
(Initget "b r g")
(setq type_casa (getkword "\ninserire il tipo di casa): [Blu/Rossa/Gialla] : "
(cond)
(equal type_house "b") (setq txt "blaues Haus")
(equal type_house "r") (setq txt "red house") )
(equal type_house "g") (setq txt "gelbes Haus")
)
(princ "\npoint of insert of text")
(Befehl "_-text" bricht "" txt)
(princ)
)

dieses andere Beispiel wiederholt die Anfrage, bis Sie nach vorne drücken oder exc

(defun c:prova1 ( / type_casa txt)
(sing)
(Progn)
(Initget "b r g")
(setq type_casa (getkword "\ninserire il tipo di casa): [Blu/Rossa/Gialla] : "
(cond)
(equal type_house "b") (setq txt "blaues Haus")
(equal type_house "r") (setq txt "red house") )
(equal type_house "g") (setq txt "gelbes Haus")
)
(falls type_house
(Progn)
(princ "\npoint of insert of text")
(Befehl "_-text" bricht "" txt)
?
)
Nil
)
)
)
(princ)
)

 

[canotta]

Danke! Genau das, was ich meine!