---

Ich hab ein Makro geschrieben welches um ein Part immer auf die selbe weiße einen Quader erzeugt. Auf einer Seite von diesem soll im Mittelpunkt ein Punkt erzeugt werden. Dies klappt auch bei 95% aller Parts. Ich versteh nur leider nicht was bei den letzten 5% sein könnte. Bei diesen kann das Part nicht aktualisiert werden und wenn ich den erzeugten Punkt (welcher dann mit einem gelben Ausrufezeichen gekennzeichnet ist) manuell aktualisieren will kommt immer diese Fehlermeldung:

Komponente    | Ursache
-----------------------------------------------------------------
Mittelpunkt      | Berechnungsfehler
                      |
Teilfläche.17    | Error

Und hier der Code mit dem ich den Punkt erzeuge:

Code:

---

Sub catmain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As part
Set part1 = partDocument1.part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapeDirection1 As HybridShapeDirection
Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirectionByCoord(-0.210884, 0.443606, -0.871058)

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim split1 As Split
Set split1 = shapes1.Item("Trennen.7")

Dim reference1 As reference
Set reference1 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(Split.7_ResultOUT);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", split1)

Dim hybridShapePointOnSurface1 As HybridShapePointOnSurface
Set hybridShapePointOnSurface1 = hybridShapeFactory1.AddNewPointOnSurface(reference1, hybridShapeDirection1, 0#)

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Bauraum")

hybridBody1.AppendHybridShape hybridShapePointOnSurface1

part1.InWorkObject = hybridShapePointOnSurface1

hybridShapePointOnSurface1.Name = "Mittelpunkt"
part1.Update

End Sub

---

Kann jemand von euch vieleicht einen Fehler in dem Code erkennen oder hat eine Idee woran es liegen könnte?

Also ich vermute mal das es an dem BRep von der reference1 liegt aber verstehe nicht warum. Der Quader wird mit einem anderen Makro immer auf die selbe Art erzeugt und wie gesagt bei 95% funktioniert es ja.

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

---

Hallo,
prüfe mal nach, ob das Objekt Split1 immer korrekt erzeugt wird. Hier benutzt du ja die interne Nomenklatur von V5 mit "Trennen.7". Vielleicht ist bei den Fehlerparts anstatt "Trennen.7" ein anderer Name vorhanden ?!

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Homepage von Jens Hansen
Kochbuch - CATIA V5 automatisieren

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