| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| | |
 | Schnell, effizient und günstig: Mit der Kisters 3DViewStation 3D Arbeits- und Reparaturanleitungen einfach erstellen und pflegen, eine Pressemitteilung
|
|
Autor
|
Thema: Cosinus (3655 mal gelesen)
|
Erich
Mitglied
Senior Consultant selbstständig
   Beiträge: 223
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: 12179
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: 223
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:
|
Erich
Mitglied
Senior Consultant selbstständig
Beiträge: 223
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: 12179
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: 223
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:
|
Foren auf CAD.de
| 
