---

Ich hätte gerne eine "Erweiterung", mit der ich z.B. über Buttons einstellen kann, welche Eigenschaften der Eigenschaftenpinsel übertragen soll.
Das Einstellen in der Dialogbox ist mir zu aufwändig.
Leider poppt das Einstellungsfenster auch auf, wenn ich in FILEDIA und CMDDIA auf 0 setze.
Hat da jemand eine Idee, wo und wie man diese Einstellungen vornehmen kann ??
Mathias

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

---

na dann würd ich mir sowas zusammenlispeln .

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

---

Ich weiss nicht so ganz, wie mir das weiterhelfen soll. Dies setzt ja nur die Eigenschaften für neue Objekte.
Ich möchte aber gerne mittels _matchprop nur bestimmte Eigenschaften auf andere Objekte übertragen - ohne über den Einstellungen-Dialog gehen zu müssen.
Mathias

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

---

war nur ein Beispiel .. setzen wäre dann ein entmod in einer Schleife ( solange Objekt gewählt ) usw. .. sowas müßte IMHO auch im Forum rumschwirren

direkt am ACAD-Befehl was Schrauben geht, denke ich, nicht
------------------
      - 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

---

Bin schon mächtig stolz auf mich !!
Habe mir aus diversen Code-Schnipseln dies hier zusammen gebastelt:

(defun c:layp (/ sa_var1 sa_var2)

(if (not (setq sa_var1 (entsel "\nObjekt wählen, dessen Layer-Eigenschaften übertragen werden soll:")))
(progn (alert "NIX SELEKTIERT !")
(c:layp)
)
)

(setq sa_var2 (entget (car sa_var1)))

(setq layer (cdr (assoc 8 sa_var2)))

(princ "\nÄndere Layer auf: ")
(princ layer)
(princ "\n")

(princ "\nObjekt wählen, dessen Layer gesetzt werden soll:")
(while and (setq OBJ(car(nentsel)))
(setq OBJ (entget OBJ))
(assoc 8 OBJ)
(setq OBJ (subst(cons 8 layer)(assoc 8 OBJ)OBJ))
(entmod OBJ)
)
)

Leider setzt diese Funktion nur den Layer von Linien !??

Mathias

P.S.: Kann mir mal jemand ein gutes Buch für AutoLISP empfehlen - bin noch blutiger Anfänger was LISP angeht.

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

---

Zitat:

---

Original erstellt von Grebe:
P.S.: Kann mir mal jemand ein gutes Buch für AutoLISP empfehlen - bin noch blutiger Anfänger was LISP angeht.

---

zum Code .. naja .. ist ein Anfang!!!!

zu Lisp : guck dir mal die Tutorials von Mapcar an.

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

---

 

Zitat:

---

zum Code .. naja .. ist ein Anfang!!!!

---

Danke     

 

Zitat:

---

zu Lisp : guck dir mal die Tutorials von Mapcar an.

---

Na, da kann der Regen am Wochenende ja kommen ....

[Diese Nachricht wurde von Grebe am 10. Nov. 2006 editiert.]

[Diese Nachricht wurde von Grebe am 10. Nov. 2006 editiert.]

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