---

Hallo zusammen,

Bin in Sachen Lisp kompletter Neueinsteiger. Deswegen...

Generell sollte man ja für alle Befehle in Autocad Lisp Files den englischen Befehl benutzen.
Wozu stehen jedoch die Sonderzeichen "-" (Minus), "." (Punkt) und "_" (Unterstrich) - teilweise in Kombination?
z.b. (command "_LAYER" "_on" "*" "")

Gibt es im Netz eventuell eine Seite bei der der englische Behl (inkl. Syntax) eines deutschen Behls angezeigt wird?
aktuell benutze ich zusätzlich das Englische Sprachpaket.
z.b.
http://www.cadmaro.de/index.php/dt-engl-befehlsreferenzen
https://www.cadforum.cz/cadforum_en/command.asp

1000 Dank

[Diese Nachricht wurde von Temuedschin am 14. Feb. 2021 editiert.]

[Diese Nachricht wurde von Temuedschin am 14. Feb. 2021 editiert.]

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

---

Unterstrich vor englischem Befehlsname: wird in allen Sprachversionen verstanden (z.B. _Circle zeichent immer einen Kreis, egal ob in deutschem, französischem oder chinesischem AutoCAD). Gilt sinngemäß auch für Optionen. (Damit laufen LISP-Programme in allen Sprachversionen - wenn sie denn laufen ;-) )

- vor Befehlsname: wird verwendet, um ein eventuell standardmäßig erscheinendes Dialogfenster zu unterdrücken und die sog. Befehlszeilenversion des Befehles zu aktivieren.

. vor Befehlsnamen: es wird immer der originale AutoCAD-Befehl gestartet für den Fall, daß dieser Befehl vom Anwender umdefiniert wurde.

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 14. Feb. 2021 editiert.]

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

---

Ach so, oben vergessen:
mit (getcname ...) kannst dir in der deutschen Sprachversion die Befehle hin und her übersetzen lassen.

Befehl:
Befehl: (getcname "Kreis")
"_CIRCLE"

Befehl: (getcname "_Circle")
"KREIS"

Im Netz findest Du auch mehrere mehr oder weniger aktuelle Tabellen, z.B. hier.

Wenn es Dir um nähere Informationen zur Anwendung eines Befehles geht (oder was meinst Du mit "Syntax"?), da hilft meistens die F1-Taste - oder dieses Forum hier. ;-) .

Oder auch mal hier gucken.

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 14. Feb. 2021 editiert.]

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

---

Es gibt auch andere Sonderzeichen für die Befehlsnamen - siehe:
https://www.cadforum.cz/cadforum_en/qaID.asp?tip=2425

V.Michl, www.cadstudio.cz

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

---

Zitat:

---

Original erstellt von VMichl:
Es gibt auch andere Sonderzeichen für die Befehlsnamen

---

Ich muß gestehen, daß ich noch nie innerhalb einer LISP-Routine einen transparent auszuführenden Befehl eingebaut habe. Aber das funktioniert tatsächlich. Man lernt hier immer wieder etwas Neues dazu ...

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

@ Jürgen
gib mal ein Beispiel bitte.

------------------
Gruß Wolfgang

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

---

Wie auch bei Jürgen,
man lernt immer dazu,
Und ehrlich gesagt wie oft habe ich mir das gewünscht jetzt gehts 
Hier mal mein Test vielleicht hilftes ja einem weiter oder hat Spaß daran.

Code:

---

