---

eins vorweg : bin noch anfänger und vertiefe meine kenntnisse durch programmierung kleiner "tools".
und hier mein erstes (und wohl nicht letztes) problem :

ich möchte gerne die eigenschaften "vonLayer" ausgewertet wissen. d.h. folgendes :
ich möchte objekte, die ich vorher durch einen auswahlsatz gewählt habe, dessen z.b. farbe von einem anderen obj übernehmen. schön und gut.....aber !!

wenn das obj die farbe "VonLayer" hat, möchte ich gerne dessen farbe (!!) haben. also nicht "VonLayer" sonder der tatsächliche wert.
wenn ich im überwachungsfenster von vlisp meine variable prüfe,die ich als erstes erhalte, wenn ich das übernahmeobjekt gewählt habe, bekomme ich durch mehrmaliges klicken plötzlich die ursprungsdaten zu sehen, die für den layer verantwortlich sind.

wie kann ich nun diese werte in eine separate liste speichern ????
der mir bekannte weg über ...entget (car(var1)).. bringt mir nicht diese werte.
das muß doch möglich sein, oder ???

------------------
Die Tastatur finden Sie, indem Sie das Kabel verfolgen, das mit einem
    5poligen DIN-Stecker an der Rückseite Ihres Rechners angebracht ist.

[Diese Nachricht wurde von benwisch am 31. Oktober 2001 editiert.]

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

---

Hallo benwisch,
les doch einfach den Layer und wenn die Farbe vonLayer dann aus dem Table Layer die Farbe (tblsearch "LAYER" Layername) oder so ähnlich.
Versuchs mal -wenn Du nicht weiterkommst setz ich mich mal dahinter.
Gruß
seher

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

---

super....mußte zwar noch ein wenig überlegen, aber so funzt es !!!!

  (setq var2 (entget (car var1))) ; Aus der variablen var1 wird nun der erste assoc Wert (relevante Daten) in die liste var2 gespeichert
  (setq lay (cdr(assoc 8 var2)))        ; hole mir den wert layer
(setq var3 (tblsearch "layer" lay))     ; setz var3 mit den eigenschaften des layer's

habe nun meine daten zur weiterbearbeitung *klatsch auf die stirn*

danke

ps...sollte mein code oben nicht optimiert sein, freue ich mich auf weitere tipps.

ein dankender "dicker kopf"

------------------
Die Tastatur finden Sie, indem Sie das Kabel verfolgen, das mit einem
    5poligen DIN-Stecker an der Rückseite Ihres Rechners angebracht ist.

[Diese Nachricht wurde von benwisch am 31. Oktober 2001 editiert.]

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

---

Hi,
so was hab' ich mal geschrieben...

(defun c:gsc ( / COLR LAYR PICKED)
  (setq
    picked (entsel
    "\nObjekt anklicken dessen Layerfarbe aktuelle Farbe werden soll:  "
  ) ;_ end entsel
  ) ;_ end setq
  (if (/= picked nil)
    (progn
      (setq layr (cdr (assoc 8 (entget (car picked))))
    colr (itoa (cdr (assoc 62 (tblsearch "LAYER" layr))))
      ) ;_ end setq
      (setvar "cecolor" colr)
    ) ;_ end progn
    (princ "\nKein OBJEKT gewählt !")
  ) ;_ end if
  (princ)
) ;_ end progn

Zu Deinem Code, ich würds so machen:
(setq VAR2 (entget (car VAR1)) ; Aus der variablen var1 wird nun der erste assoc Wert (relevante Daten) in die liste var2 gespeichert
      LAY  (cdr (assoc 8 VAR2)) ; hole mir den wert layer
      VAR3 (tblsearch "layer" LAY)
) ;_ end of setq

Ciao,
Marc

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

---

@marc.scherer

vielen dank für deine mühe !!!!

möchte dein listing speichern und damit weiter lernen !!

------------------
Die Tastatur finden Sie, indem Sie das Kabel verfolgen, das mit einem
5poligen DIN-Stecker an der Rückseite Ihres Rechners angebracht ist.

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