---

Hallo,
vorab, ich glaube ich habe alle Links durchsucht und nichts gefunden, obwohl ich dachte ich hätts schon mal gelesen.

Ich muss für eine Übergabe alle Objekte, die ich mit den Eigenschaften "von Layer" erzeugt habe, so umwandeln, daß die Layereigenschaften auf die Objekte übertragen werden. Lässt sich so etwas automatisieren oder muss ich das für jeden Layer manuell machen?

------------------
Bis demnächst
Rainer

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

---

müßte es hier im Forum geben...
ich helf mal suchen, hoffentlich irre ich nicht   

hier ist es: (1.Treffer der Suche !) http://ww3.cad.de/foren/ubb/Forum54/HTML/002726.shtml

Ist erstmal nur für Color, aber man kann ja fragen ob es wer erweitert...

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

[Diese Nachricht wurde von cadffm am 25. Nov. 2003 editiert.]

[Diese Nachricht wurde von cadffm am 25. Nov. 2003 editiert.]

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

---

Hi,

vielleicht kann ich Dir weiter helfen. Ich habe ein fertiges
VBA Makro, welches alle Zeichnungselemente, welche zu Blöcken gehören,
auf den Layer 0 setzt und die Farbe auf "VONLAYER" setzt. Das ganze kann man natürlich noch ganz einfach so erweitern, daß die Linientypen auch auf VONLAYER gesetzt werden. Das ganze Funktioniert
zum Grossteil auch mit verschachtelten Blöcken.

Wenn Du möchtest, kann ich Dir die VBA Projektdatei kurz per
email schicken.

------------------
A. Thiede

WALTER KÖHLER GMBH
HEIZUNG-LÜFTUNG-SANITÄR
+ BluePearl - Gesellschaft für Software
Konzeptionierung und Entwicklung dBR

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

---

Sorry, ich hab das vorhin nicht richtig gelesen  )

Aber man könnte das Makro einfach so umbauen, daß es umgekehrt
funktioniert und die Layereigenschaften des Layers auf dem
der Block liegt, auf die im Block befindlichen Zeichnungsobjekte
überträgt. Das wäre glaub ich eher das, was du brauchst.

------------------
A. Thiede

WALTER KÖHLER GMBH
HEIZUNG-LÜFTUNG-SANITÄR
+ BluePearl - Gesellschaft für Software
Konzeptionierung und Entwicklung dBR

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

---

vielleicht gehts hiermit:

(defun C:LE2OE()
  (setq layn (cdr (assoc 2 (tblnext "LAYER" T))))
  (while layn
    (setq layobj (entget (tblobjname "LAYER" layn)'("*")))
    (setq farbe (assoc 62  layobj)
  lst  (assoc 370 layobj)
  ltyp  (assoc 6  layobj))
    (setq as (ssget "X" (list (cons 8 layn))) n 0)
    (if (and as (> (sslength as) 0))
(setq  en (ssname as n))
        (setq en nil))
    (while en
      (setq el (entget en))
      (if (not (assoc 62 el))
(entmod (list (cons -1 en) farbe)))
      (if (not (assoc 370 el))
(entmod (list (cons -1 en) lst)))
      (if (not (assoc 6 el))
(entmod (list (cons -1 en) ltyp)))
      (setq n (1+ n)
    en (ssname as n))
      )
    (setq farbe nil
  lst  nil
  ltyp  nil)
    (setq layn (cdr (assoc 2 (tblnext "LAYER"))))
    )
  )

------------------

gruß
Stephan

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

---

LAYER_TO_PROP.zip

Hallo Rainer!
In Ergänzung zu Stephan noch ein Lisp im Anhang, das auch die Blöcke durchforstet. Etwas aus mehreren Bibliotheken zusammengestoppelt und angepaßt-müßte aber laufen.

Gruß Thomas

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

---

Hallo,
konnte erst jetzt wieder ins Forum schauen. Vielen Dank für die ersten Hilfen, ich fang mal an zu testen

------------------
Bis demnächst
Rainer

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

---

@Thomas,
das war genau das, was ich gemeint habe. Das erpart eine Menge Arbeit.
Die Unities sind schon vergeben

------------------
Bis demnächst
Rainer

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

---

Hallo Zusammen,

das Lisp von Thomas legt mir die falschen Farben wieder auf die Farbe die der Layer hat, aber nicht auf die Eigenschaft "von Layer" sondern auf z.B. grün, im Ergebnis ist das zwar gleich da der Layer grün ist aber geht es nicht alle Objekte in Blöcken oder sonstwo einfach auf "von Layer" zu stellen?

Danke und Gruß Wolfgang

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

---

@ Wolfgang : Das was du willst, war so ,glaube ich, nicht gefordert. Wenn du alle Objekte auf " Von Layer " setzen willst, ersetze den Aufruf                 
(OBJEKT_ALLGEMEIN_SET  OBJEKT (atoi(nth 1 LAYERDATEN)) nil (nth 2 LAYERDATEN)
                                                          1.0 (nth 3 LAYERDATEN) )

in der SUB "UPDATE_OBJEKT" einfach durch

(OBJEKT_ALLGEMEIN_SET  OBJEKT 256 nil "ByLayer" 1.0 "ByLayer")

Gruß Thomas

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

---

Hallo Thomas,

genau das meine ich, aber leider funktioniert nach dem Austauschen
der betreffenden Zeilen das lisp nicht mehr, es startet schon beim Laden.
Befehl: appload
LAYER_TO_PROP.LSP erfolgreich geladen.
Befehl:
Kann nicht zu LISP zurückkehren.
<G>anze Zeichnung oder <A>uswahl: <G>
Layer_to Prop: "no function definition: UPDATE_OBJEKT"
Ungültiger Optionstitel.

evtl. ist ja nur eine Klammer oder sonst eine Kleinigkeit falsch?

Danke und Gruß Wolfgang

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