---

Hallo Forum,

per Maus möchte ich eine Bemaßung auswählen. Das Makro übergeht "selectelement2" und ich kann nichts auswählen.
Was mache ich falsch? Muß ich mit Indicate2d arbeiten?

Vielen Dank im voraus
Klaus

Hier ist mein Code:
Dim ActiveDoc As DrawingDocument
Dim drawingSheets1 As DrawingSheets
Dim drawingSheet1 As DrawingSheet

On Error Resume Next
Set ActiveDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
    MsgBox "Fehler"
End If

Dim Filter(1)
Filter(1) = "AnyObject"

Dim UserSel 'As Selection
UserSel.Clear

Dim Ergebnis
Ergebnis = UserSel.SelectElement2(Filter, "Objekt auswählen", True)
If Ergebnis = "Normal" Then
    MsgBox (UserSel.Item(1).Value.Name)
Else
    MsgBox "Abbruch"
End If

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

---

Servus
Bei dir hatte es sich gerächt, das du die Fehlerbehandlung ausgeschaltet hattest, deswegen hast dich gemerkt das die Selektion nicht der Variabel/Objekt UserSel zugewiesen war:

Code:

---

Sub CATMain()

Dim ActiveDoc As DrawingDocument
Dim drawingSheets1 As DrawingSheets
Dim drawingSheet1 As DrawingSheet

On Error Resume Next
Set ActiveDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
    MsgBox "Fehler"
    Exit Sub
End If

On Error GoTo 0 'Fehlerbehandlung wieder einschalten

Dim Filter(0)
Filter(0) = "AnyObject"

Dim UserSel 'As Selection
Set UserSel = ActiveDoc.Selection
UserSel.Clear

Dim Ergebnis
Ergebnis = UserSel.SelectElement2(Filter, "Objekt auswählen", True)
If Ergebnis = "Normal" Then
    MsgBox (UserSel.Item2(1).Value.Name)
Else
    MsgBox "Abbruch"
End If
End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

vielen Dank für die Hilfe!

Grüße
Klaus

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