(defun c:PLTest (/ activedoc)
;;;
  (defun taat ()
    (entmake
      (list
(cons 0 "LINE")
(cons 10 '(0.0 0.0 0.0))
(cons 11 (getvar "lastpoint"))
(cons 210 '(0.0 0.0 1.0))
      )
    )
  )
;;;
  (vl-load-com)
  (vlax-remove-cmd "taat")
  (vlax-add-cmd "taat" 'taat "taat" ACRX_CMD_TRANSPARENT)

  (progn
    (setq activedoc (vla-get-ActiveDocument (vlax-get-acad-object)))
    (command "_.pline")
    (while (not (command pause))
      (vla-SendCommand activedoc "'taat ")
    )
  )
)

---

------------------
Gruß Wolfgang

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

---

Trans_LISP.mp4

Zitat:

---

Original erstellt von Meldin:
@ Jürgen
gib mal ein Beispiel bitte.

---

Ein wirklich sinnvolles Beispiel war mir auf die Schnelle nicht eingefallen. Ich hab nur mal getestet, ob das (innerhalb einer LISP-Routine Befehle transparent ausführen zu lassen) überhaupt geht.

Siehe angehängtes Kurzvideo.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Zitat:

---

Original erstellt von Meldin:

Hier mal mein Test ...

---

Saucooles Beispiel, alle Daumen hoch. ;-)

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Perfekt. Alles ausführlich erklärt.

1000 Dank euch allen.

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

---

AutoCAD bietet ja die Möglichkeit an, Befehle transparent auszuführen.
z.b. '_layon schaltet während eines aktiven Befehls alle Layer ein und nimmt den ursprünglichen Befehl wieder auf.

Kann man ein per Lisp selbst erstellten Befehl auch transparent verwenden?

Mein selbst erstellter Befehl "layoffall" funktioniert weder mit "'_layoffall" noch mit "(layoffall)" oder anderen Eingaben transparent.

Danke.

[Diese Nachricht wurde von Temuedschin am 24. Sep. 2026 editiert.]

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

---

Hallo,

Dass man Lisp-Befehle so erstellt, dass sie transparent aufgerufen werden können, meine ich mal irgendwo (hier im Forum!?!) gelesen zu haben, dass das irgendwie über Umwege geht. Weiß und finde ich aber spontan nicht mehr...

Deine Befehlsaufrufe:
"_layoffall"
Der Unterstrich sagt ACAD, dass er die Internationale Version des Befehls aufrufen soll... Von deinem Lispbefehl wird es aber wohl keine internationale Version geben ;-)
Du könntest deine Funktion einmal mit dem Namen "_layoffall" und einmal als "layausall" definieren (oder besser mit der einen die andere aufrufen), aber wozu?

"(layoffall)"
Wenn du im DEFUN ein "C:" vor den Namen schreibst, ist das ein Befehl.
Ohne das "C:" ist es eine Funktion.
Einen Befehl kannst du dann einfach durch Eingabe des Namens in ACAD aufrufen, eine Funktion rufst du in Lisp auf.
Mit dem Namen in der Klammer rufst du eine Funktion auf. Du hast aber wohl einen Befehl definiert.
Einen Befehl kannst du entweder mit (command "layoffall") oder (bei Lisp-Befehlen) mit (c:layoffall) aufrufen.

Gruß
Stefan

[Diese Nachricht wurde von Vino am 25. Sep. 2026 editiert.]

[Diese Nachricht wurde von Vino am 25. Sep. 2026 editiert.]

[Diese Nachricht wurde von Vino am 28. Sep. 2026 editiert.]

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

---

Zitat:

---

Original erstellt von Temuedschin:
Mein selbst erstellter Befehl "layoffall" funktioniert weder mit "'_layoffall" noch mit "(layoffall)" oder anderen Eingaben transparent.

---

Dein (vermutlich in Lisp) selbst erstellter Befehl ist ja auch kein CAD Befehl. Transparente Befehle führt man während einer aktiven COMMAND-Pipeline aus.

Bei einem laufenden Command kann man aber auch in Lisp definierte Befehle transparent aufrufen. Siehe beispielsweise mein CADCAL+CALScript (kostenfrei von https://www.calscript.com/), das ausschließlich in Lisp programmiert ist und die (vermutlich in C# geschriebene) AutoCAD Applikation GeomCAL nachbildet und um eine Dialogsteuerung ergänzt. Diese Anwendung wird allermeistens transparent aufgerufen, um viele Hilfskonstruktionen zu vermeiden.

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

---

Hier das Beispiel wie oben nur ein klein wenig umgemodelt. Du brauchst das nur auszuführen

Code:

---

  (defun taat (/ acadObj doc layers clayer)
    (setq acadObj (vlax-get-acad-object)
        doc    (vla-get-ActiveDocument acadObj)
        layers  (vla-get-Layers doc))
   
  ;; Layer "0" als aktuell setzen
  (setvar "CLAYER" "0")
 
  ;; Durch alle Layer-Objekte iterieren
  (vlax-for layer layers
    ;; Jeder Layer außer Layer "0" wird ausgeschaltet
    (if (/= (strcase (vla-get-Name layer)) "0")
      (vla-put-LayerOn layer :vlax-false)
    )
  )
  )
 
;;;
  (vl-load-com)
  (vlax-remove-cmd "taat")
  (vlax-add-cmd "taat" 'taat "taat" ACRX_CMD_TRANSPARENT)

---

und wenn du z.B. den Befehl Polininie ausführst brauchst du nur während des laufenden Befehls ein Hochkomma und dann TAAT also so 'taat einzugeben und schon wird der Befehl ausgeführt.

------------------
Gruß Wolfgang

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