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