---

Hallo,
ist es möglich ganze Blöcke oder Objekte nach Excel zu kopieren?
Ich meine den ganzen Block (Linien + Bemaßungen etc.) nicht nur die Attribute.
Würde damit Stücklisten für Objekte erstellen wollen.

Mfg
Erti

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

---

Hi,

>> ganze Blöcke oder Objekte nach Excel

Probier mal den Befehl DATENEXTRAKT, damit kannst Du zumindest die meisten AutoCAD-Objekte/-eigenschaften exportieren.

Was Du allerdings mit 'ganze Blöcke' meinst? Solltest Du Blockteile exportieren wollen, dann wirst Du um explodieren (Befehl URSPRUNG oder aus den Expresstools BURST) nicht herumkommen.

Und solltest Du die Elemente per VBA (weil's halt im VBA-Forum plaziert wurde) exportieren wollen, dann kann ich die Antwort (voraussichtlich) JA mitgeben. Aber da wäre eine bessere Definition der Aufgabe notwendig und zeige den Teil den Du hast, damit wir uns in Deine Aufgabe 'einfühlen' können. Jetzt einen Exporter hier schreiben, der ev. durch Datenextraktion schon abgedeckt ist, wird nicht zu erwarten sein.

- alfred -

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

---

Ja ich möchte VBA benutzen.

Z. B. ich zeichne einige Linien welche ich dann zum Block1 zusammenfasse.

Über die Zwischenablage (Bearbeiten kopieren in Acad und Str v in Excel) kann ich das von Acad zu Excel kopieren.
Blos wie kann man sowas in VBA schreiben.
Mein bisheriger Quelltext, ich spreche blos excel nicht richtig an '*** siehe dort!

Public Sub kopieren()
Dim objEnt As AcadEntity
  Set WB = Excel.Workbooks.Open("E:\TestVBA\mappe1.xls")
  Set Wtab = WB.Worksheets("Tabelle1")

ThisDrawing.Utility.GetEntity objEnt, varPunkt, "Block auswählen"
  WB = ThisDrawing.CopyObjects(objEnt, Wtab.Cells(1, 1)) '*****
End Sub

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

---

Hi,

nee leider, so geht's nicht. Denn ThisDrawing.CopyObjects ist keine applikationsübergreifende Kopierfunktion. Dafür mußt Du entweder über Windows-Clipboard gehen (wobei ich jetzt ad hoc nicht mal sicher bin, ob das mit Graphik so einfach wird) oder Du erstellst mit AutoCAD eine WMF-Datei und im XLS machst Du ein kleines VBA-Modul, das WMF einlesen kann.

Hilfe zu VBA und Clipboard gibt's eine Menge im Internet
Hilfe zu WMFOUT (siehe auch diesen Befehl in der AutoCAD-Hilfe) findest Du über die Funktion Object.EXPORT im AutoCAD-VBA-Hilfeteil.

- alfred -

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