Hallo,
in einer Skizze hole ich mir die Koordinaten eines Punktes auf einer Kurve in einem Abstand vom Kurvenanfang.
Funktioniert auch prima solange es sich bei den Kurven um Linien, Kreise, Splines handelt mit diesem Code:
Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")
Dim sketches1 As Sketches
Set sketches1 = body1.Sketches
Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Skizze.1")
part1.InWorkObject = sketch1
Dim geometricElements1 As GeometricElements
Set geometricElements1 = sketch1.GeometricElements
Dim myCurve As Object
Set myCurve = geometricElements1.Item("Spline.1") 'Hier möchte ich jedoch auf ein projeziertes Element zugreifen
'Start und Endpunkt der Kurve bestimmen
Dim ParamExtents(1) As Variant
myCurve.GetParamExtents ParamExtents
'Startpunkt bestimmen
Dim StartParam As Double
StartParam = ParamExtents(0)
'Parameter des Punktes auf der Kurve im Abstand von 10mm vom Startpunkt der Kurve bestimmen
PointParam = myCurve.GetParamAtLength(StartParam, 10)
'Die Koordinaten des Punktes bestimmen
Dim PointKoordinaten(1)
myCurve.GetPointAtParam PointParam, PointKoordinaten
MsgBox PointKoordinaten(0) ' X Koordinate
MsgBox PointKoordinaten(1) ' Y Koordinate
part1.InWorkObject = body1
part1.Update
End Sub
Nun möchte ich aber an Stelle der Kurve [-> Set myCurve = geometricElements1.Item("Spline.1")] eine in der Skizze vorhandene Projektion verwenden.
Und hier komme ich nicht weiter.
Ich kann zwar das Element Markierung.1 im Set Externe Erzeugungsgeometrien ansprechen, aber es liefert keine verwendbare Kurve.
Hat jemand hierzu eine Idee?
Schon mal vielen Dank.
Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP