---

Hallo zusammen,

ich versuch grade mit Option Explicit

den folgenden Code von CatScript abzutippen jedoch geht es bei SelectElement2 in VBA nicht weiter.

Weiß jemand was noch fehlt ?

Mfg

Code:

---

Dim opartDocument As PartDocument
Dim opart As Part
Dim oSelection As Selection
Dim sStatus As String
Dim sFilter(0) As Variant

'******Select Axissystem*****

Set opartDocument = CATIA.ActiveDocument
If (InStr(opartDocument.Name, ".CATPart")) <> 0 Then
    Set opart = opartDocument.Part
    Set oSelection = opartDocument.Selection
            opart.Update
            Set oHybridShapeFactory = opart.HybridShapeFactory
           
            MsgBox "Select a local axis "
            sFilter(0) = "AxisSystem"
            sStatus = oSelection.SelectElement2(sFilter, "select a  local axis", False)

'SelectElement2(iFilterType() As Variant, iMessage As String, iObjectSelectionBeforeCommandUsePossibility As Boolean) As String

            Dim axiscoord(2)
            Dim oaxissyst
            Set oaxissyst = oSelection.Item(1).Value
                oaxissyst.IsCurrent = 1
                oaxissyst.Name = "Extrema"

---

[Diese Nachricht wurde von Basti1379 am 25. Apr. 2019 editiert.]

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

---

Servus Basti

Wie lautet denn die Fehlermeldung?
Deklariere mal die Selection als Object.
Erklärung siehe hier.

Gruß
Bernd

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

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

---

Zitat:

---

Original erstellt von bgrittmann:
Servus Basti

Wie lautet denn die Fehlermeldung?
Deklariere mal die Selection als Object.
Erklärung siehe hier.

Gruß
Bernd

---

Hi Bernd,

genau das war der Grund.

Dank dir

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