---

Hallo allerseits,

ich hoffe jemand kann mir bei folgendem Problem helfen.

Ich versuche an einem Körper, die Auszugsschräge (draft) mit einem Makro zu realisieren. Dabei möchte ich das "Neutrale Element" über eine Selektion auswählen.

Mit einem Makrorecorder schreibt mir CATIA folgendes auf:

Dim reference110 As Reference
Set reference110 = part1.CreateReferenceFromBRepName("RSur Face Brp "&padname1&";2);None );Cf11:_());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", pad1)
Set reference120 = part1.CreateReferenceFromBRepName("RSur Face Brp (Brp "&padname1&";2);Brp:_("&padname2&";2)));None );Cf11:_());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport; MFBRepVersion_CXR14)", pad2)

draftDomain1.NeutralElement = reference110

Ich will aber über eine Selection das "Neutrale Element" selbst auswählen.

Vielen Dank im Voraus.

Denis

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

---

Ok,
ich habe es jetzt selbst rausgefunden.

War eigentlich nicht schwer. 

Mit...

Dim Was(0)
Was(0) ="Face"

Dim UserSel as Selection
Set UserSel=Catia.ActiveDocument.Selection
UserSel.Clear

MsgBox("Drücken Sie OK und wählen Sie ein neutrales Element aus")

Dim E As CATBSTR
E = UserSel.SelectElement2(Was,"Neutrale Fläche waehlen",False)
Eingabe = UserSel.Item(1).Value.Name

...kann das "Neutrale Element" ausgewählt und an die Variable "Eingabe" übergeben werden.

Gruß
Denis

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