Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  SelectElement2 mit Option Explicit

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  SelectElement2 mit Option Explicit (634 mal gelesen)
Basti1379
Mitglied



Sehen Sie sich das Profil von Basti1379 an!   Senden Sie eine Private Message an Basti1379  Schreiben Sie einen Gästebucheintrag für Basti1379

Beiträge: 18
Registriert: 24.01.2019

CATIA V5

erstellt am: 25. Apr. 2019 21:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 25. Apr. 2019 23:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Basti1379 10 Unities + Antwort hilfreich

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

Basti1379
Mitglied



Sehen Sie sich das Profil von Basti1379 an!   Senden Sie eine Private Message an Basti1379  Schreiben Sie einen Gästebucheintrag für Basti1379

Beiträge: 18
Registriert: 24.01.2019

CATIA V5

erstellt am: 26. Apr. 2019 06:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz