---

Hallo zusammen.

weiss jemand ob es irgendwo eine zusammenfassung der listeneinträgen zu den verschiedenene objekten gibt?

beispilsweise:
(0 . "CIRCLE")  Objekttyp
(8 . "MEINLAYER") Layer
(10 5.0 7.0 0.0)  Mittelpunkt
(40 . 1.0)        Radius
(62 . 133)              Farbe

dann layer,blöcke, pl, ect.

oder muss ich mir das selber zusammen fassen damit ich nicht jedes mal wenn ich was suche ausprobieren muss was sich jetzt verändert wenn ich zbsp die farbe ändere?

gruss steff

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

---

F1 -> DXF-Referenz

LG, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

hey besten dank... istgendwie kam ich über f1 nicht weiter aber habe sie jetzt via explorer gefunden...

gruss

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

---

hallo zusammen...

ich häng jetzt einfach mal hir hinten an... nicht schon wider einen neuen tread...

1. frage: geht bei euch die suchfunktion auch nicht?

2. frage:
(entmod
  (subst(cons 62 1)(assoc 62 OBJ)OBJ)
)
(entmod
  (subst(cons 70 4)(assoc 70 OBJ)OBJ)
)

würde ich gerne zusammen bringen... irgendwie so:
(entmod
  (subst(cons 62 1)(assoc 62 OBJ)OBJ)
  (subst(cons 70 4)(assoc 70 OBJ)OBJ)
)

ich schaffs nicht... leider bin ich ohne suchfunktion recht aufgeschmissen... und in sonstigen anleitungen stehen immer nur einfache beispile...

kann mir da wer helfen?

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

---

(entmod
  (subst(cons 62 1)(assoc 62 OBJ)(subst(cons 70 4)(assoc 70 OBJ)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 danke

ich bin nach 45min erst so weit gekommen:
(setq OBJ(subst(cons 62 1)(assoc 62 OBJ)OBJ))
(setq OBJ(subst(cons 70 4)(assoc 70 OBJ)OBJ))
(entmod OBJ)

aber deine ist wie immer viel schlanker

besten dank und gruss steff

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

---

Hallo,
noch so eine Idee zum Thema, man könnte doch so ein Mehrfach-Subst in ein Funktion packen, dann ist es universeller einsetzbar.

Code:

---

(defun list:subst (liste subst_liste / )
  (mapcar '(lambda(A)
            (setq liste(subst A(assoc(car A) liste)liste))
            )subst_liste)
  liste)

;;z.B
(defun c:test ( / )
  (entmod(list:subst (entget(car(entsel)))
          '(
            (62 . 1)
            (8 . "test")
            (70 . 4)))))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Zitat:

---

setq OBJ(subst(cons 62 1)(assoc 62 OBJ)OBJ))

---

62 gibts aber nur, wenn dem Objekt eine Farbe zugewiesen wurde - siehe "VonLayer"
(nur damit Du Dich nicht wunderst, wenns doch nicht immer funkt ...)

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

62 . 256
ist auch von layer...
das heisst aber mann muss zuerst prüfen ob schon ein eintrag vorhanden ist...
gruss

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

---

Hallo,
wenn es die Farbe ist kann man bei einem nichvorhandenen Listeneintrag diesen einfach voranstellen, bei anderen Gruppencodeinhalten bin ich mir nicht so sicher, ob man auf die Reihenfolge achten muss.

Code:

---

(defun c:test ( / )
(setq obj (car(entsel)))
(if (assoc 62 (entget obj))
  (entmod(subst '(62 . 5)(assoc 62 (entget obj))(entget obj)))
  (entmod(cons '(62 . 5)(entget obj)))))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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