cadssistantEnglishAnmelden

RezepteAutoLISP

Kann KI eine AutoLISP-Routine schreiben und sie in AutoCAD für mich ausführen?

Ja. Tippen Sie „Schreib ein LISP, das auf jeden Kreis auf Layer HOLES eine Mittelpunktmarkierung zeichnet, führ es aus und sag mir, wie viele es gemacht hat“. cadssistant schreibt die Routine, wertet sie direkt in Ihrer AutoCAD-Sitzung aus (keine Datei zu speichern, kein APPLOAD), liest den Rückgabewert zurück und antwortet mit der Anzahl (sagen Sie „und heb sie hervor“, um die neuen Elemente mit Griffen zu sehen). Scheitert der Ausdruck, sieht es die Meldung, korrigiert die Routine und führt sie noch einmal aus. Jeder Ausdruck, den es auswertet, steht im Chat mit dem Wert, der zurückkam. Um die Routine zu behalten, sagen Sie „zeig mir den Code als .lsp, die ich laden kann“.

Geprüft am 2026-11-01

Was Sie tippenBefehl: CADSSISTANT

Schreib ein LISP, das auf jeden Kreis auf Layer HOLES eine Mittelpunktmarkierung zeichnet, führ es aus und sag mir, wie viele es gemacht hat

Fügen Sie den Satz in die Palette ein, oder wählen Sie ihn aus den Rezepten im Chat.

Was cadssistant tut

  1. Schreibt die Routine als eine AutoLISP-Form (ein progn mit einer repeat-Schleife) und wertet sie in der offenen Zeichnung aus, was den Wert liefert.
  2. Prüft den Wert: die Zahl der Markierungen oder eine Fehlermeldung. Ein Fehler geht in den nächsten Versuch ein; Sie tragen ihn nicht von Hand hin und her.
  3. Antwortet mit der Anzahl; der ausgeführte Ausdruck bleibt im Chat sichtbar. Sagen Sie „heb sie hervor“, dann versieht es die neuen Elemente mit Griffen, damit Sie sie sehen. Verlangen Sie ein dateifertiges defun, um es zu behalten.

Dieselbe Aufgabe in AutoLISP

(progn
  (setq ss (ssget "_X" '((0 . "CIRCLE") (8 . "HOLES"))) i 0 n 0)
  (if ss
    (repeat (sslength ss)
      (setq ed (entget (ssname ss i)) i (1+ i)
            c (cdr (assoc 10 ed)) k (* 1.25 (cdr (assoc 40 ed))))
      (entmake (list '(0 . "LINE") (cons 10 (polar c pi k)) (cons 11 (polar c 0.0 k))))
      (entmake (list '(0 . "LINE") (cons 10 (polar c (* 1.5 pi) k)) (cons 11 (polar c (* 0.5 pi) k))))
      (setq n (1+ n))))
  n)

Zwei Linien durch jeden Mittelpunkt, je 1,25 × Radius lang pro Seite, auf dem aktuellen Layer. Liefert die Zahl der markierten Kreise.

Gut zu wissen

  • Verlangen Sie eine Anzahl oder eine Zusammenfassung statt einer Auflistung jedes Elements: Eine kurze Antwort lässt sich leichter prüfen, und eine sehr lange wird gekürzt.

Mehr aus „AutoLISP“

Befehl: CADSSISTANT

Läuft in AutoCAD 2024 und neuer unter Windows. Kostenlos testen, ohne Karte, ohne API-Schlüssel.

cadssistant holen