---

Hallo zusammen,

ich habe folgendes Problem:

Ich erstelle in Excel ein Programm welches alle geöffneten AutoCad-Zeichnungen bereinigen soll. Hierbei ist es wichtig das nur die Blöcke und nicht alles bereinigt wird.
Diesen Befehl gibt es allerdings nicht.
Also dachte ich mir, dass ich mit SendCommand weiter komme.
Leider kann ich mit SendCommand ("bereinig" & vbCr) nur das Formular bereinigen öffnen, per Code aber keine weiteren Einstellungen vornehmen.
Ich dachte, dass man mit SendKeys wenigstens die Befehle des Users simulieren könnte, aber der Code wird angehalten und meine SendKeys Befehle nach dem Schließen des Formulars bereinigen wieder in die AutoCad Befehlszeile geschrieben.

Wie kann ich meine SendKeys Befehle (5 mal Pfeil runter und Enter => Blöcke selektieren und bei Bereinigen Enter) in den SendCommand ("bereinig" & vbCr) integrieren, sodass ich nicht jedes mal manuell die zwei Klicks in dem Formular ausführen muss?

Wenn das nicht geht, was gibt es dann für andere Möglichkeiten?

Vielen Dank für Eure Hilfe.

Gruß

Steffen

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

---

4-5 mal durch die Blocktabelle iterieren und alle Blöcke versuchen zu löschen, Fehler abfangen ..... es lassen sich nämlich nur nicht referenzierte Blöcke löschen.

oder den Befehl _-PURGE mit der Option "_bl" usw per sendcommand aufrufen.

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

---

Ungetestet: Es gibt aber die Befehlszeilenvariante -BEREINIG (_-purge) mit der Option B für Blöcke.
Versuch mal, ob Du damit weiterkommst...

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Danke Ihr beiden für die sehr schnellen Antworten.

Die Aufgabe ist gelöst. Vielen Dank.

Lösung:
objAutoCAD.ActiveDocument.SendCommand ("-bereinig _BL Opt_meinBlock" & vbCr & "N" & vbCr)    ' Bereinigt nur den Block Opt_meinBlock
objAutoCAD.ActiveDocument.SendCommand ("-bereinig _BL *" & vbCr & "N" & vbCr)                        ' Bereinigt alle Blöcke

Zu der Aufgabenstellung sei noch hinzugefügt, dass es sich in meinem Fall um Blöcke/Gruppierungen handelt die alle mit einem Opt_ beginnen.
In einer Schleife werden alle Blöcke erst in den Ursprung zerlegt, sodass keine Referenzen mehr bestehen und im Anschluss die Blöcke bereinigt.

Gruß

Steffen

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