---

hallöle

will die farbe einer polylinie innerhalb eines
blockes angeben...momentan ist sie "von layer",
gc 62 also nicht vorhanden.
wenn ich nun das verwende:

(defun c olyfarbe (/ ENAME_INSERT ENAME_POLY neu)

    (setq ENAME_INSERT (car (entsel)))
    (setq ENAME_POLY (entnext (tblobjname "BLOCK" (cdr (assoc 2      (entget ENAME_INSERT))))))
(while (/= (cdr (assoc 0 (entget ENAME_POLY))) "LWPOLYLINE")
(setq ENAME_POLY (entnext ENAME_POLY))
);end while
(setq neu (entget ENAME_POLY))
(setq neu (reverse (cons (cons 62 5) neu)))
(setq neu (reverse neu))  (princ neu)
(entmod neu) 
(command "_regenall" "")
)

erscheint bei princ neu:

((62 . 5) (-1 . <Objektname: 403088e0> ) (0 . LWPOLYLINE) (330 . <Objektname: 403088d0> ) (5 . 748C) (100 . AcDbEntity) (67 . 0) .........

HÄÄÄÄ???????

Danke

------------------
die fünf sterne sind ein witz 

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

---

Du musst glaube ich den gc 62 erst nach dem Layer GC 8 einfügen musst also eine Neue Liste bilden. Teil1 bis einschließlich GC8 dann den GC 62 dann den Rest (reverse bis GC 8 ) und dann entmoden

Sieh dir mal mein Einefarb an.
------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

etwas ähnliches dachte ich mir schon...
macht mir bestimmt keinen spass 

------------------
die fünf sterne sind ein witz 

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