Wert eines Parameters auslesen (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Autor	Thema: Wert eines Parameters auslesen (873 mal gelesen)
Peter91 Mitglied Beiträge: 39 Registriert: 12.10.2015 Catia V5-6R2014 Windows 7 VBA 7.1	erstellt am: 17. Nov. 2015 14:24 <-- editieren / zitieren --> Unities abgeben: Guten Tag zusammen, ich versuche gerade den Wert eines Parameters in einem CATProcess auszulesen. Der Parameter entspricht dem Typ "Länge" und der Name des Parameters ist "Mass_X" Mein Code: Code: Dim processDocument1 As ProcessDocument Set processDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = processDocument1.Selection selection1.search "Name=Parameter,all" Dim selection2 As Selection Set selection2 = processDocument1.Selection selection2.search "Name=Mass_X,sel" Dim Wert As Double Wert = selection2.Item(1).Value...? MsgBox (Wert) Was muss ich hinter "Wert = selection2" schreiben, um an den Wert zu gelangen? Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
joehz Moderator Freiberuflicher Konstrukteur Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053	erstellt am: 17. Nov. 2015 14:32 <-- editieren / zitieren --> Unities abgeben: Nur für Peter91 Hi Peter, aus der Doku: Zitat: Func ValueAsString( ) As CATBSTR Returns the value of the parameter as a string. Hope it helps, Joe ------------------ Inoffizielle Catia Hilfeseite Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Peter91 Mitglied Beiträge: 39 Registriert: 12.10.2015 Catia V5-6R2014 Windows 7 VBA 7.1	erstellt am: 17. Nov. 2015 15:03 <-- editieren / zitieren --> Unities abgeben: Hallo Joe, danke für die schnelle Antwort. Code: Wert = selection2.Item(1).ValueAsString() So funktioniert es leider noch nicht. Muss ich den Namen des Parameters in die Klammer schreiben? Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
bgrittmann Moderator Konstrukteur Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19	erstellt am: 17. Nov. 2015 15:19 <-- editieren / zitieren --> Unities abgeben: Nur für Peter91 Servus Code: Wert = selection2.Item(1).Value.ValueAsString Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Peter91 Mitglied Beiträge: 39 Registriert: 12.10.2015 Catia V5-6R2014 Windows 7 VBA 7.1	erstellt am: 17. Nov. 2015 15:26 <-- editieren / zitieren --> Unities abgeben: So funktioniert es. Vielen Dank, ist ein super Forum hier Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Peter91 Mitglied Beiträge: 39 Registriert: 12.10.2015 Catia V5-6R2014 Windows 7 VBA 7.1	erstellt am: 18. Nov. 2015 14:33 <-- editieren / zitieren --> Unities abgeben: Gibt es auch eine Möglichkeit den Parameter ohne Einheit auszulesen? Also anstatt z.B. "3,5mm" soll die Ausgabe "3,5" sein. Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
bgrittmann Moderator Konstrukteur Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19	erstellt am: 18. Nov. 2015 14:49 <-- editieren / zitieren --> Unities abgeben: Nur für Peter91 Servus Code: Wert = selection2.Item(1).Value.Value Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Peter91 Mitglied Beiträge: 39 Registriert: 12.10.2015 Catia V5-6R2014 Windows 7 VBA 7.1	erstellt am: 18. Nov. 2015 15:35 <-- editieren / zitieren --> Unities abgeben: Vielen Dank, super Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)