---

Hallo zusammen,
ich bin immer noch dabei, eine automatische Zeichnungserstellung zu programmieren. Mittlerweile sitzen auch schon die Shapes auf den Zeichnungsblättern, auch wenn es momentan noch Platzhalter für die richtigen Shapes sind, die noch nicht erstellt sind.
Beim Einlesen der Geräte habe ich auch Örtlichkeiten generiert und mir als Blattvorlage zunächst das Blatt "A3 quer" geholt, denn dies bietet mir die Möglichkeit, in den Zeichnungskopf die Örtlichkeit mit einzutragen. Ich denke, daß es klar ist, daß dies aus dem VBA-Programm heraus geschehen soll. Nur ist das Textfeld "Zugeordnetes Betriebsmittel" wie auch "Zugeordnete Funktion" kein Attribut. Und im Moment bin ich etwas ratlos, wie diese Textfelder denn nun ansprechen kann.
Ich hoffe, daß mir hier schon einmal jemand helfen kann!!!

Vielen Dank schon einmal,
Olli

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

---

habe so etwas "ähnliches" schon mal gemacht.
Ich habe den Einbauplatz per VBA von Geräten gesucht.
Hier ein paar Ausschnitte von Script.

Dim oSel As ObjectItems
Dim oLocation1 As ObjectItem

Set oSel = Application.Selection(1).Project.FindObjects(aucObjLocation, aucSearchDeep)
Set oSel1 = Application.Selection(1).Project.FindObjects(aucObjDevice, aucSearchDeep)

For Each oLocation1 In oSel                      'Ab hier werden alle Arbeitsplätze durchsucht
         
                   
          position1 = oLocation1.FullName
          exworksheet.Cells(i + 1, 1) = position1  'schreibe Einbauplatz in eine Excel z.B +A1

                                                   

Next oLocation1

Den Wert position1 kann man dann auch wieder in ein Attribut zurückschreiben damit dieser dann am Shape angezeigt wird.

Ein Beispiel von mir wo ich X und Y Koordinaten von Shape zurückgespeichert habe

' Schreibt den X und Y Wert ins Feld Koordinaten unter Betriebsdaten damit diese über das Shape angezeigt werden
               
    Set oItem = Application.Selection(1).Children.Item(I)
        oItem.Attributes.ItemByID(aucAttrCoordinates).Value = "X= " & sPartx & " Y= " & sParty
        Call oItem.Store

Zum Schluß aber den Punkt "oItem.Store" nicht vergessen sonst wird der Wert nicht gespeichert.

Gruß
Arnd van Uden

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

---

Hallo Arndt,
vielen Dank schon einmal für Deine Antwort.
Die Örtlichkeit habe ich schon erfaßt und brauche sie eigentlich nicht mehr zu suchen.
So wie ich es verstehe, schreibst Du einen Wert in ein Objekt zurück bzw. in eines der Attribute. Vom Prinzip her ist es auch das, was ich machen möchte. Nur möchte ich es in den Zeichnungskopf schreiben. Damit bewirke ich dann ja, das die komplette Zeichnung einer Örtlichkeit zugeordnet ist. Aber, ich bekomme einfach das Attribut nicht zu greifen. Wenn ich mir per VBA alle Attribute aufzeigen lasse, kommen die schon erwähnten Attribute darin nicht vor.

Gruß,
Olli

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

---

Hallo,
solche Zuordnungen werden über Assoziationen erledigt.
Bei Assoziationen gibt es immer eine Quelle und ein Ziel.
Ausgehend vom Einbauplatz ist es die Quelle (Source)
Das Ganze kann natürlich auch umgedreht werden.

Bsp:
Dim oLoc As ObjectItem  'Einbauplatz
dim oObj as ObjectItem  'Blatt zum Assozieren
Call oLoc.SourceAssociations.New(aucRoleLocationToSheet, oObj)

So in der Form sollte es funktionieren. :-)

MfG
Dirk Satzky

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

---

Jawoll,
genau das ist es! Eingebaut und klappt hervorragend.
Und wieder einen großen Schritt weitergekommen.

Vielen Dank,
Olli

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