| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Technikerschüler der staatlichen Feintechnikschule Schwenningen zu Besuch bei SolidCAM GmbH in Schramberg |
Autor
|
Thema: Wert / Textausdruck ermitteln (716 mal gelesen)
|
MAUI89 Mitglied Technischer Zeichner
Beiträge: 82 Registriert: 10.02.2015 Solidworks 2020 SP05 Win 10 (64 Bit) CPU: Intel Xeon E3-1285 v6 4,10 GHz RAM: 32 GB
|
erstellt am: 05. Nov. 2021 14:03 <-- editieren / zitieren --> Unities abgeben:
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 |
CAD-Maler Mitglied Konstrukteur / CAD-Admin / Mädchen für alles
Beiträge: 720 Registriert: 17.01.2007 SWX 2019 SP5 AutoCAD 2019 Win 10 pro 64 bit Intel(R) Xeon(R) CPU E5-1650 v4 @ 3.60GHz 64GB RAM Nvidia Quadro M5000 SWx EPDM
|
erstellt am: 08. Nov. 2021 08:15 <-- editieren / zitieren --> Unities abgeben: Nur für MAUI89
|
deckelmaho Mitglied Konstrukteur
Beiträge: 239 Registriert: 03.03.2020 SolidWorks 2023 SP5 Windows 10 64bit Office 2019
|
erstellt am: 08. Nov. 2021 09:19 <-- editieren / zitieren --> Unities abgeben: Nur für MAUI89
|
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 08. Nov. 2021 15:00 <-- editieren / zitieren --> Unities abgeben: Nur für MAUI89
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 |
Christian_W Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl-Ing)
Beiträge: 3189 Registriert: 04.04.2001 CSWP 12/2015<P>SWX2021sp5 Win10/11 (SWX2016, SWX2012) proAlpha6.2e00/calinkV9 (Tactonworks) (Medusa7, NesCAD2010, solidEdge19)
|
erstellt am: 09. Nov. 2021 09:26 <-- editieren / zitieren --> Unities abgeben: Nur für MAUI89
|
deckelmaho Mitglied Konstrukteur
Beiträge: 239 Registriert: 03.03.2020 SolidWorks 2023 SP5 Windows 10 64bit Office 2019
|
erstellt am: 09. Nov. 2021 12:09 <-- editieren / zitieren --> Unities abgeben: Nur für MAUI89
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 ExplicitDim 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 |
MAUI89 Mitglied Technischer Zeichner
Beiträge: 82 Registriert: 10.02.2015 Solidworks 2020 SP05 Win 10 (64 Bit) CPU: Intel Xeon E3-1285 v6 4,10 GHz RAM: 32 GB
|
erstellt am: 09. Nov. 2021 15:27 <-- editieren / zitieren --> Unities abgeben:
|