---

referenz.png

Hallo liebes Forum,

ich möchte über ein Makro ein Powercopy einbauen. Es funktioniert auch recht gut.
Weiterhin ist es so, dass man beim manuellen Einbau auf die Referenzen vorhandener Elemente Einfluß nehmen kann (siehe Bild im Anhang).
Der Quellcode für den Einbau sieht folgendermaßen aus.

        Dim Was1(0)
        Was1(0) = "Edge"
       
        Dim UserSel1 ' As Selection
        Set UserSel1 = CATIA.ActiveDocument.Selection
        UserSel1.Clear
       
        MsgBox ("Kante und senkrechte Fläche selektieren!")
       
        Dim Kante 'As String
              Kante = UserSel1.SelectElement2(Was1, "Auswahl", True)
        If Kante = "Normal" Then
          'MsgBox (UserSel1.Item(1).Value.Name)
        Else
          MsgBox ("Abbruch")
        End If
       
        Dim Support1 As Reference
        Set Support1 = UserSel1.Item(1).Value
       
        Set inputReferenceKante = PartDest.CreateReferenceFromName(UserSel1.Item(1).Value.Name)

Jetzt möchte ich während des Einbaus über das Makro auch Einfluß auf diese Referenzen nehmen. Wenn ich dieses nicht mache, kann es passieren, dass das PC einfach falsch eingebaut wird.

Wie kann ich dieses anstellen. Kann mir eventuell jemand weiter helfen?
Ich danke euch im Voraus.

Gruß
Stephan

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