---

Hallo Gemeinde,
hab eine Frage. Hab ein kleines Beispielskript geschrieben, das einfach aus der aktuellen Auswahl den ersten
Punkt ausliest und wenn einer gefunden wurde diesen zurückgibt.
Jetzt gelingt mir es einfach nicht ein Objekt als Rückgabetyp zurück zu geben.

Hat das jemand schon einmal gemacht?

Code:

---

Sub CatMain()
Dim object As HybridshapePointCoord
object = tryToGetFirstPointOutOfSelection
MsgBox TypeName(object)
End Sub

Public Function tryToGetFirstPointOutOfSelection()
Dim selection As selection
Dim Btlrefpkt As HybridshapePointCoord
Dim status As String

'Selection auf CATIA-Selektion setzen
Set selection = CATIA.ActiveDocument.Selection
For i=1 To selection.Count
MsgBox CStr(i) & " " & TypeName(selection.Item(i).Value) & " " & selection.Item(i).Name
if TypeName(selection.Item(i).Value).StartsWidth("HybridShapePoint") Then
Dim obj As Object
obj = selection.Item(i).Value
tryToGetFirstPointOutOfSelection = obj
End If
Next
End Function

---

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

---

Ohne Prüfung des restlichen Codes:

Vor den Objektzuweisungen musst Du auf jeden Fall ein Set haben.

Set obj = selection.Item(i).Value
Set tryToGetFirstPointOutOfSelection = obj

Den Rest des Codes habe ich nicht geprüft.

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

---

du bist ein Held,
das passiert wenn man versucht nach mehreren Monaten versucht wieder zurückzukommen auf CATScript

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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

---

Der Vollständigkeit halber:

Bei manchen Aufrufen ist auch ein 'Call' notwendig:

Bsp.:
MySelection.Add Object
->
Call MySelection.Add(Object)

Die Klammern müssen dabei gesetzt werden.
(Bei der Selection funktionierts sicher auch ohne, aber irgendwo hats bei mir mal nicht funktioniert und da wars notwendig.)

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