---

Servus!

Ich benötige mal wieder Hilfe, da ich leider nichts im Forum oder auch sonst wo gefunden habe.
Ich möchte bei einem Zylinder/Rib die ConstRadEdgeFillet anwenden. Der Makro-Recorder zeichnet folgendes auf ....

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim rib1 As Rib
Set rib1 = shapes1.Item("Rib.11")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromBRepName("RSur Face Brp Rib.11;1);None );Cf11 ));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", rib1)

constRadEdgeFillet1.AddObjectToFillet reference2

constRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

part1.Update

... das Makro läuft nicht durch bzw. kann das letzte part.update nicht ausführen, selbst wenn ich den Namen "Rib.11" variabel mache.
Deshalb meine Frage, wie kann ich die Stirnfläche des Zylinder/Rib auswählen, bzw. davon eine Referenz erzeugen?
Besten Dank.

Gruß
AL-Fonse

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