Moin Sebastian,
also, es hat funktioniert, ich habe den Layer auf "0" gestellt, und dann konnte ich den ursprünglichen Layer auch bereinigen.
Eins war noch seltsam:
(setq liste(entget(tblobjname "BLOCK" (vla-get-Name ITEM))))
(entmod (subst (cons 8 "0")(assoc 8 liste)liste))
Damit konnte ich den Layer nicht ändern, Rückgabe NIL, nix passiert
(vla-put-layer
(vlax-ename->vla-object
(tblobjname "BLOCK"
(vla-get-Name ITEM)))"0")
Damit hat es dann funktioniert, wie auch immer, nochmal vielen Dank!!!
------------------
viele Grüße
Jörn
http://www.bosse-engineering.com
Liniensignaturen Youtube
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP