Na Toll, kurz nachdem ich hilflos war, doch selber hinbekommen.
War gar nicht so schwer. Das hier ist der Code:
'Kurz noch die Fläche berechnen ---------------------
'ShapeObj ist eine Fläche in einem Geoset bei mir
Dim catApp As INFITF.Application = CType(GetObject(, "CATIA.Application"), INFITF.Application)
' Zugriff auf das aktive Dokument ->Part
Dim spaWorkbench As SPATypeLib.SPAWorkbench = CType(catApp.ActiveDocument.GetWorkbench("SPAWorkbench"), SPATypeLib.SPAWorkbench)
' Sicherstellen, dass shapeObj ein gültiger Reference ist
Dim reference As INFITF.Reference = CType(shapeObj, INFITF.Reference)
' Measurable erzeugen
Dim measurable As SPATypeLib.Measurable = spaWorkbench.GetMeasurable(reference)
' Fläche messen
Dim area As Double = measurable.Area
MsgBox("Flächeninhalt: " & area.ToString("0.00") & " mm²")
'^Fläche berechnen^ -------------------------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP