Hallo ihr alle
Ich beherrsche VBA nicht sehr gut und fummele ein wenig herum...
Also habe ich dieses Makro erstellt (indem ich es kopiert und meine Eigenschaften hinzugefügt habe), aber ich möchte, dass die erstellten Eigenschaften auf der Registerkarte "Anpassen" und nicht in "Konfigurationsspezifisch" abgelegt werden. Könnten Sie bitte mein Makro korrigieren? Vielen Dank im Voraus.
Dimmen swApp als Objekt
Dim swModel As ModelDoc2
Dim-Konfiguration als SldWorks.Configuration
Dim swCustProp As CustomPropertyManager
Dim lRetVal so lange
Dim myValue0 als Zeichenfolge
Dim myValue1 als Zeichenfolge
Dim myValue2 als Zeichenfolge
Dim myValue3 als Zeichenfolge
Dimmen myValue4 als Zeichenfolge
Sub main()
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
my0Value = swModel.GetTitle: 'Wir erhalten den Dateinamen
myValue1 = Left(myValue0, 16) 'Wir erhalten die Teilenummer, also die ersten 16 Zeichen des Dateinamens
myValue2 = Left(myValue0, 22) 'Wir erhalten die ersten 22 Zeichen des Dateinamens
myValue3 = Right(myValue0, Len(myValue0) - Len(myValue2)) 'Wir erhalten die letzten Zeichen der Bezeichnung des Dateinamens - die ersten 22
myValue4 = Left(myValue0, 13) 'Wir erhalten die Formnummer
Legen Sie config = swModel.GetActiveConfiguration fest
Legen Sie cusPropMgr = config fest. CustomPropertyManager
lRetVal = cusPropMgr.Add3("Teilnummer", swCustomInfoType_e.swCustomInfoText, myValue1, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
lRetVal = cusPropMgr.Add3("Bezeichnung", swCustomInfoType_e.swCustomInfoText, myValue3, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
lRetVal = cusPropMgr.Add3("DocumentSource", swCustomInfoType_e.swCustomInfoText, myValue4, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
Ende Sub
Wenn Sie ein gutes Tutorial für VBA Solidworks zu empfehlen haben, bin ich dafür.
