---

Fehler1.jpg Fehler2.jpg

Hallo zusammen,

ich hab schon wieder eine Frage! 
Wie ihr wahrscheinlich schon wißt, will ich ein paar Kanten verrunden.
Mittlerweile habt ihr mir geholfen, dass ich jede Kante anwählen kann.Ich markiere alle Kanten einer Extrusion und such mir die raus die parallel zu einer Richtung liegen. Danach füge ich diese Kanten zu einer EdgeFillet dazu.- Soweit so gut.

Das Zufügen zu einer EdgeFillet habe ich aufgezeichnet.
Leider funktioniert diese Methode nicht mehr, wenn ich sie im Makro ausführen lasse.
Fehlermeldung: No resulting element: the operated body has no geometry

Witzigerweise erzeugt er das Fillet und hat auch alle Kanten selektiert, die ich wollte. Leider bricht er bei "Werkzeug.update" ab

Vielen Dank im vorraus!
Spike

Mein Code:
Dim Kantenzaehler As Integer
Dim Kante As AnyObject

Dim Kanten_Selektion As Selection
Set Kanten_Selektion = Bauteildokument.Selection

Kanten_Selektion.Clear
Kanten_Selektion.Add Nutauszug

Kanten_Selektion.Search "Topology.CGMEdge,sel"
Kantenzaehler = Kanten_Selektion.Count

Dim Werkzeugkasten As ShapeFactory
Set Werkzeugkasten = Werkzeug.ShapeFactory

Dim Rundung As ConstRadEdgeFillet
Set Rundung = Werkzeugkasten.AddNewSurfaceEdgeFilletWithConstantRadius(Nothing, catTangencyFilletEdgePropagation, 70#)

For i = 1 To Kantenzaehler
 
    Set Kante = Kanten_Selektion.Item(i).Value
    Set Messung = Arbeitsplatz_Messung.GetMeasurable(Kante)
    Dim Winkel
    Winkel = Messung.GetAngleBetween(Auszugsrichtung)

        If Winkel = 0 Then

        Rundung.AddObjectToFillet Kante
        Rundung.EdgePropagation = catTangencyFilletEdgePropagation
        Rundung.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation
        Rundung.FilletTrimSupport = catTrimFilletSupport
       
        End If
Next

Werkzeug.Update

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

---

Hallo da draussen,

ich muss diesen Beitrag nochmals rauskramen, da ich genau das gleiche Problem habe, außer dass ich "Faces" für mein Fillet nutze.

Per Hand erstellt funktioniert alles bestens, das Makro streikt allerdings mit der Fehlermeldung aus obigem Beitrag beim Update.

Bisher versucht habe ich nach dem Hinzufügen jeweils ein lokales Update (Part.UpdateObject) des Fillets, allerdings ohne Erfolg. Das Fillet als Hybridshape zu instanziieren funktioniert, allerdings scheitert der Befehl "compute".

Habt ihr irgendwelche weiteren Vorschläge das Problem zu lösen?

Besten Dank

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

---

kleines Workaround:

wenn das Fillet nicht neu erstellt, sondern im modell existiert und zumindest eine Kante/Fläche enthält, können die restlichen ohne Komplikationen hinzugefügt werden.

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

---

Hallo,
der beitrag ist zwar was älter aber naja ...
Muss es beim Code am Ende nicht nicht

"Bauteildokument.Part.Update"

heißen?
Das Objekt "Werkzeug" gibt es ja nicht ..

SG

Jens

------------------
Inoffizielle CATIA-Hilfeseite
Kochbuch - CATIA V5 automatisieren

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

---

Ich habe nicht diesen Quellcode verwendet, es ging mir um die Fehlermeldung.

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