---

Hallo,

ich habe ein kleines Problem. Ich möchte ein Makro erstellen, welches mir ein Powercopy einbaut und dabei von Nutzer -ausgewählte Elemente nutzt. Der Nutzer soll eines der folgenden Elemente auswählen können.

- Körperkanten (Edge)
- abgeleitete Splines (CATIA-Funktion "Begrenzung")
- oder 3d Splines.

mein Code sieht wie folgt 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

Der Nutzer kann also nur eine Körperkante auswählen.

Wie kann man dem Makro sagen, dass der Anwender auch die anderen beiden Elemente auswählen kann?

Ich bedanke mich im Voraus für eure Hilfe.

Gruß
Hardy

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

---

Hallo Hardy,

du musst eigentlich nur Dein Array erweitern:

Code:

---

      Dim Was1(2)
       Was1(0) = "Edge"
       Was1(1) = "BezeichnungElement1"
       Was1(2) = "BezeichnungElement2"

---

Wie die Bezeichner der Elemente heißen, die Du noch haben möchtest, kann ich Dir aus dem Bauch raus gerade nicht sagen :-)

Gruß, Alex

[Diese Nachricht wurde von BigCheese am 30. Nov. 2007 editiert.]

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

---

Hallo Alex,

ich danke dir für deine schnelle Antwort. Aber ich bräuchte die Bezeichner der Elemente. Ich bin noch neu in der Programmierung. Alles was ich besiher versucht habe, hat leider nicht geklappt.

Gruß
Hardy

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

---

Hi nochmals,

ich denke Du suchst "HybridShapeBoundary" und "HybridShapeSpline".

Falls nicht, kannst Du Dir ja den Typ mal ausgeben lassen mit folgenden Code:

Code:

---

Sub CATMain()
Dim myPartDocument
Set myPartDocument = CATIA.ActiveDocument
Set mypart = myPartDocument.Part

Dim ElementToSelect(0)
ElementToSelect(0) = "AnyObject"

Set mySelection = myPartdocument.Selection
SelectedElement = mySelection.SelectElement2(ElementToSelect, "Auswahl", True)

Set myItem = mySelection.Item(1).Value
MsgBox "Typ des selektierten Elements: " & TypeName(myItem)

End Sub

---

Dies gibt Dir den Typ eines gewählten Objektes aus - du solltest allerdings im Baum das Objekt auswählen.

Gruß und schönes WE,
Alex

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

---

Hallo Alex,

ich danke dir für deine Antworten.

Gruß
Stephan

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