| | |
 | 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: Krümmung einer ebenen Kurve (2285 mal gelesen)
|
Bertel
Mitglied
   Beiträge: 300
Registriert: 03.04.2002 CATIA V5 R26SP3HF21
Win10
Lenovo P52
Intel Xenon 16GB Ram
NVIDIA Quadro P2000
EUKLID V14
ViCADo 2015
|
erstellt am: 01. Jun. 2011 16:01  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, habe folgende Aufgabenstellung: Auf einer ebenen Kurve Punkte mit konstantem Abstand erzeugen (läuft).
An jedem Kurven-Pumkt die Tangente berechnen (läuft).
An jedem Kurven-Punkt die Krümmung berechnen (läuft nicht). Code:
Dim Kruemmung (2) As Double
Kurve.GetCurvature 0.55, Kruemmung
msgbox Kruemmung(0)&chr(10)&Kruemmung(1)&chr(10)&Kruemmung(2)
Leider ist das Array Krümmung immer leer?!?Hat jemand mal ein funktionierendes Beispiel dafür.
Hätte gerne vor dem langen Wochenende noch ein Erfolgserlebnis. Danke. Gruß
Bertel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
JuPaV
Mitglied
Software-Entwickler
Beiträge: 39
Registriert: 11.11.2010 CATIA V5R20SP364
CATScript, CATVba, VB6, .NET, C++, NXOpen
|
erstellt am: 08. Jun. 2011 11:09 <-- editieren / zitieren --> Unities abgeben: Nur für Bertel 
Hallo!  Du kannst Krümmung von Kurve über „Formula“ berechnen. Beispiel: Set formula14 = Part.Relations.CreateFormula("Formula.14", "", Param, "curvature(Curve,Point)/1000000mm ") ------------------
Mit freundlichen Grüßen,
JuPaV Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bertel
Mitglied
Beiträge: 300
Registriert: 03.04.2002 CATIA V5 R26SP3HF21
Win10
Lenovo P52
Intel Xenon 16GB Ram
NVIDIA Quadro P2000
EUKLID V14
ViCADo 2015
|
erstellt am: 09. Jun. 2011 11:11 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
