---

Hallo,
ich glaube, ich habe heute wieder eine lange Leitung. Ich möchte einen Farbbuch-Eintrag aus einem Layer entfernen und schaffe das irgendwie nicht.

folgende Versuche hatte ich gemacht:

Code:

---

(defun c:test1( / vla-obj vla-TcObj)
  (setq vla-obj (vlax-ename->vla-object (tblobjname "LAYER" "0")))
  (setq vla-TcObj (vla-get-TrueColor vla-obj))
  (vlax-put-Property vla-TcObj 'BookName "")
  )

---

Da gibt es einen Typenkonflikt, eigentlich logisch,weil die Eigenschaft BookName ReadOnly ist.

Tja, und dann dachte, einfach den GC 430 entfernen und dann klappt es:

Code:

---

(defun c:test2( / LayerList)
  (setq LayerList (entget (tblobjname "LAYER" "0")))
  (entmod (vl-remove-if '(lambda(A)(=(car A)430))LayerList)))

---

Die entmod-Funktion gibt zwar erstmal die korrekte Liste ohne den GC-430 zurück, es hat sich aber nichts geändert. Bei einem erneuten Aufrufen der Liste ist der alten GC-430 wieder da.

Wie geht es denn jetzt wirklich?   Irgendwie muss ich doch mein Farbbuch loswerden können.

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

Jörn
http://www.bosse-engineering.com

VektorAdd-HD-Youtube

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

---

Reicht es denn nicht dem Layer einfach eine neue ACI-Farbe zuzuordnen 

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

ein codeschnipsel :

(setq L(vla-item (vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) "0"))
(setq TC(vla-get-truecolor L))
(vla-put-colormethod TC acColorMethodByRGB)
(vla-setnames TC "" "")
(vla-put-truecolor L TC)

------------------
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

---

@Sabastian:
nur eine ACI-Farbe zuordnen hat irgendwie nicht funktioniert, der Eintrag für das Farbbuch blieb bestehen.
@Thomas:
vielen Dank für Deine Schnipsel, damit komme ich weiter, ich habe es noch nicht ganz durchblickt, aber fast (heute ist leider die Zeit ein wenig knapp, um noch ein bißchen mehr damit zu beschäftigen)

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

Jörn
http://www.bosse-engineering.com

VektorAdd-HD-Youtube

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