---

Hallo zusammen,

ich hätte mal eine Frage zum o.g. Thema. Ein Arbeitskollege vesucht im Moment mit Hilfe von VBA einen Block einer Zeichnung in eine andere zu kopieren, kommt aber nicht zum Ziel. Hat von euch jemand soetwas schoneinmal gemacht? Oder hat jemand ein Tip?

Vielen Dank im vorraus

------------------
MfG Lary 

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

---

Moin Lary,

Schau Dir mal diesen Beitrag an. Ich hatte das selbe Problem und konnte es damit lösen.

http://ww3.cad.de/foren/ubb/Forum259/HTML/000664.shtml

Bis denn dann

H.D.

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

---

Hallo Lary,

folgender Code kopiert die Blockdefinition von einer Zeichnung in eine andere und fügt in zur Kontrolle ein.

Code:

---

Option Explicit

Sub CopyBlock()

    Dim SourceDoc As AcadDocument
    Dim Targetdoc As AcadDocument
   
    Dim BlockDef As AcadBlock
    Dim CopyBlockDef(0) As Object
   
    Dim Result As Variant
   
    ' Zeichnung zuweisen (beide sind geöffnet)
    Set SourceDoc = Application.Documents(0)
    Debug.Print SourceDoc.Name
    Set Targetdoc = Application.Documents(1)
    Debug.Print Targetdoc.Name
    ' Der zu kopierende Block
    Set CopyBlockDef(0) = SourceDoc.Blocks("Block1")
    ' Block in die Blocks Collection kopieren
    Result = SourceDoc.CopyObjects(CopyBlockDef, Targetdoc.Blocks)
   
    ' Zum Test einfügen
    Dim insPkt(0 To 2) As Double
    Dim BlockRef As AcadBlockReference
    Set BlockRef = Targetdoc.ModelSpace.InsertBlock(insPkt, "Block1", 1, 1, 1, 0)
    BlockRef.Update

End Sub

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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