Werfen Sie eine Lippe von Lisp

[Angelo2449]

Hallo alle,
In dem untenstehenden Code enthält der >-Befehl < aus der Fenster-Clipboard extrahiert, den lisp-Befehlsnamen zu laufen.
dann Befehl = "line" sollte den Befehl "line" ausführen.
Was kann ich anstelle von (xxxx) schreiben, um das zu bekommen?
Es funktioniert nicht!
Danke.

 (Defun-Panel (/ Befehl)

(Runapp "c:\\autocadsupporto\\libertytre\\\pannelloicone.exe "c:\\\\\\\autocadsupport\\\\\\\\\\\\\\\pannelloicone.tkn" :vlax-true)
(setq Befehl (getcliptext)

(princ "\n")
(princ "command xxxxxxx ")
(Princ-Befehl)
(princ "\n")

(xxxxxxxx)

;

 

[GP.]

(Befehlsbefehl...)

 

[Angelo2449]

Danke.

jedoch > (Befehl des Befehls) < oder (Befehl (Befehl) funktioniert nicht, die in
> Befehl < wird nicht erkannt.
Ich ersetzte auch > Befehl < mit > Befehl < um Analogien zu vermeiden, aber es funktioniert nicht.

 

[GP.]

wie wissen Sie, wo Sie die Linie zeichnen, wenn Sie es nicht geben die Start-und Endpunkte

(setq Befehl "line")
(Befehl "0,0" "3,8")

 

[Angelo2449]

Es ist nicht der Fall,
Der Befehl, den ich ausführen möchte, ist > Referenz < wenn auf dem Kommandozeilentyp > Referenz < dann
> betreten, alles funktioniert.
wie sollte der Code geschrieben werden, um zu arbeiten?

 (Defun-Panel (/ Kommando)

(Runapp "c:\\autocadsupporto\\libertytre\\\pannelloicone.exe "c:\\\\\\\autocadsupport\\\\\\\\\\\\\\\pannelloicone.tkn" :vlax-true)

(setq commandx (getcliptext)

(princ "\n")
(princ "comandox xxxxxxx")
(princ commandx)
(princ "\n")

(setq Befehl)
(komandoy)

;

die Ausführung dieses Codes verursacht:

Befehl: Panel
xxxxxxxxxxxxxxxxxxxx
; Fehler: falsche Funktion: "Referral"

Danke.

 

[GP.]

Der Befehl, den ich ausführen möchte, ist > referenz < wenn auf dem Kommandozeilentyp > referenz < dann > enter < , alles funktioniert.
so wie sollte der Code geschrieben werden, um zu arbeiten

Aber welcher Befehl ist Referenz?
ein Befehl, der von einem Lisp (Autocad-Befehl, nicht eine Lisp-Funktion) übergeben wird, muss der Reihenfolge entsprechen, die Sie aus der Befehlszeile einführen würden.
da letzteres sagt, es funktioniert mit (Befehl ")

 

[Angelo2449]

Es ist klar, dass > Referenz < ein Lisp-Befehl ist!
Der einzige Weg, den ich gerade versucht habe, wo der Code funktioniert, ist das:

(Defun-Panel (/ Kommandox)

(Runapp "c:\\autocadsupporto\\libertytre\\\pannelloicone.exe "c:\\\\\\\autocadsupport\\\\\\\\\\\\\\\pannelloicone.tkn" :vlax-true)
(setq commandx (getcliptext)

(princ "\n")
(princ "comandox xxxxxxx")
(princ commandx)
(princ "\n")

(cond)
((= Kommandox "Referenz") (Referenz))
((= Kommandox "chargerif") (loadrif))
................................
................................
................................
;

;

aber aufrichtig erfüllt mich nicht!

 

[GP.]

Es ist klar, dass > Referenz < ein Lisp-Befehl ist!

Natürlich nicht.

dann Befehl = "linea" sollte den Befehl "line" ausführen.

Sie wollen starten Funktion lisp, wenn diese zu einer anderen Datei (lsp) gehört, ist die Syntax zu verwenden (c:comandoy)

 

[GP.]

Nachweis mit:
(Lesen Sie das Kommando)

 

[Angelo2449]

Es funktioniert nicht, denn jetzt nur mit der Verwendung von > cond < I erhalten das Ergebnis.

 

[GP.]

(eval)

 

[Angelo2449]

Perfekt!
Großartig, danke!