---

Hallo miteinander,

habe eine Frage zu einem Makro.
Es speichert die beiden Eigenschaften, die ich brauche in die benutzerdefinierten Eigenschaften, statt wie von mir gewollt in die konfigurationsspezifischen.

Kann man das einfach was ändern um es zum laufen zu kriegen.

Hier das Makro:

Dim swApp As Object

Sub main()
Dim swApp          As SldWorks.SldWorks
Dim swModel        As SldWorks.ModelDoc2
Dim value          As CustomPropertyManager
Dim wert          As String

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

Set instance = swModel.Extension

Set value = instance.CustomPropertyManager("")

value.Add2 "Oberfläche", swCustomInfoText, Chr(34) & "SW-SurfaceArea@" & swModel.GetTitle & Chr(34)
value.Add2 "Volumen Körper", swCustomInfoText, Chr(34) & "SW-Volume@" & swModel.GetTitle & Chr(34)

Set swModel = Nothing
Set swApp = Nothing

End Sub

Danke für die Hilfe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von simonsgl:

Set value = instance.CustomPropertyManager("")

---

Zwischen den Anführungsstrichen gehört der Name der Konfiguration. Diesen kannst Du Dir z.B. so ermitteln:

Dim swConfMgr                  As SldWorks.ConfigurationManager
Dim swConf                      As SldWorks.Configuration

Set swConfMgr = swModel.ConfigurationManager
Set swConf = swConfMgr.ActiveConfiguration

Set value = instance.CustomPropertyManager(swConf.Name)

oder hart rein schreiben.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP