---

Hallo!

Ich möchte herausfinden, ob bereits ein Drawing geöffnet ist oder nicht, das heißt, ich muss wissen, ob in einem Fenster ein Part, ein Drawing usw geöffnet ist. Wie finde ich das heraus??

Danke und viele Grüße!

------------------
Karin

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

---

Hallo Karin
Um dir weiterhelfen zu können, habe ich noch eine Frage:
Geht es nur darum ob das Aktive Dokument ein Drawing ist oder ob überhaupt eins von den geöffneten Dokumenten ein Drawing ist?
Gruß TStone

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

---

Hallo,

wenn ich weiss, ob das aktive Dokument ein Drawing ist, kann ich ja alle offenen Fenster durchgehen und prüfen, ob ein Drawing darunter ist. Deshalb würde es mir reichen zu wissen, ob mein aktives Dokument ein Drawing ist.

Danke!

------------------
Karin

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

---

Hi
Also hier eine Möglichkeit um zu schauen ob das Aktive Dokument ein Drawing ist:

Dim S1 As Boolean
Dim oDoc As Object
Set oDoc = CATIA.ActiveDocument
If TypeOf oDoc Is DrawingDocument Then
    S1 = True
Else
    S1 = False
End If
...
So geht, aber noch eine Frage: Was brauchst du für die Weiterbearbeitung, das Window oder das Document?
Gruß und Mahlzeit
TStone

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

---

Danke, aber wo ist denn die Funktion TypeOf her bzw wie wende ich sie an? Ist das eine CATIA Funktion (die ich dann im Programming Interface nicht finde)?

So, wie die Funktion in dem Beispiel angewendet ist, fuktioniert es jedenfalls nicht...

------------------
Karin

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

---

Jetzt habe ich selbst eine Lösung gefunden, die auf jeden Fall funktioniert:

Dim docName As String
Dim iPos As Integer
Dim iLaengeDocName As Integer
Dim sDocType As String

'- vollständiger Name des aktiven Dokuments, mit Pfad und Documententyp, zB d/temp/Drawing1.CATDrawing -
docName = CATIA.ActiveDocument.FullName
'- um Dokumententyp herauszufinden, muss Textteil nach "CAT" gelesen werden -
'- zuerst Länge der Zeichenkette ermitteln -
iLaengeDocName = Len(docName)
'- an welcher Stelle im Text ist der erste Buchstabe von "CAT" ? -
iPos = InStr(docName, "CAT")
'- rechter Teil der Zeichenkette, ab Position, wo "CAT" anfängt, plus 2 wegen dem restlichen Zeichen "AT"
sDocType = Right(docName, iLaengeDocName-(iPos+2))
msgbox "Typ: "&sDocType

Zwar ein bischen kompliziert, aber es geht!

------------------
Karin

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

---

Hallo
Klasse!
Zu deiner Frage:
Der Operator TypeOf ... Is ist zu finden in der VB / VBA Hilfe zusammen mit dem IF THEN ... Befehl.
Geht aber leider nicht bei VB-Scripten.
Bis denn
Tstone

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

---

Hallo Karin,

Deine Lösung ist schon sehr gut, aber noch ein bissel besser
wird's, wenn Du nicht von links nach 'CAT' suchst, sondern
von rechts nach '.CAT'.
Sonst kann man die Zeichenfolge CAT nicht im Pfadnamen verwenden...

Schau Dir mal die VB-Funktion InStrRev an - müsste es in VB-Script
eigentlich auch geben...

  - Danny

------------------
Danny Reinhold
Reinhold Software & Services

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

---

Hallo Danny,

stimmt, daran hatte ich gar nicht gedacht, danke für den Tipp!

------------------
Karin

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

---

Hallo,
viele Wege führen nach Rom!
so geht es recht einfach:

Sub test()
Dim DrwDocument As DrawingDocument
On Error Resume Next
Set DrwDocument = CATIA.ActiveDocument
If Error <> "" Then
MsgBox "keine Zeichnung ist aktiv"
Else
MsgBox "eine Zeichnung ist aktiv"
End If
On Error GoTo 0
End Sub

Gruß
Guido

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