---

Hallo zusammen.

Ich bin noch ein EB Anfänger, habe aber jedoch ein wenig Ahnung wie man in Visual Basic programmiert.
Ich habe mich schon mit der Benutzteroberfläche des VBA Editor vertraut gemacht und habe schon ein bisschen programmiert.

Ich habe nun eine Frage. Ich möchte über ein Makro alle Geräte die sich in einem Katalog befinden einlesen und einige Informationen zu den Geräten mir anzeigen lassen. Ich weiß mittlerweile wie ich alle Geräte einlesen kann und mir die Informationen anzeigen lassen kann die sich bei den Systemattributen und den Bestelldaten befinden. Hier ein Beispiel:

Dim oSel As ObjectItems
Dim oLocation As ObjectItem

Set oSel = Application.Selection(1).Parent.FindObjects(aucObjDevice, aucSearchHierarchical)

For Each oLocation In oSel

Katalog = oLocation.Project.Name
Geraet = oLocation.Name
Katalognummer= oLocation.Attributes.Find(aucAttrCatalogNumber)

debug.print(Katalog & Geraet & Katalognummer)
next

end sub

Also an die Systemattribute komme ich über oLoacation.________ und an die Bestelldaten mit oLocation.Attributes.Find(____).  Das ganze funktioniert auch mit "aucAttrManufacturer", "aucAttrMaterial" usw.

So genug Einleitung. Ich möchte für jedes Gerät den Namen des bevorzugten Shapes mir auflisten lassen. Ich habe im Objekt Katalog den Begriff "aucAttrMasterShapeName" gefunden. Jedoch funktioniert dies nicht mit oLocation.Attributes.Find(aucAttrMasterShapeName). 

Ich hoffe man konnte mich soweit verstehen. Also meine Frage ist: Über welchen Code komme ich an die Mastershapenamen eines Gerätes um es mir im Debug.Print Fenster anzeigen zu lassen?

Gruß

Ethem

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

---

Hallo EthemS

Bevor du hier vllt. zu lange auf eine Antwort wartest, schau doch bitte im Entwicklerforum von EB vorbei.

https://ebdn.aucotec.com/

Neben Code-Beispielen, Doku etc. kannst du hier deine Frage auch direkt an andere VBA-Anwender stellen.

Grüße
Fask

------------------
Um ein tadelloses Mitglied einer Schafherde sein zu können, muss man vor allem ein Schaf sein! (A. Einstein)

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

---

Hi EthemS,

du solltest mit oLocation.PreferedMaster() an die gewünschten Daten kommen (Shape-Name, Version etc.). Hilfreich ist da auch die EB-VBA-Hilfe wo das Datenmodel augeschlüsselt ist.

@Fask: Warum soll es denn hier länger dauern? 

------------------
Gruß aus Bielefeld 

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

---

Habe ehrlich gesagt auch mit einem Tag gerechnet. 

Aber ja ich habe es gestern auch herausgefunden das ich mit PreferedMaster an die benötigten Informationen komme. Kam aber erst jetzt dazu was zu schreiben.

Trozdem danke für die Antwort.

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

---

Gerne 

------------------
Gruß aus Bielefeld 

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