W porządku, to do mnie wróciło!
FYI, oto mój kod, nie jest akademicki, ale działa!
Dim swApp jako SldWorks.SldWorks
Przyciemnij część jako SldWorks.ModelDoc2
Dim retval As Boolean
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw część = swApp.ActiveDoc
Przyciemnij tytuł jako ciąg
title = Część.GetTitle
Tytuł Debug.Print
Dim QuotQtéBelem As String
QuotQtéBelem = Chr(34) & "QtéBelem" & "@" & tytuł & Chr(34)
retval = Part.DeleteCustomInfo2("", "QTEBELEM")
retval = Part.AddCustomInfo3("", "QTEBELEM", 30, QuotQtéBelem)
Koniec subwoofera