---

Liebe Gemeinde,

Eine unglaublich schlaue Person hat 451 kreisrunde Schraffuren (fuer lichtmasten) produziert, etwas was man so schoen mit bloecken haette machen koennen...
Kennt jemeand einen Weg, um diese 451 Schraffuren nun in 451 Instancen eines Blockes umzuwandeln? waere zu schoen...

LG aus London.

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

---

Hallo carmelli76,

mit einem kleinem Programm dürfte das kein Problem sein.
Stell die Zeichnung mit nur Schraffuren/Kreisen doch einfach mal hier ein.

Grüße,
Klaus

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

---

licht.dwg.txt

Hallo,

Ich habe mal eine Beispieldatei rstellt (kann leider die betreffenden Daten nicht hier einstellen). Die angehängte Datei enthält eine Anzahl kreisrunder Schraffuren. Jede dieser Schraffuren möchte ich nun mit ein und dem selben Block ersetzen. Einfügepunkt sollte Zentrum der Schraffur sein. Name des Blocks ist egea. Aussehen des Blocks ist auch egal. Das kann man ja alles ändern wie man es braucht.

Ich habe schon mal eine DXF erstellt und geschaut, ob ich da vielleicht einfach was suchen und ersetzen kann. Ist mir aber nicht so einfach vorgekommen. Jedenfalls schien es mir länger zu dauern als vielleicht wirklich einfach mit der Hand durch die Datei zu gehen und und die Schraffuren händisch mit Blöcken zu ersetzen.

LG aus London.

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

---

TEMP.zip

hi,

anbei vba-projekt, vorgehensweise:
zeichnung laden
das dvb-file aus explorer in den zeichnungsbereich mittels drag/drop hineinziehen
dann ueber menu 'extras' ==> 'makro' ==> 'makros' dialog mit geladenen dvb-makros laden ==> ....HatchToBlRef anklicken ==> 'ausfuehren'
dann schraffuren selektieren

blocknamen, layer, skalierung, rotation kannst du im vba-editor ganz oben einstellen
eine zeichnung, in der die aktuellen voreinstellungen (sprich blockdefinition auch vorhanden ist) liegt ebenfalls bei.

ein bisschen vorsicht: ich hab's nur runtergeschrieben und einmal probiert, eventuell sind nicht alle moeglichen zwischenfaelle abgefangen, ==> VORHER SICHERN!!!

- alfred -

---

WOW!!!

Vielen Dank! So ein perfekte kleines Progi. Ich bin beeindruckt. Das erspart mir nun ein paar stunden Arbeit.

Vielen Dank und ich hoffe Dein Wochenende hat nicht zu sehr darunter gelitten.

LG aus London.

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

---

freut mich, wenns geholfen hat

...nein, hat das wochenende keineswegs beeinflusst, ist mein taeglich brot, und daher nur ein paar minuten.

- alfred -