---

Kennt jemand ein Tool, mit dem man scripttauglich auch die Elemente in einem Block auf "Farbe bylayer" setzen kann?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Hallo peter,
was meinst du mit "scripttauglich" ? Beim einlesen der Blöcke aus einem Script oder soll das Script verwendet werden dies durchzuführen?
Kann es auch ein Makro (VBA oder Lisp) sein?
Grüße,
Klaus

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

---

Denke Ja .. entweder bei www.cadwiesel.de  oder bei mir auf der Festplatte  ... da das eine ziemlich allgemein verbreitete Aufgabenstellung ist solltest du in den Weiten des www aber mit Eigeninitiative und Google fündig werden ... Weils so schön ist verlinke ich mal wieder hierauf von dem du aber eigentlich nur 24 Codezeilen benötigst.

Du ist ja auch im Lispforum aktiv ... meinste, du bekommst das nicht  selbst gebacken ? Wenn nicht, kannste aber gerne noch mal anfragen.

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

---

Original erstellt von KlaK:
...was meinst du mit "scripttauglich" ? ...Kann es auch ein Makro (VBA oder Lisp) sein?
Grüße,
Klaus

---

Damit meine ich, dass der Befehlsaufruf und -ablauf ohne Dialogfenster auskommen und in Lisp per (command "machwas" ...) aufrufbar sein muss.

Zitat:

---

Original erstellt von CADmium:
Denke Ja .. entweder bei www.cadwiesel.de  oder bei mir auf der Festplatte    ...
Du ist ja auch im Lispforum aktiv ... meinste, du bekommst das nicht  selbst gebacken ? Wenn nicht, kannste aber gerne noch mal anfragen.

---

Bei Cadwiesel habe ich schon vorher geschaut - gefunden habe ich derzeit nichts. Das Selberbacken ist natürlich die Option, wenn ich bis dahin nichts finde.

Schönen Abend

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Hallo Peter,

schau mal

hier,
dass könnte Dir helfen.

LG
Thomas

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

---

colorbylayer.VLX.txt

1. fragt das Teil noch ein paar mal den User ab  und
2. hab ich damals die Attribute noch nicht berücksichtigt 

deshalb mal hier noch ne getraffte Version, obwohl das betreffs Weiterbildung von Peter vielleicht kontraproduktiv ist.

Aufruf im Script (c:COLORBYLAYER)

Aber ab Version 2008 gibts ja wohl auch n integrierten ACADBefehl, der das auf VonLayer-Setzen erledigt.

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

---

Krankheitshalber bin ich heute ziemlich ausser Betrieb und werde erst später testen können - sicher mit bestem Ergebnis.

Danke an Cadmium und spider_dd.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

BlockColor_to_Layer.zip

Hallo Peter,

beiliegend eine VBA Funktion zum Ändern der Farbe (rekursiv bei verschachtelten Blöcken).

Kannst Du auch per ^C^C(command "vbarun" "BC_2_Layer") auf ein Buttom legen.

Die Farben der Elemente werden dabei auf ByBlock gesetzt, damit auch wirklich die Farben des Layers übernommen werden in dem der Block gesetzt wurde. Falls Du das nicht möchtest müßten die Kommentarzeilen in der Funtktion geändert werden.

Grüße,
Klaus

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

---

Zitat:

---

Original erstellt von KlaK:
...Die Farben der Elemente werden dabei auf ByBlock gesetzt, damit auch wirklich die Farben des Layers übernommen werden in dem der Block gesetzt wurde...

---

Danke Klaus,

aber im konkreten brauche ich nicht byblock, sondern bylayer. Vielleicht kann man den Startaufruf so umbauen, dass man mit beiden Parametern arbeiten kann: "BC_2_Layer" und "BC_2_block"?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

BlockColor.zip

Hallo Peter,
kein Problem.
Wie bereits oben erwähnt, in der Sub Change_B_color in den Zeilen

Code:

---

              ent.Item(i).color = acByBlock
              'ent.Item(i).color = acByLayer

---

die Kommentarzeichen (') tauschen.
Das war's

Hab Dir noch mal die dvb mit beiden Aufrufen angehängt (ungetestet).

Klaus

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

---

colorbylayer.dwg.txt

Wegen diverser Verzögerungen kann ich erst heute antworten:

2Klaus:
Danke, aber dein Programm fordert vom Benutzer die Auswahl von einzelnen Objekten. Ich muss aber alles automatisch durcharbeiten.

2CADmium:
Ebenfalls danke, Läuft gut, aber bei einigen Zeichnungen fällt es auf die Nase:

Code:

---

Befehl: colorbylayer
; Fehler: ActiveX-Server hat einen Fehler zurückgegeben: Ungültiger Index

---

Beiliegend eine Zeichnung, die nur aus dem fehlerhaften Block besteht. Für mich ist nicht klar, was da kaputt ist. Vielleicht die konstanten Attribute, die links oben hängen und beim Explodieren auftauchen? Löscht man die Zeichnungsinhalte, läuft das Programm ohne Fehler, aber mit der Schlussmeldung "nil" - hat es was gemacht oder nicht?

Schönen Abend

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

[Diese Nachricht wurde von Peter2 am 22. Jan. 2008 editiert.]

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

---

colorbylayer.VLX.txt

Jo .. der Fehler tritt auf, wenn der Block Attributsdefinitionen enthält, in der Referenz dadurch der hasattributeflag gesetzt ist, aber deie Referenz dann doch keine Attribute enthält. Anbei mal ne Version die den Fehler umgeht.

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

---

Original erstellt von CADmium:
Jo ...wenn der Block Attributsdefinitionen enthält, in der Referenz dadurch der hasattributeflag gesetzt ist, aber deie Referenz dann doch keine Attribute enthält...

---

Was meiner Auffassung nach ganz klar ein Bug in AutoCAD ist und kein Feature.
Siehe auch: FAQ Blöcke
Stichwort ATTSYNC

------------------
Ciao,
Marc

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