---

Hi forum,
aus einer access2003-Datenbank heraus will ich autocad öffnen.
da die datenbank auch auf rechnern läuft, die kein autocad haben, habe ich zum autocad-aufruf late binding gewählt....nur....auf einem rechner gehts....auf nem anderen nicht....und auf beiden ist autocad 2000i installiert.
hat jemand ne idee?

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

Bernd

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

---

Hi Forum
Muss das hier noch mal aufwärmen.
Irgendwie scheint bei mir generell der Wurm drin zu sein mit meinem late binding. Wär mal jemand so freundlich und würde sich den folgenden Code mal anschauen und mir seine Meinung sagen?

    Dim AcadApp As Object
    .
    .
    Set AcadApp = GetObject(, "Autocad.Application")
    If Err Then
        Err.Clear
        Set AcadApp = CreateObject("Autocad.Application")
        AC_Zustand = False
        AcadApp.Visible = True
        If Err Then
            Err.Clear
            MsgBox "Kann AutoCAD nicht erreichen", , "Abbruch"
            Exit Sub
        End If
    End If
    .
    .
    Plan = rst2.Fields("PLName")
    AcadApp.Documents.Open Plan
               
    For Each elem In AcadApp.ActiveDocument.ModelSpace
        If Mid(elem.Name, 1, 5) <> "R_st_" Then GoTo next_elem
    .
    .
wenn if mid(elem.name .... erreicht wird, bleibt die funktion stehen mit der fehlermeldung:
Laufzeitfehler 438:
Objekt unterstützt diese Eigenschaft oder Methode nicht. Die angebotene Hilfe bringt mich nicht weiter, läßt mich aber vermuten, daß was mit meiner late binding nicht stimmt.

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

Bernd

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

---

probiers mal so

Function StartAcad() As Object
    On Error Resume Next
 
    Set StartAcad = CreateObject("AutoCAD.APPLICATION")
    If Err.Number = 0 Then
        Exit Function
    Else
        Err.Clear
        Set StartAcad = CreateObject("AutoCAD.APPLICATION.15")
        If Err.Number = 0 Then
            Exit Function
        Else
            Err.Clear
            Set StartAcad = CreateObject("AutoCAD.APPLICATION.16")
            If Err.Number = 0 Then
                Exit Function
            Else
                Err.Clear
                Set StartAcad = CreateObject("AutoCAD.APPLICATION.16.1")
                If Err.Number = 0 Then
                    Exit Function
                End If
            End If
        End If
    End If
    Set StartAcad = Nothing
End Function

diese funktion versucht autocad.application zu starten geht das fehl
probiert er
autocad.application.15 (acad200i) danach
autocad.application.16 (2004) und zu schhluss
autocad.application.16.1 (2005)

zu deinem elem.name glaube ich eher, dass viele eklemente im Modellspace keine eigenschaft NAME haben (z.B.: linien)
also müsstest du vorher abprüfen, ob es sich bei elem um einen block handelt und danach die eigenschaft .NAME abprüfen.

aber schau dir doch dazu mal den bereich thisdrawing.selectionsets an
da kannst du direkt erine art query über alle blöcke mit namen r_st_* machen

------------------
WWW.FFZELL.AT.TC

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