das heißt dann nicht "VonLayer" sondern "BYLAYER" und da sollte folgender Code helfen:
(and (setq OBJ(car(nentsel)))
(setq OBJ (entget OBJ))
(assoc 6 OBJ)
(setq OBJ (subst(cons 6 "BYLAYER")(assoc 6 OBJ)OBJ))
(entmod OBJ)
)
bei der Breite ist es abhängig, was für eine Polylinie es ist, ein LW speichert diese Infos namlich anders als eine Heavy-PL.
da bietet sich die bei beiden Objektypen die gleichlautende ActivX-Lösung..
(vla-put-ConstantWidth(vlax-ename->vla-object(car(entsel)))0)
ansonsten für LW-PLS (die globale Breite steht im GC 43)
(and (setq OBJ(car(nentsel)))
(setq OBJ (entget OBJ))
(assoc 43 OBJ)
(setq OBJ (subst(cons 43 0)(assoc 43 OBJ)OBJ))
(entmod OBJ)
)
oder, wenn du die Linienstärke meinst (die steht im GC 370):
(and (setq OBJ(car(nentsel)))
(setq OBJ (entget OBJ))
(assoc 370 OBJ)
(setq OBJ (subst(cons 370 -1)(assoc 370 OBJ)OBJ))
(entmod OBJ)
)
------------------
- 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