---

Hallo,
ich bin gerade fast am verzweifeln. Ich möchte, während das Makro läuft, eine Polylinie auswählen können und die Anzahl der Elemente ausgeben. Genau das selbe Makro zum Auswählen von Punkten läuft einwandfrei, nur hier bekomm ich immer eine Fehlermeldung.
Kann mir jemand helfen?
Danke, Marco

'---------------------------------------------------
Dim Was2 (0)
Was2 (0) = "Polyline"
Dim UserSel2 As Selection
Set UserSel2 = CATIA.ActiveDocument.Selection
UserSel2.Clear

Dim Polylinie as HybridShapePolyline
Dim oSelElem2 as SelectedElement

Dim E2 As CATBSTR
E2 = UserSel2.SelectElement(Was2, "Punkt auswählen.", true)

If E2 = "Normal" Then

  Set oSelElem2 = UserSel2.Item(1)
  MsgBox ("bla" & oSelElem2.NumberOfElements)

Else
  MsgBox ("Abbruch")
End If

UserSel2.EndSelectElement
Usersel2.Clear

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

---

Hallo,
Versuchs mal hiermit:

Sub CATMain()

Dim Was2 (0)
Was2 (0) = "HybridShapePolyline"

Dim UserSel2 As Selection
Set UserSel2 = CATIA.ActiveDocument.Selection

UserSel2.Clear

Dim Polylinie as HybridShapePolyline
Dim oSelElem2 as SelectedElement

Dim E2 As CATBSTR
E2 = UserSel2.SelectElement(Was2, "Punkt auswählen.", true)

If E2 = "Normal" Then

  Set oSelElem2 = UserSel2.Item(1)
  MsgBox ("bla" & UserSel2.Count)

Else
  MsgBox ("Abbruch")
End If

UserSel2.EndSelectElement
Usersel2.Clear

End Sub

Gruss
Andreas

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