---

Hallo zusammen,

gibt es eine AutoLisp-Routine, welche sowohl den Layer, als auch den Bemassungsstil einer angeklickten Bemassung aktuell setzt?

Besten Dank

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

---

Zitat:

---

Original erstellt von Rottuvs:
gibt es eine AutoLisp-Routine..

---

Wann immer die Frage so anfängt und es technisch möglich ist, dann lautet die Antwort JA.
Suchen lohnt sich also in dem Fall immer.

Code:

---

(defun c:MeinBefehl (/ dim)
(if (or
      (null (setq dim (ssget "_:S")))
      (not(wcmatch (cdr(assoc 0 (setq dim (entget(ssname dim 0))))) "*DIMENSION"))
    )
    (c:MeinBefehl)
    (command "CLAYER" (cdr(assoc 8 dim)) "_.DIMSTYLE" "_r" (cdr(assoc 3 dim)))
)
(princ)
)

---

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Herzlichen Dank!!!
Mir fehlten die Kenntnisse des 2. Teils.
Die Routine für den Layer schrieb ich schon 1993, damals gab es den Knopf von heute noch nicht ;-)
Und, tja... wer schon so lange nicht mehr mit Lisp programmierte.

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