---

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

---

...denke, es kommt im 2. Fall auf die Stelle des Einfügens an ... cons stellt die Sache an den Anfang, append ans ende ...

(entmod(append(entget (car(entsel)))(list(cons 62 5)))

andere Möglichkeiten , die Farbe zu setzen

(vla-put-color (vlax-ename->vla-object(car(entsel))) 1)
oder
(setpropertyvalue (car(entsel)) "Color" 3)

da brauch es auch keine abfrage vorher ob GC62 vorhanden

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Danke CADmium,

habe es jetzt wie folgt gelöst und es funktioniert:

Code:

---

(setq nelement (car (entsel))
      eigliste (entget nelement)
      newcolor '1
)
...
(IF (assoc 62 eigliste)
  (entmod (subst (cons 62 newcolor) (assoc 62 eigliste) eigliste))
  (vla-put-color (vlax-ename->vla-object nelement)) newcolor)
)
...

---

------------------
Grüße

Christian

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

---

Naja.
ENTWEDER du nutzt AutoLisp(entmod) und prüfst vorher ob gc62 vorhanden ist oder nicht.

JA -> SUBST  // (entmod (subst (cons 62 newcolor) (assoc 62 eigliste) eigliste))
Nein -> APPEND // (entmod(append eigliste (list(cons 62 newcolor))))

ODER

Du nimmst das activXmodell (vla-put-color (vlax-ename->vla-object nelement) newcolor),
aber dann brauchst du vorher nichts prüfen, denn das activeXobjekt hat immer die Eigenschaft "color"

Dein gepostetes "(vla-put-color (vlax-ename->vla-object nelement)) newcolor)" funktioniert zudem NICHT

Und Zahlen brauchst du nicht quoten wenn du nicht willst (setq newcolor '1) oder (setq newcolor 1) bleibt im Ergebnis gleich.
------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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