---

Hallo zusammen,

ich habe folgendes Problem bzw. Wunsch:

In eine Zeichnung sind verschiedene Blöcke (Symbol-1, Symbol-2, ...) eingefügt. Nun möchte ich eine Legende erstellen, in der nur die verwendeten Symbole erklärt werden. Wenn ich jedes "Erklärungssymbol" als DWG (Erklärung-Symbol-1.dwg, Erlkärung-Symbol-2.dxg, ...) ablege kann ich es über ein VBA-Makro in die Zeichnung einfügen.

Alle Symbole und die entsprechenden Erklärungen befinden sich aber auch in der Werkzeugpalette und ich möchte die Erklärungen direkt aus der Palette einfügen lassen.

Nun meine Frage:  wie würde ein solcher Code aussehen 

Bislang konnte ich noch nichts entsprechendes im Forum finden

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

---

Hi,

wird nicht so leicht, von VBA aus auf den Inhalt der Werkzeugpalette hinzugreifen (zumindest hätte ich das bis jetzt nicht gebraucht).

Jetzt die Frage: wie hast Du 'Erklärung' in der Palette gespeichert? Ev. kann man ja das XML angreifen und die Info's daraus auslesen.

Zweite Frage: woher weiss die Palette (soll diese es wissen), welche Blockarten in Deiner Zeichnung vorkommen? Wäre es da nicht leichter, einfach (nach Bereinigung) die Blockdefinitionen der aktuellen Zeichnung durchzuscannen und damit beispielsweise eine Tabelle zu bestücken?

- alfred -

------------------
www.hollaus.at

---

Symbol.rar

Hallo Alfred,

zu deiner Frage "wie hast Du 'Erklärung' in der Palette gespeichert?". Es sind auch Blöcke die aus dem Symbol selber (Linien, Kreise, Texte, ...) und einem erläuternden Text bestehen. Als Beispiel habe ich mal ein kleines Beispiel als Anlage beigefügt.

Zur zweiten Frage "woher weiss die Palette (soll diese es wissen), welche Blockarten in Deiner Zeichnung vorkommen?". Genau wie Du es vorschlägst, die Blockdefinitionen durchscannen. Der Blockname bzw. Teile aus dem Namen entscheiden ob ein entsprechendes Erklärungssymbol eingefügt werden soll.

Der Hinweis eine Tabelle zu bestücken ist nicht schlecht. Mit Tabellen habe ich noch nicht gearbeitet ( bin ja auch noch ein Neuling )

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