---

Hi,

ich brauche mal wieder Hilfe für das Makro meiner Abschlussarbeit. Es soll ein Union Trim gemacht werden, bei dem ein Teil des angetrimmten Körpers (PC1) behalten werden soll. Dieser Teil muss durch den User durch Klick als "Face to keep" angewählt werden.

Der Makrorecorder liefert nach manueller Handhabe folgenden Code:

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

part1.InWorkObject = Nothing

Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("PC1")

Dim trim1 As Trim
Set trim1 = shapeFactory1.AddNewTrim(body1)

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim constRadEdgeFillet1 As ConstRadEdgeFillet
Set constRadEdgeFillet1 = shapes1.Item("EdgeFillet.792")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromBRepName("RSur Face Brp Pad.426;2);None );Cf11 ));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", constRadEdgeFillet1)

trim1.AddFaceToKeep reference1

part1.Update

End Sub

Die Reference1 kann ich natürlich so nicht verwenden, da muss der User wählen. Aber wie gehe mich mit UserSel um? Brauche ich dafür SelectElement2?

Danke euch!!!
Viele Grüße

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