---

Hallo , angegeben das ich ein großes Produkt geöffnet habe ich will finden ob ein Part schon geöffnet ist . So weit habe ich so gemacht:
Dim docs As Documents
Set docs = CATIA.Documents

Dim strpart As String
strpart = "C:\Users\Part.CATPart"

Dim doc As Document
Dim i As Integer

For i = 1 To docs.Count
    Set doc = docs.Item(i)
    If doc.FullName = strpart Then  'hier überrupfe ich ob geöffnet ist
        MsgBox "part ist geöffnet"
    End If
Next

Kann ich das ohne schleife machen ???

------------------
Serg

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

---

Servus
Was gefällt dir an der schleife nicht?
Alternativ könntest du folgendes probieren (ungetestet):
- Fehlerbehandlung ausschalten
- Dokument direkt über den Namen ansprechen (ohne Pfad?) "docs.Item("Part.CATpart")"
- Fehler abfangen und auswerten

Gruß
Bernd

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

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

---

Hallo,

ich würde in jedem Fall mal aus der Schleife aussteigen, sobald etwas gefunden wurde...

Code:

---

Dim docs As Documents
Set docs = CATIA.Documents

Dim strpart As String
strpart = "C:\Users\Part.CATPart"

Dim doc As Document
Dim i As Integer

For i = 1 To docs.Count
    Set doc = docs.Item(i)
    If doc.FullName = strpart Then  'hier überrupfe ich ob geöffnet ist
        MsgBox "part ist geöffnet"
        Exit For
    End If
Next

---

Das was Bernd da geschrieben hat, ist eine gängige Alternative. Ich würde es, insofern der Partname definiert ist, evtl. auch so machen. Es heist aber nicht, dass das Programmtechnisch schneller ist, denn auch diese Routine muss via Schleife die Daten durchsuchen. Woher soll es "instant" wissen, was wo zu finden ist. Wenn du eine Box aufmachst, musst du auch erstmal suchen. Nur die Art und Weise der Suche kann sich ändern, aber ohne Suche kein Ergebnis!

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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