---

Hallo Leute,

komme hier gar nicht weiter und wäre schön, wenn jemand eine Tipp hat:

Möchte von Excel aus in einer AutoCad-Zeichnung rumwerkeln.
Dazu benötige ich eine spezielle Zeichnungsdatei.
Die Überprüfung, ob diese Datei schon offen ist, kriege ich aber nicht hin:

Code:

---

        Dim i As Integer
        Dim acadDoc As AcadDocument
       
        For i = 1 To acadApp.Documents.Count
           
            acadDoc = acadApp.Documents.Item(i)
            If LCase$(acadDoc.FullName) = LCase$(ZuÖffnendeDatei) Then
                DateiSchonOffen = True
            End If
        Next
       

---

bei :

acadDoc = acadApp.Documents.Item(i)

bricht die Programmausführung ab mit der Meldung:

Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt

nu hab ich schon alles mögliche ... den Rest könnt Ihr Euch bestimmt denken.

Hat jemand einen Tipp ?

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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

---

Hi Lothar,

Ohne es jetzt getestet zu haben, warum machst du es nicht so:

Code:

---

        Dim i As Integer
        Dim acadDoc As String
     
        For i = 1 To acadApp.Documents.Count
         
            acadDoc = acadApp.Documents.Item(i).Name
            If LCase$(acadDoc) = LCase$(ZuÖffnendeDatei) Then
                DateiSchonOffen = True
            End If
        Next

---

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 10. Okt. 2007 editiert.]

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

---

Hallo Carsten,

an diese Stelle ist das Programm in der Ausführung gar nicht gekommen. Deshalb habe ich daran gar nicht rumgewerkelt.

Aber die Lösung habe ich schliesslich gefunden.

Der Fehler lag in der Indexierung der For-Schleife.
hab es jetzt so gemacht:

Code:

---

    Dim DateiSchonOffen As Boolean
    DateiSchonOffen = False
       
    Dim i, ii As Integer
    Dim sFullName As String
       
    ii = acadApp.Documents.Count - 1
       
       
        ConnectToAcad
       
        For i = 0 To ii
           
            'MsgBox (acadApp.Documents.Item(i).FullName)
           
            sFullName = acadApp.Documents.Item(i).FullName
            If LCase$(sFullName) = LCase$(ZuÖffnendeDatei) Then
                DateiSchonOffen = True
                MsgBox ("Datei: " + ZuÖffnendeDatei + " ist schon geöffnet.")
            End If
        Next

---

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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

---

Hallo Lothar,

ACADDOC ist ein Objekt. Das musst du per SET zuweisen.

Code:

---

set acadDoc = acadApp.Documents.Item(i)

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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