Hallo,
ich mehrere Polylinien eine andere Farbe zuweisen.
Wenn die Polylinien nicht den Gruppencode 62 hat, schaffe ich es nicht diesen zu Erstellen.
Beispiel 1:
Code:
(setq newcolor '1)
...
(IF (assoc 62 eigliste)
(entmod (subst (cons 62 newcolor) (assoc 62 eigliste) eigliste))
(entmod (cons (cons 62 newcolor) eigliste))
)
...
Rückgabewert wenn der Gruppencode neu erstelle worden ist:
((62 . 1) (-1 . <Objektname: 7ed31a10>) (0 . "LWPOLYLINE") (330
. <Objektname: 7efaed08>) (5 . "472") .....
Ergebniss:
Keine Änderung der Farbe bzw. der Gruppencode wurde nicht eingefügt.
*******************************************************************************************************
Beispiel 2:
Code:
(setq newcolor '1)
...
(IF (assoc 62 eigliste)
(entmod (subst (cons 62 newcolor) (assoc 62 eigliste) eigliste))
(entmod (cons eigliste (cons 62 newcolor)))
)
...
Rückgabewert:
; Fehler: Fehlerhafte DXF-Gruppe: ((-1 . <Objektname: 7ed31a10> )
(0 . "LWPOLYLINE") (330 . <Objektname: 7efaed08> ) (5 . "472")
Ergebniss:
Keine Änderung der Farbe bzw. der Gruppencode wurde nicht eingefügt.
*******************************************************************************************************
Habe beim Beispiel 1 und 2 auch mit "entupd Elementname" die Anzeige aktualisiert, aber es funktioniert nicht.
Bei Linien und Kreiselementen funktioniert das Beispiel 1.
Beispiel 2 gibt immer einer Fehlermeldung zurück.
Habe ich irgendetwas übersehen.
Könnt Ihr mir bitte helfen.
Danke
------------------
Grüße
Christian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP