Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
Frank_Schalla Beiträge: 1731 / 1 DELL M6800 Cad Admin Methodikentwickler 3D	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 ? ------------------ ************************************
rkauskh Beiträge: 2148 / 0 Windows 10 x64, AIP 2022	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 ------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com