---

Hallo Zusammen,

weißt jemand wie die Selektion innerhalb eines Makros (in VBA) zu lösen ist?

Die Methodik funktioniert in Script aber in nicht VBA:
'----------------------------------------------------------
Dim SelWas(2)
SelWas(0) = "Point"
SelWas(1) = "Line"
SelWas(2) = "Circle"

Dim Sel As Selection
  Set Sel = CATIA.ActiveDocument.Selection
  Sel.Clear

  Dim Elem As CATBSTR
  Elem = Sel.SelectElement2(SelWas, "Punkt, Linie oder Kreis", False)
'----------------------------------------------------------
Gruss,

K.

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

---

Hallo krisztian.furedi,

so sollte auch in VBA funktionieren.

'---------------------------------------------------
Sub CATMain()
    Dim SelWas(2)
    SelWas(0) = "Point"
    SelWas(1) = "Line"
    SelWas(2) = "HybridShapeCircleCtrRad"

    Dim Sel 'As Selection
    Set Sel = CATIA.ActiveDocument.Selection
    Sel.Clear

    Dim Elem 'As CATBSTR
   
    Do
        Elem = Sel.SelectElement2(SelWas, "Punkt, Linie oder Kreis (ESC=Abbrechen)", False)
   
        If Elem = "Cancel" Then
            Exit Sub
        End If
       
        MsgBox "Meine auswahl:" & Sel.Item(1).Value.Name & " ; Type:" & Sel.Item(1).Type
   
    Loop Until 0
   
End Sub
'---------------------------------------------------

Ciao,
Filippo

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