---

Hi Forum,
mit

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "RStemp", 1#, 1#, 1#, 0)

habe ich einen Block mit Attributen in die Zeichnung gesetzt. Anschließend werden die Attributinhalte nach Bedarf verändert (z.B. Raumnummer, Raumbezeichnung etc.)

Nun möchte ich diesen Block...und zwar nur diesen mit eben dieser Raumnummer mit dem Umriss des Raumes (bereits gezeichnete Polylinie) per VBA zu einer Gruppe vereinigen....und bekomme es nicht gebacken.

Wer kann mir weiterhelfen?

------------------

Bernd

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

---

Stell doch einmal deine Zeilen rein, dann kann man schon wo der Hund begraben liegt.
Sonst steht in der Hilfe genau beschrieben wie man es macht (sogar mit Beispiel).
Zuerst einmal:

Code:

---

ADDGROUP:
    ' Create a new group called "New_Group" in current drawing
    Dim groupObj As AcadGroup
   
    ' Add the group to the groups collection
    Set groupObj = ThisDrawing.Groups.Add("New_Group")
    MsgBox groupObj.name & " has been added.", , "Add Example"

---

und dann:
object.AppendItems Objects

Object

Group
The object or objects this method applies to.

Objects

Variant (array of objects)
An array of objects to append. The array can consist of any Drawing Objects.

Remarks

To query items in a group, use the Item method.

To remove individual items from a group, use the RemoveItems method.

------------------
Roland

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