---

Hallo zusammen,

ich möchte ein Makro, das in CATScript erzeugt wurde in catvba umschreiben und modifizieren. Jetzt hänge ich gerade an einem Problem:

Unter CATScript läuft folgende Zeile Fehlerfrei:
MyView.GetViewName MyPrefix, MyIdent, MySuffix

Unter catvba erhalte ich folgenden Fehler:
    Compile error:
    ByRef argument type mismatch

Die Variablen MyPrefix, MyIdent, MySuffix sind jeweils als String definiert.

Hat jemand eine Idee, wie der Befehl GetViewName unter catvba zum laufen gebracht werden kann?

Gruß MICHLICK

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

---

Hallo,

kannst du die ersten zwei mal als Varian definieren?

Wenn das nicht geht alle 3?

Edit: Die Doku macht doch garkeinen Sinn zum Aufruf:
Sub GetViewName( CATBSTR iViewNameSuffix)

das würde bedeutet, dass nur eien Variable übergeben werden kann.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

[Diese Nachricht wurde von HoBLila am 03. Jul. 2008 editiert.]

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

---

Hallo,

was passiert wenn du jede Variable in eine eigene Klammer setzt? Dann wird die Variablendefinition angepasst und man bracht nicht unbedingt die richtige Definition

Beispiel:

Code:

---

MyView.GetViewName ((MyPrefix), (MyIdent), (MySuffix))

---

EDIT:

Ich habe es jetzt gerade nochmal ausprobiert. Also bei mir geht es einwandfrei. Es muss irgendwie an der Definition deiner Variablen liegen. Kommentier doch mal die DIM´s aus und versuche es dann nochmal. Ich habs mit folgendem Code versucht:

Code:

---

Sub CATMain()

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
Set oSheet = oSheets.Item(1)
Set oViews = oSheet.Views
Set MyView = oViews.Item(3)

MyView.GetViewName MyPrefix, MyIdent, MySuffix

Box = MsgBox("Die View hat folgenden Namen:" + Chr(10) + Chr(10) + MyPrefix, vbInformation, "Hinweis")

End Sub

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

[Diese Nachricht wurde von denyo_1 am 03. Jul. 2008 editiert.]

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

---

Hallo,

gerade hat es bei mir funktioniert. Ich weiß zwar nicht warum jetzt auf einmal, da ich bei exact gleichem Code vorhin einen Fehler hatte. Habe aber in der Zwischenzeit CATIA mehrmals neu gestartet und jetzt läufts.

Ganz normal mit:

Dim MyPrefix As String
Dim MyIdent  As String
Dim MySuffix As String
MyView.GetViewName MyPrefix, MyIdent, MySuffix

Gruß MICHLICK

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