---

Hallo ich bins wieder.

Ich steh hier vor einem kleinem Problem. BIn fast fertig mit meinem programm allerdings komm ich an einer stelle nicht weiter.

Stellt euch mal vor ich hätte estwas in meine Windows zwischenablage abgespeichert

z.B.      XLSWORKSHEET.Range("A2:C21").Copy

Im manuellen fall tun das meine user auch. im nächsten schritt im Autocad werden folgende Schritte getan:

- Mausklick auf Bearbeiten
- Inhalt einfügen...
- Einfügen als Autocad Object

Mein Problem ist es ist nicht nur ein einfacher textder eingefügt werden soll. Die ganze Formatierung wie Rahmen, Schriftgtöße etc.
soll nicht verlohren gehen!!!

Mein Ansatz war dieser:

    Set moSpace = acDoc.ModelSpace
    Call moSpace.InsertBlock(insertionPoint, Name, 10, 10, 1)

Nun meine Frage. Was würde ich falls dieser Ansatz richtig ist für Name eingeben? Das Clibboard gibt keinen Namen soweit ich weiß zurück.

Welches Objekt würde den ansonsten meinem vorhaben entsprechen?

Danke

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

---

Servus Franjo,

also das "Bearbeiten" - "Inhalt einfügen..." - "Einfügen als AutoCAD-Objekt" gibt es im 2004 nicht (mehr?), daher kann ich Dir nicht sagen, wie man da weiterkommt.

Nur einen Tip könnte ich Dir geben, wie Du ein neues Objekt im Modelspace (oder Paperspace) herausbekommst.

Frage vor dem Einfügen per VBA ab, wieviele Objekte im Modelspace sind:

AnzahlVorher = acDok.Modelspace.Count

Nach dem Einfügen sollte es eins mehr sein also ist das letzte Objekt Dein eingefügter Block

Set NewBlock = acDok.Modelspace.Item(AnzahlVorher+1)

Nicht getestet - nur so als Denkanstoß

Gruß - Hübi

------------------
Schaun ma mal, dann seng ma scho.... 

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