Inputbox-Wert in Formel einfügen (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Autor	Thema: Inputbox-Wert in Formel einfügen (1470 mal gelesen)
Syphield Mitglied Konstrukteur Beiträge: 46 Registriert: 02.10.2007 Win 7 Pro x64; Intel i7-3840QM @2,79GHz; 16GB RAM; Nvidia Quadro K5000M; CATIA V5 R19 x64 SP9 Hotfix 49	erstellt am: 30. Jun. 2009 07:36 <-- editieren / zitieren --> Unities abgeben: Hallo, wie füge ich einen Wert aus der Inputbox in eine Formel ein ??? Habe das bisher so versucht: ------------------------------------------------------------------------------------------------------------------- Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Eingabe = InputBox ("Länge eingeben.", Eingabe) Set relations1 = part1.Relations Set parameters1 = part1.Parameters Set length1 = parameters1.Item ("Offset Leiste") Set formula1 = relations1.CreateFormula("Formel.10", "", length1, "( & Eingabe /2 - `Breite` ) -1mm") formula1.Rename "Formel.10" part1.Update End Sub ------------------------------------------------------------------------------------------------------------------- Was ist da falsch ?! Gruß Alex ------------------ Never stop progress ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
tomtom1972 Mitglied dipl ing maschinenbau Beiträge: 605 Registriert: 22.03.2005 NVidia Quadro K4000 Intel Xeon E5-1620, 64GB RAM Windows10 64bit R30 <= CATIA V5 > =R19	erstellt am: 30. Jun. 2009 07:40 <-- editieren / zitieren --> Unities abgeben: Nur für Syphield Hallo, ohne mir das näher anzusehen. Das hier: Set formula1 = relations1.CreateFormula("Formel.10", "", length1, "( & Eingabe /2 - `Breite` ) -1mm") kann schon gar nicht stimmen. Gruß ------------------ tomtom1972 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Syphield Mitglied Konstrukteur Beiträge: 46 Registriert: 02.10.2007	erstellt am: 30. Jun. 2009 07:57 <-- editieren / zitieren --> Unities abgeben: Ja danke für die schnelle Antwort. Aber das hab ich selbst auch schon rausgekriegt !!! (Daher ja der thread) Wie kann ich die "Eingabe" dann in die Formel bringen ? ------------------ Never stop progress ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
zoltan.bekesi Mitglied Beiträge: 321 Registriert: 22.10.2006 Job: CATIA V5R19 / XP 32bit MS Office 2003 Microstation V8 2004 Edition DELL Precision M6300	erstellt am: 30. Jun. 2009 19:38 <-- editieren / zitieren --> Unities abgeben: Nur für Syphield Hallo Alex, versuche mal die letzen 2 Zeilen wie folgt zu ändern: Code: Set formula1 = relations1.CreateFormula("Formel.10", "", length1, "( " & Eingabe & " /2 - `Breite` ) -1mm") ' formula1.Rename "Formel.10" In den ersten musst du mit den Anführungszeichen aufpassen. Text gehört unter Anführungszeichen, Variable (z.B. Wert aus Eingabe) nicht. Die Textteile sind mit den "&" Operatoren zusammenzufassen. Die letzte Zeile brauchst du nicht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Syphield Mitglied Konstrukteur Beiträge: 46 Registriert: 02.10.2007	erstellt am: 01. Jul. 2009 06:23 <-- editieren / zitieren --> Unities abgeben: Jaaaaaaaaaaaa !!! muß also ein zweites "&" rein. Mann Mann Mann... Vielen Dank ! ------------------ Never stop progress ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)