HiHo,
ich krieg irgendwie die Koordinaten für ein isolierten Punkt nicht mehr ausgelesen.
Hab solange dran rumgewurstet bis nix mehr ging und hab mir kein backup gemacht :/.
Auszug:
Code:
Sub CATMain() Dim oActDoc As Document
Dim oPart As Part
Dim oHybridBodies1 As HybridBodies
Dim oMath As New Class_MathFormula
Dim oPoint1Coords(1)
Set oActDoc = CATIA.ActiveDocument
Set oPart = oActDoc.Part
Set oHybridBodies = oPart.HybridBodies
Set oRefPointGeoset = oHybridBodies.Item("RefPoints")
Set oHybridShapePoints = oRefPointGeoset.HybridShapes
MsgBox oHybridShapePoints.Item(1).Name 'Überprüfen ob der den Punkt wirklich findet
oHybridShapePoints.Item(1).Value.GetCoordinates oPoint1Coords
End Sub
Ob ich bei der letzten Zeile mit oder ohne Value mach geht das nicht.
Auch nach ewigem googlen und vergleichen mit ähnlichen codes bin ich nicht drauf gekommen. könnt mir jemand helfen?
Danke schön schonmal im voraus
MfG
Sascha
------------------
„Nicht Erfolg ist der Schlüssel zum Glück,
sondern Glück ist der Schlüssel zum Erfolg.
Wenn du gerne tust, was du tust, wirst du auch erfolgreich sein.“ ― Albert Schweitzer
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP