---

min-Biegeradius_01.jpg min-Biegeradius_02.jpg

Hallo zusammen,

ich habe folgendes Problem. Und zwar möchte ich von einem Spline bzw. von einer Tube(arbeite mit dem Tool Tubing Design) den mindest-Biegeradius auslesen und in Excel ausgeben.
Bei der Tube wird dieser schön im Fenster ausgegeben. Siehe Bild 1.

Excel Ausgabe und so stellt kein Problem dar.
Ich schaffe es nur nicht, den richtigen Wert zu greifen und den dann auszuwerfen.

Idee war noch, alles über den integrierten Spline zu machen.
Hab mal folgendes probiert. Hauptsächlich aus aufgezeichnetem Makro rausgeschrieben.

Code:

---

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("TUBE_FLEXIB_0_a08_56bb22c9_2037d.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

MsgBox part1.Name, vbInformation

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("RibPath")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim spline1 As HybridShapeSpline
Set spline1 = hybridShapes1.Item(1)

MsgBox spline1.Name, vbInformation

Dim Radius As Length
Set Radius = spline1.GetCurvatureRadius(2)

MsgBox Radius.Value, vbInformation

End Sub

---

Damit kann ich zumindest den Splinenamen dann ausgeben. (Probehalber in einer Msgbox)
Ich habe nur ein Problem mit dem Code "GetCurvatureRadius()". Verstehe die Hilfe dabei auch nicht wirklich.

Zitat:

---

Aus der V5Automation:
o Func GetCurvatureRadius( long  iPos) As CATIALength 

Returns the curvature radius value for each point of the spline.
Parameters:
iPos
The position of the point in the spline.
Legal values: first position is 1. The position cannot be 0.
oRadius
The curvature radius value at this point

---

Was genau muss man da als Punkt angeben? Und den Min-Radius bekomme ich dadurch ja auch nur schwierig, oder?!

Noch eine Idee ist, dass ganze beim Spline über den Befehl "Porcupine Curvature Analysis" zu machen. Dabei bekomme ich den Min-Radius, aber auch nur als Bild.

Hat jemand dazu noch andere Ideen oder sowas schonmal anders bewerkstelligt?

Das ganze soll in VBA programmiert werden und vorzugsweise unter Catia V5R18 laufen. Brauchen tue ich es für meine Studienarbeit an der Hochschule.

Viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Mit der Methode "GetCurvatureRadius" kannst du den Radius an jeder Steller eine Kurve auslesen. Dabei muss ein Längenparameter mit angegeben werden (0 ist der Anfang, 1 das Ende der Kurve, zB 0.5 die Mitte)
Wenn du dies nutzen möchtest, könntest du über eine Schleife den Längenparameter um 0.001 erhöhen und überall den Radius auslesen. Den Minimalwert kannst du dann weiterverarbeiten (wird wohl recht langsam sein).
Wie du auf die Krümmungsanalyse zugreifen kannst ist mir nicht bekannt.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Bernd,

Also ich hab des ganze mal ausprobiert und getestet.
Bei mir funktioniert das auf deine Weise nicht.
Ich kann nur ganze Zahlen bei der Methode "GetCurvatureRadius" eingeben. Dabei auch nur die Zahlen, aus wie vielen Punkten mein Spline besteht.
So wie ich das verstehe, kann ich damit dann nur die Radien an den Punkten auslesen. Kannst du das bestätigen?

Abgesehen davon, funktioniert aber noch nicht einmal die Ausgabe des Radius an den Punkten^^

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

GSD_MinRadius.png

Servus

Ups, du hast recht (mit Formel konnte man ja so was machen)
Alternativ kannst du auch mittels Knowlegware-Formel den minimalen Radius ermitteln (siehe Bild)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Tipp.
Genau so funktioniert's tadellos.

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP