Guten Morgen Gemeinde,
ich verzweifle gerade bei dem Versuch mir ein Makro zu programmieren das die Konfigurationsspezifischen Eigenschaften ändert.
Habe es schon über Set2 Method (ICustomPropertyManager) versucht. Damit ändert er allerdings nur die Benutzerdefinierten Eigenschaften.
Dann habe ich folgendes Beispiel zum Auslesen der Eigenschaften gefunden.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swConfigMgr As SldWorks.ConfigurationManager
Dim vConfName As Variant
Dim vConfParam As Variant
Dim vConfValue As Variant
Dim i As Long
Dim j As Long
Dim bRet As Boolean
Dim vRet As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swConfigMgr = swModel.ConfigurationManager
Debug.Print "File = " + swModel.GetPathName
vConfName = swModel.GetConfigurationNames
For i = 0 To UBound(vConfName)
bRet = swConfigMgr.GetConfigurationParams(vConfName(i), vConfParam, vConfValue)
Debug.Assert bRet
Debug.Print " Configuration = " & vConfName(i)
If Not IsEmpty(vConfParam) Then
For j = 0 To UBound(vConfParam)
Debug.Print " " & vConfParam(j) & " = " & vConfValue(j)
Next j
End If
Next i
End Sub
Damit klappt das Auslesen wunderbar. Aber leider will der SetConfigurationParams-Befehl nicht das tun was er tun sollte.
Hat von euch jemand schon etwas programmiert, oder hat jemand eine Idee wie die Eigenschaften noch geändert bekomme?
Vielen Dank schonmal
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP