---

Hallo zusammen,

wie kann ich in einem Makro den Wert / Textausdruck ermitteln, damit ich diesen in eine andere Eigenschaft kopieren kann?
Ich habe nur ein Makro mit dem ich den bereits evaluierten Wert erhalte und der bringt mir nichts, da die Verknüpfung zum Modellwert erhalten bleiben soll.

Danke schonmal und schönes Wochenende 

------------------
Mfg Steffen

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

---

Mit Get6 oder GetAll3.

Gruß, Jens

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

---

Hi Jens,

soweit ich weiß, bekomm ich über Get6 oder GetAll3 als Value wirklich nur den Evaluierten Wert aber leider nicht Wert / Textausdruck.

Würde mich freuen, wenn es da eine Möglichkeit gäbe.

LG Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

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

---

Hallo Kevin,

du bekommst mit beiden Methoden mehrere Rückgabewerte, mit "Get6" 4 Stück für eine bestimmte Eigenschaft und mit "GetAll3" 5 Stück je vorhandene konfigurationsspezifische Eigenschaft (für eine Konfiguration).

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete  

[Diese Nachricht wurde von bk.sc am 08. Nov. 2021 editiert.]

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

---

Hallo,
also bei "get6" sehe ich ValOut und ResolvedValOut, da müsste beides bei sein.
bei "getall3" sehe ich auch nur die resolvedValues, dafür alle im Array.
Gruß, Christian

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

---

Hi Christian,

ich hab's getestet und für gut befunden 
Der Thread-Ersteller hat seine Lösung und ich wieder was gelernt. 

Code:

---

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModelDoc As ModelDoc2
Dim cusPropMgr As SldWorks.CustomPropertyManager
Dim MyCurrentConfig As SldWorks.Configuration
Dim lRetVal As Long

Sub main()

Set swApp = Application.SldWorks
Set swModelDoc = swApp.ActiveDoc
Set MyCurrentConfig = swModelDoc.GetActiveConfiguration
Set cusPropMgr = MyCurrentConfig.CustomPropertyManager

Dim MyProperty As String
MyProperty = "MyFileName"

Dim ValOut As String
Dim ResolvedValOut As String
Dim wasResolved As Boolean
Dim linkToProp As Boolean

lRetVal = cusPropMgr.Get6(MyProperty, False, ValOut, ResolvedValOut, wasResolved, linkToProp)

If lRetVal <> 0 Then
    Debug.Print "Name der Eigenschaft: " & MyProperty
    Debug.Print "Wert / Textausdruck: " & ValOut
    Debug.Print "Evaluierter Wert: " & ResolvedValOut
End If

End Sub

---

Thx @ ALL

LG Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

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

---

Sweeet, danke euch vielmals !!! 

------------------
Mfg Steffen

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