Hallo zusammen
Mittels Makro möchte ich Werte in die Benutzerdefinierten Eigenschaften schreiben. Da meine VBA-Kenntnisse in Sachen-SolidWorks beinahe Null sind, wäre ich um ein Codeschnippsel froh.
Hintergrund:
------------
Mein Makro wird manuell gestartet und durchläuft eine Baugruppe. Dabei soll bei jedem Teil 7 Eigenschaften ausgelesen werden und als Eigenschaft "Sortierfeld1" und Sortierfeld2" zurück gegeben werden.
Das Auslesen der Variablen mache ich so:
Set swCustProp = swModelDocExt.CustomPropertyManager("")
bool = swCustProp.Get4("Dimension1", False, Dim1, valout)
bool = swCustProp.Get4("Dimension2", False, Dim2, valout)
bool = swCustProp.Get4("Dimension3", False, Dim3, valout)
bool = swCustProp.Get4("Artikelgruppe", False, ArtGr, valout)
bool = swCustProp.Get4("Lieferant", False, Lief, valout)
bool = swCustProp.Get4("Material", False, Mat, valout)
bool = swCustProp.Get4("Halbzeug", False, Halb, valout)
Das wird dann so zusammen gesetzt
Sort1 = Left("000000000000", 12 - Len(Dim1)) & Dim1 & Left("000000000000", 12 - Len(Dim2)) & Dim2 & Left("000000000000", 12 - Len(Dim3)) & Dim3
Sort2 = Left("EEEE", 4 - Len(ArtGr)) & ArtGr & " | " & Lief & " | " & Mat & " | " & Halb
------------
Nun soll eine Eigenschaft "Sortierfeld1" erstellt werden mit dem Inhalt "Sort1" und eine Eigenschaft "Sortierfeld2" mit dem Inhalt "Sort2"
Falls es diese Eigenschaften schon gibt, sollen sie überschrieben werden. Nicht schreibgeschützte Teile sollen nun gespeichert werden.
Vielen Dank für eure Mithilfe. Gruss, Hermann
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP