---

Hallo CADler, ich habe gerade ein seltsames Problem und bin zu blind, es zu finden   Und zwar möchte ich einfach einen Punkt auf einer Ebene in einem Geometrischen Set erstellen, das klappt soweit auch und der Punkt bekommt die angestrebten Koordinaten 0, 0 auch mit. Allerding wird ihm keine Referenzebene mitgegeben, das Makro läuft über diese Stelle aber ohne Fehlermeldung hinweg, weshalb ich auf dem Schlauch stehe!

Sub MessflaechenVerrechnen

Dim ErsteFlaecheX, ZweiteFlaecheX, ErsteFlaecheY, ZweiteFlaecheY As Plane
Dim Ref1X, Ref2X, Ref1Y, Ref2Y As Reference
Dim SuchErgebnis As Collection
Dim TheSPAWorkbench As Workbench
Dim MessungX, MessungY As Measurable
Dim PunktAufFlaechenReferenz As HybridShapePointOnPlane

Set HybridShapeFactory = PartDerFlaeche.HybridShapeFactory

Set SuchErgebnis = CATIA.ActiveDocument.Selection
SuchErgebnis.Clear

SuchErgebnis.Search "'Part Design'.'Ebene - Offset'.Name=ErsteFlächeX; Alle"
Set ErsteFlaecheX = SuchErgebnis.Item(1)
Set Ref1X = SuchErgebnis.Item(1).Reference
SuchErgebnis.Clear

'
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" )
Set MessungX = TheSPAWorkbench.GetMeasurable(Ref1X)
LaengeX = MessungX.GetMinimumDistance(Ref2X)
MsgBox ("Die Länge beträgt:" & LaengeX &"mm")

Set MessungY = TheSPAWorkbench.GetMeasurable(Ref1Y)
BreiteY = MessungY.GetMinimumDistance(Ref2Y)
MsgBox ("Die Breite beträgt:" & BreiteY &"mm")

Set PunktAufFlaechenReferenz = HybridShapeFactory.AddNewPointOnPlane (Ref1X, 0, 0)
HMesskoerper.AppendHybridShape PunktAufFlaechenReferenz
PartDerFlaeche.Update
End Sub

[Diese Nachricht wurde von WMJS am 02. Apr. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oooh man, ich habs bereits... Manchmal muss man einfach nur einen Schritt zurücktreten und auf einmal springt einen der Fehler förmlich an!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP