---

Hallo.

mit den Zeilen:

Dim AktuelleDrawing 'As DrawingDocument
Set AktuelleDrawing = CATIA.ActiveDocument
MsgBox (AktuelleDrawing.Sheets.count)

erhalte ich die Anzahl der Blätter der geöffneten Drawing.

Wie kriege ich jetzt raus, welche Nummer das gerade aktive Blatt hat?
Ich dachte es müsste so gehen, aber es funktioniert nicht:

Set AktivesBlatt = As DrawingSheet
Set AktivesBlatt = AktuelleDrawing.ActiveSheet
MsgBox (AktuelleDrawing.Sheets.AktivesBlatt)

Kann mir da jemand weiterhelfen?

Danke.

Gruss Andreas

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

---

Hallo Andreas,

du hast eine Collection übersprungen. Dir fehlt die Sheets-Collection in der sich die Methode ActiveSheet befindet. So funktioniert es:

Code:

---

Dim oDoc as DrawingDocument
Dim oSheets as DrawingSheets
Dim oSheet as DrawingSheet

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
Set oSheet = oSheets.ActiveSheet

MsgBox(oSheet)

---

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

Die KATJA ist halt doch nur ne zickige Französin

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

---

Hallo,

jetzt wirds immer verrückter:

Das Script:
-----------------------------------------
Language="VBSCRIPT"

Sub CATMain()
Dim AktuelleDrawing 'As DrawingDocument
Set AktuelleDrawing = CATIA.ActiveDocument
MsgBox (AktuelleDrawing.Sheets.count)
end sub
---------------------------------------------

funktioniert, aber nur wenn ich das Kommentarzeichen
in der DIM Zeile habe, sonst kommt eine Fehlermeldung
"Anweisungsende in Spalte 20 erwartet",
also genau nach dem Dim AktuelleDrawing

Genau das gleiche mit Daniels Scriptauszug
-----------------------------------------
Language="VBSCRIPT"

Sub CATMain()

Dim oDoc    As DrawingDocument
Dim oSheets As DrawingSheets
Dim oSheet As DrawingSheet

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
Set oSheet = oSheets.ActiveSheet
MsgBox(oSheet)
end sub
----------------------------------------------

Da bringt es aber nichts wenn ich vor dem as ... auskommentiere.

Kann mir jemand sagen wo da mein Denkfehler liegt?

Andreas

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

---

Du schreibst deinen Code in VBA und läßt ihn als CATVBS laufen...

------------------
Meine Firma  |  Website zum Buch |Technisches Zeichnen mit CATIA V5 | Mein CATIA-Blog

Wie stelle ich meine Fragen richtig?

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

---

 

Zitat:

---

Original erstellt von CEROG:
Du schreibst deinen Code in VBA und läßt ihn als CATVBS laufen...

---

...und VBS deklariert sich die Variabkentypen selber. Man brauchst deshalb keine DIM Anweisungen.

Mit diesem Code sollte deine CATVbs auch laufen:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

' Dim oDoc As DrawingDocument (KOMPLETTE Zeile auskommentieren oder löschen!)
' Dim oSheets As DrawingSheets (KOMPLETTE Zeile auskommentieren oder löschen!)
' Dim oSheet As DrawingSheet (KOMPLETTE Zeile auskommentieren oder löschen!)

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
Set oSheet = oSheets.ActiveSheet
MsgBox(oSheet)
end sub

---

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

Die KATJA ist halt doch nur ne zickige Französin

   

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

---

Hallo Daniel,

mit den DIMs hatte ich gestern auch schon probiert sie wegzulassen.
Wenn ich das mache, kommt eine Fehlermeldung das die Eigenschaft/Methode nicht unterstützt wird
und zwar in der Zeile "MsgBox(oSheet)"

Gruss Andreas

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

---

Zitat:

---

Original erstellt von sa2728:
Hallo Daniel,

mit den DIMs hatte ich gestern auch schon probiert sie wegzulassen.
Wenn ich das mache, kommt eine Fehlermeldung das die Eigenschaft/Methode nicht unterstützt wird
und zwar in der Zeile "MsgBox(oSheet)"

Gruss Andreas

---

Hallo Andreas,

das ganze ist ja auch nur ein Beispiel. oSheet ist in diesem Beispiel eine Variable die als DrawingSheet deklariert ist. Eine MessageBox ewartet einen String-Typ (bzw. einen Variablentyp der in ein String umgewandelt werden aknn z.B. Integer) und keinen DrawingSheet Typ. Ich habe gerade weder CATIA noch VB am laufen aber ich versuch dir mal dein Makro hinzubasteln.

Hier der Code (natürlich nicht getestet):

Code:

---

Language="VBSCRIPT"

Sub CATMain()

' Dim oDoc As DrawingDocument (KOMPLETTE Zeile auskommentieren oder löschen!)
' Dim oSheets As DrawingSheets (KOMPLETTE Zeile auskommentieren oder löschen!)
' Dim oSheet As DrawingSheet (KOMPLETTE Zeile auskommentieren oder löschen!)

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
Set oSheet = oSheets.ActiveSheet
Set mySheetName = oSheet.Name
For i = 1 to oSheets.Count
Set myCheckSheet = oSheets.Item(i)
If myCheckSheet.Name = mySheetName then
BoxValue = i
Exit For
End If
Next

Box = MsgBox("Das aktuelle Blatt ist an Position " & BoxValue,vbInformation,"Hinweis")
End sub

---

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

Die KATJA ist halt doch nur ne zickige Französin

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

---

Hallo Andreas,

wenn Du in Deinem Makro
MsgBox oSheet.Name
schreibst, dann sollte das funktionieren.

------------------
Gruß Michael B.

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

---

Hallo MICHLICK,

vielen Dank, so klappt es, nur leider wird statt einer Ziffer "Blatt 1"  ... ausgegeben, aber das ist ja nicht so schlimm.

Gruss Andreas

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

---

"Blatt.1" ist ja auch der Name. Versuch es mal mit Sheet.Item

------------------
Meine Firma  |  Website zum Buch |Technisches Zeichnen mit CATIA V5 | Mein CATIA-Blog

Wie stelle ich meine Fragen richtig?

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