---

Hallo,

bei einem Block in dem ich 3 Polylinien habe möchte ich mit folgenden Zeilen jeweils die 3 Elemente durchlaufen und ändern, nun hab ich festgestellt das nicht immer das erste Element im Block genommen wird, sondern dies davon abhängt welches Element ich anklicke obwohl das Ganze ein Block ist. Wie erreiche ich das auf jeden Fall das erste Element genommen wird ? Da sonst ja nicht alle Elemente geändert werden !

(setq bln (car (nentsel "\nBlock wählen:")))
(while (/= bln nil)  ; Wihle-Schleife
(setq att1 (entget bln))
(setq name (cdr (assoc 0 att1)))
(if (= name "LWPOLYLINE")(progn (setq aa (subst (cons 43 bee)(assoc 43 att1)att1))))
(entmod aa)
(entupd bln)
(setq bln (entnext bln))
)  ;Ende While

Gruß, Jürgen

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

---

http://ww3.cad.de/foren/ubb/Forum145/HTML/000843.shtml

Da siehst du wie man das ganze aufrollt...

PS.: Das was du "bemängelst" , genau dafür ist nentsel ja da !
- Also: ENTSEL usw (siehe Thread oben)

------------------
.Signatur hat derzeit leider Urlaub.

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

---

mit (car(entsel)) bekommst du das Insert ..
mit (setq BLOCK(tblobjname "BLOCK"(cdr(assoc 2 (entget(car(entsel))))))) den Block
mit (setq BLOCKDEF(entget BLOCK)) die Entinityliste
mit (setq OBJEKT (cdr (assoc -2 BLOCKDEF)))die Adresse der Blockelemente welche du mit
(while OBJEKT
    ;tu was                                                 
  (setq OBJEKT (entnext OBJEKT))
)
durchlaufen kannst.

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo,

Danke für die schnellen Antworten, bei entsel bekomm ich aber die Polylinien nicht kann das sein ? Aber Cadmium Deine Antwort ist ja sehr ausführlich ich probier das mal !

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

---

Hallo,

hab das von Cadmium mal auf die Schnelle eingearbeitet, also Objektwahl jetzt mit entsel, im BSP wird die Breite der Polylinien in einem Block auf 50 gesetzt !

(defun c:AWL ()
(setq BLOCK (tblobjname "BLOCK"(cdr(assoc 2 (entget(car(entsel))))))) ;den Block
(setq BLOCKDEF(entget BLOCK))                                        ;die Entinityliste
(setq OBJEKT (cdr (assoc -2 BLOCKDEF)))                              ;die Adresse der Blockelemente welche du mit
(while (/= OBJEKT nil)
(princ "\n ")
(princ OBJEKT)
(setq att1 (entget OBJEKT))
(princ "\n ")
(princ att1)
(setq name (cdr (assoc 0 att1)))
(princ "\n ")
(princ name)
(if (= name "LWPOLYLINE")(progn (setq aa (subst (cons 43 50)(assoc 43 att1)att1))))
(entmod aa)
(entupd OBJEKT)
(setq OBJEKT (entnext OBJEKT))
)  ;Ende while
(command "_regenall")
)

Gruß, Jürgen

-----www.pc-ideal.de

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

---

Juergen55,

ist ja netter Code, aber da werden nicht mal die lokalen Variablen als lokal deklariert. Eigentlich sollte sich das doch herumgesprochen haben, oder?

Wenn man beim 2. Ausführen mit der Maus daneben trifft, läuft das Programm unbeeindruckt weiter...

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hallo Mapcar,

ja das stimmt schon, daneben tippen darf man nicht ! War auch wirklich nur als ganz einfaches Beispiel gedacht.

Ich bin kein Lisp-Experte, bei diesen lokalen und globalen Variablen fehlt es mir schon noch an Wissen.

Gruß, Jürgen

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