Hmm seit 3 Tagen beisse ich mir nun hier in den Ar....

Folgende Situation
Ein Bauteilkoordinatensystem ist ungleich einer neu erstellten Skizze.
Nun muss ich die COG Koordinaten (3d basiert) auf das 2D Koordinatensystem übertragen.
Also einfach formuliert die Lage innerhalb der planaren Skizze finden.
Hat da jemand eine Idee ?

Hallo

So vielleicht?

Code:

---

Private Sub COG2Sketch()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDoc As PartDocument
Set oDoc = oApp.ActiveDocument

Dim oCenterOfMass As Point
Set oCenterOfMass = oDoc.ComponentDefinition.MassProperties.CenterOfMass

Dim oSketch As PlanarSketch
Set oSketch = oDoc.ComponentDefinition.Sketches.Item(1)

Dim oPoint As Point2d
Set oPoint = oSketch.ModelToSketchSpace(oCenterOfMass)

End Sub

---