Cosinus (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Autor	Thema: Cosinus (3031 mal gelesen)
Erich Mitglied Senior Consultant selbstständig Beiträge: 198 Registriert: 03.10.2000 i7-9850H RAM 32,0 GB Nvidia Quadro T2000 Windows 7 Professional 64Bit	erstellt am: 10. Jul. 2013 21:51 <-- editieren / zitieren --> Unities abgeben: Hallo Ich berechne aus 3 Punkten den Cos Wert. Wert = -0.9047..., entspricht einem Winkel von 154.791 Grad. Dies kann jeder Taschenrechner! Ich möchte nun im Script aus dem Wert den Winkel berechnen. Mein Schulwissen sagt sowas wie ArcCos! In Catia vielleicht ACos? Hier leider die Meldung - Variable ist nicht definiert. Kennt einer einen Weg zu meinem Ziel? Es würde mich freuen Tips zu bekommen. Danke. ------------------ mfg Erich 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: 10. Jul. 2013 22:24 <-- editieren / zitieren --> Unities abgeben: Nur für Erich Servus In VBA geht das nur über einen Umweg: siehe auch VBA-Hilfe: Code: Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) In einer CATIA-Formel gibt es die Funktion "acos" Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Erich Mitglied Senior Consultant selbstständig Beiträge: 198 Registriert: 03.10.2000 i7-9850H RAM 32,0 GB Nvidia Quadro T2000 Windows 7 Professional 64Bit	erstellt am: 11. Jul. 2013 10:20 <-- editieren / zitieren --> Unities abgeben: Hallo danke für die Antwort. Einen weiteren Tip über Catscript steht nicht zur Verfügung? (Catvba verwende ich gerade nicht!) Danke. ------------------ mfg Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Erich Mitglied Senior Consultant selbstständig Beiträge: 198 Registriert: 03.10.2000 i7-9850H RAM 32,0 GB Nvidia Quadro T2000 Windows 7 Professional 64Bit	erstellt am: 13. Jul. 2013 16:53 <-- editieren / zitieren --> Unities abgeben: Hallo Bernd ich hab Deine catvba - Variante des ARCCOS nun verwendet und ich bekomme die Fehlermeldung "Sub or Function not defined" ?? In der VBA-Hilfe steht es auch so drin. Nur funktionieren tut es so nicht! Hast Du noch einen Tip? Danke. ------------------ mfg Erich 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: 14. Jul. 2013 14:57 <-- editieren / zitieren --> Unities abgeben: Nur für Erich Servus Bei mir funktioniert es in VBA und als CATScript so: Code: Function ARCCOS (X As Double) ARCCOS = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) End Function Sub CATMain() MsgBox CStr(ARCCOS (0.5)) End Sub Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Erich Mitglied Senior Consultant selbstständig Beiträge: 198 Registriert: 03.10.2000 i7-9850H RAM 32,0 GB Nvidia Quadro T2000 Windows 7 Professional 64Bit	erstellt am: 14. Jul. 2013 16:42 <-- editieren / zitieren --> Unities abgeben: Hallo Bernd vielen Dank für den einfachen Beweis, Fehler meinerseits. Die Berechnung meines Skalarprodukts funktioniert nun. ------------------ mfg Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)