---

Hallo Zusammen,

ich möchte in einer Zeichnung mehrere Blöcke zu einem neuen Block zusammenfassen.

Ich habe verschiedene Varianten ausprobiert, unter anderem COPYOBJECTS, aber so wie ich mir das vorstelle funktioniert das nichts. (bzw. funktioniert überhaupt nicht)

Ich habe die Blöcke, aus denen ein neuer Block erstellt werden sollen,  mit

Dim ASobj() As AcadEntity

in eine Objectkollektion zusammengefasst.

Hat jemand eine grundsätzliche Herangehensweise an dieses Problem?

Vielen Dank für eure Hilfe!!!

VG, Jens

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

---

Hallo Jens,
im Prinzip sollte dir das schon weiterhelfen...

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Danke für den Tip!

Ich hatte das schon mal ausprobiert, bin aber an einer Stelle nicht
weitergekommen.

Jetzt funktionierts mit dem Code:

Dim nBlock As AcadBlock
Dim InsPoint(2) As Double
Dim IDpairs As Integer
Dim mBlock As AcadBlockReference
Dim i As Integer

'Block erstellen
Set nBlock = Blocks.Add(InsPoint, "AS_STUEHLE")
nBlock.Origin = ASbase

'Objekte zusammenfassen
CopyObjects ASobj, nBlock, IDpairs
   
Set mBlock = ThisDrawing.ModelSpace.InsertBlock(ASbase, "AS_STUEHLE", 1, 1, 1, 0)

For i = 0 To ASgesamt - 1
    ASobj(i).Delete
Next i

Jetzt kann ich natürlich immer nur einen Block mit dem Namen "AS_STUEHLE" in eine Zeichnung einfügen. Gibt es eine Möglichkeit, immer wieder Blöcke mit verschiedenene Namen in einer Zeichnung zu erstellen??

Besten Dank!

MFG

Jens

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

---

Hab die Antwort durch ausprobieren selber gefunden!

Durch umbenennen des Blocks mit seinem .Handle lassen sich
nun beliebig viele Blöcke erzeugen und in die Zeichnung einfügen.

Besten Dank nochmal!!

MFG

Jens

Dim nBlock As AcadBlock
Dim InsPoint(2) As Double
Dim IDpairs As Integer
Dim mBlock As AcadBlockReference
Dim i As Integer

'Block erstellen
Set nBlock = Blocks.Add(InsPoint, "AS_STUEHLE")
nBlock.Origin = ASbase

'Objekte zusammenfassen
CopyObjects ASobj, nBlock, IDpairs
   
Set mBlock = ThisDrawing.ModelSpace.InsertBlock(ASbase, "AS_STUEHLE", 1, 1, 1, 0)
nBlock.Name = nBlock.Handle

For i = 0 To ASgesamt - 1
    ASobj(i).Delete
Next i

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