Ich habe vor einer Ewigkeit in VB6 ein Makro geschrieben um die Properties in einem Schriftkopftool einfach ausfüllen zu können.
Nun habe ich tatsächlich das alte Projekt in Windows 10 zum Laufen gebracht in Visual Basic dank diverser Anleitungen im Netz.
Nun stehe ich aber an, da ich nicht weiß, wie ich eine Indexreferenz (zB. Titel oder Material) vom ersten referenzierten Teil in der Zeichnung erreichen kann.
In der Zeichnung geht das ja einfach z.B. über Titel|R1.
Nur wie mache ich das im VB?
Meine normalen Properties hole ich ja so (z.B. den Titel aus der Draft):
Set objApp = GetObject(, "SolidEdge.application")
Set objADoc = objApp.ActiveDocument
Set objAktuell = objADoc.Properties("SummaryInformation")
txtTitel = objAktuell.item("Titel").Value
Set objAktuell = Nothing
Gibt es noch Wissende, die mir hierbei helfen können?
Trotz eingehender Suche im Forum bin ich leider nicht fündig geworden.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP