---

Hallo,

Ich bin gerade am testen von einem Lisp und hab das Problem das folgendes nicht funktioniert:

(setq att1 (cdr (assoc 1 (entget (repeat 2 (entnext bl1))))))

Es soll eigentlich das Zweite Attribut der Variablen att1 zugewiesen werden, kann es sein das das entnext auf diese Weise nicht widerholt werden kann ?

Gruß, Jürgen

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

---

Als Lisp-Einsteiger hat man es nicht einfach !

Was ist hier falsch ? Wie kann ich den neuen Attribut-Inhalt "Blatt" dem Block zuweisen ?

(defun c:T3 ()
(setq bl1 (car (entsel "\nBlock wählen:")))
(setq att1 (cdr (assoc 1 (entget (entnext bl1)))))
(princ att1)
(setq att1 (subst '(1 Blatt)att1))
(entmod att1)
(entupd bl1)
)

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

---

Tja, Jürgen, manche Dinge sind nicht so, wie sie auf den ersten Blick erscheinen.

Zu deinem ersten Problem: Glückwunsch erstmal - ein Grundprinzip von Lisp hast du verstanden, nämlich dass man nicht jede Zwischenstufe einer Variablen zuweisen muss, die dann doch keiner braucht. Aber:

(repeat 1000000 (entnext myEntity)) ermittelt eine Million Mal den Nachfolger von myEntity - das geht also auch, wenn man nur zwei Linien in der Zeichnung hat:-(

(repeat 1000000 (setq myEntity(entnext myEntity))

Das allerdings funktioniert nur so richtig, wenn man auch eine Million Linien hat - mit anderen Worten: Das ist dann ein sequenzielles Durcharbeiten.

Dein zweites Beispiel zeigt, dass du wohl einige Probleme mit subst hast - da sind drei Argumente nötig, z.B.

(subst (cons 1 "Irgendeinname")(assoc 1 daten)daten)

'(1 Blatt) wird zwar in irgendeinem Lisp-Programm irgendwo vielleicht einen Zweck erfüllen - hier aber sicher nicht, weil es a) sehr wahrscheinlich nil ist, b) das cons fehlt und c) wie gesagt subst drei Argumente haben möchte.

Lass dich aber nicht entmutigen!

Gruß, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

---

Hallo Mapcar,

Danke für die Hilfe, ich bin das Ganze jetzt noch einmal durchgegangen und es funktioniert, da sind halt doch viele Kleinigkeiten zu beachten, aber Deine Erklärugen sind ja immer recht genau.
Meine Lösung sieht dann so aus:

(defun c:T3 ()
(setq bl1 (car(entsel "\nBlock wählen:")))
(setq att1 (entget (repeat 2 (setq bl1(entnext bl1)))))
(setq attt (cdr (assoc 1 att1)))
(princ attt)
(setq aa (subst (cons 1 "Blatt")(assoc 1 att1)att1))
(princ aa)
(entmod aa)
(entupd bl1)
)

Es wird also der Wert des Zweiten Attributs des gewählten Blockes in Blatt getauscht !
Deine Web-Seiten zu AutoLisp haben mir auch schon oft geholfen, es ist wohl die Einzige deutschsprachige Seite dieser Art, wirklich genial, muß auch mal gesagt werden.

Dann wünsch ich Dir noch schöne Ostern.

Gruß, Jürgen

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

---

Danke, und es freut mich, dass es geklappt hat!

Gruß, Axel

Apropos Ostern: Fans von Grüner Soße hier?

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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