---

Hallo zusammen,

ich habe folgendes Problem:
Ich habe eine Zeichnung in der ein Block (Name: Kreuz) vorhanden ist. Dieser Block soll an verschiedenen Stellen eingefügt werden und die eingefügten Blöcke sollen zuammen in einem neuen Block (Name: Kreuz_Gruppe) gespeichert werden.

Das einfügen der Blöcke bekomme ich hin. Allerdings weiss ich nicht wie ich dem neuen Block die eingefügten Blöcke zuweise, da es keine .addBlock -Methode gibt.

Hier mein Code zum einfügen:

Sub Block_Positionieren()
Dim objacad
Dim anz, ans
Dim insertionpnt(0 To 2) As Double

Set objacad = AutoCAD.ActiveDocument

insertionpnt(0) = 1000
insertionpnt(1) = 50
insertionpnt(2) = 0

'Block an neuer Stelle einfügen:
Call objacad.ModelSpace.InsertBlock(insertionpnt, "Kreuz", 1#, 1#, 1#, 0)

End Sub

vielleicht hat jemand eine Idee wie das funktionieren könnte.

Gruss Dennis

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

---

Hier passt die Frage besesr hin...

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

ohh danke Igor fürs verschieben

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

---

Hi,

erstelle die Blockdefinition und füge in diese Blockdefinition Blockreferenzen genauso ein, als würdest Du diese dem Modellbereich hinzufügen (Modeellbereich ist eigentlich auch nichts anderes als eine Blockdefinition)

Code:

---

  Dim tBlDef As AcadBlock
  Dim tPnt(2) As Double
  Set tBlDef = ThisDrawing.Blocks.Add(tPnt, "Kreuz_Gruppe")
  tbldef.InsertBlock(....

---

- alfred -

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

---

Hallo Alfred,

bin erst jetzt dazu gekommen es auszuprobieren....

vielen Dank funktioniert genau so wie ich das wollte.
Durch die VBA Beispiele von AutoCAD hatte ich nach .addBlock gesucht.

.InsertBlock muss ich echt übersehen haben. Hätte bestimmt noch ewig ausprobiert.

Also nochmals vielen Dank

Gruss Dennis

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