---

Hallo Lisp-Gemeinde,
ich möchte gerne über Lisp den Linientyp einer Polylinie ändern.
Über (setq EE (subst (cons 6 LTyp) (assoc 6 EE) EE)) und (entmod EE) funktioniert das auch - allerdings nur so lange, bis ich den Linientyp auf "VONLAYER" setzen möchte. In EE stehen dann zwar die korekten Werte - entmod bringt aber nicht das gewünschte Ergebnis.
Das gleiche Problem tritt auf, wenn ich die Breite der Polylinie ändern möchte. Auch hier bringt entmod nicht das gewünschte Ergebnis, obwohl die GC 40 und 41 über die subst-Funktion geändert wurden.
Was mache ich falsch?
Vielen Dank im Voraus für eure Hilfe
Uwe

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

---

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

---

Danke für die schnelle Antwort!
Uwe

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