Hallo zusammen,
danke für alle Anregungen.
Ich poste hier mal wie ich es gemacht habe.
Das ist vielleicht nicht die beste mögliche Lösung. Sie funktioniert aber in meinem Fall, da ich max. ein Makro auf jeder Seite einfüge und nur eine Hauptfunktion habe.
Vielleicht ist eine Anregung für andere dabei!
'Festlegen des Einfügepunkts für das Fenstermakro
Dim oPointId As Eplan.EplApi.Base.PointD
oPointId.X = 206
oPointId.Y = 150
oStorObj = oInsert.WindowMacro(oMacro, WindowMacro.Enums.RepresentationType.MultiLine, _
2, nPage, oPointId, Insert.MoveKind.Absolute, WindowMacro.Enums.NumerationMode.Number, False)
'Suchen der Artikelreferenz und austauschen derselben in der Hauptfunktion
Dim vArtRef() As DataModel.ArticleReference
Dim swArtRef As DataModel.ArticleReference
Dim vFunctions() As DataModel.Function
Dim swFunction As DataModel.Function
vFunctions = nPage.Functions
For Each swFunction In vFunctions
If swFunction.IsMainFunction Then
vArtRef = swFunction.ArticleReferences
For Each swArtRef In vArtRef
swFunction.RemoveArticleReference(swArtRef)
Next
swFunction.AddArticleReference("Hers." + identnr)
End If
Next
------------------
Gruß weinel
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP