Autor
|
Thema: Krümmung einer ebenen Kurve (2222 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:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|