Hallo,
ich bin VB6 Umsteiger und schreibe mit VB 2010 derzeit ein Programm, mit dem AutoCAD gestartet und eine Zeichnung aufgerufen werden soll.
Das Starten von AutoCAD funktioniert einwandfrei.
Im Direktfenster stehen keine Warnungen bzw. Fehlermeldungen.
Beim Aufrufen der Zeichnung erhalte ich aber folgende Warnung:
COMException wurde nicht behandelt
Aufruf wurde durch Aufgerufenen abgelehnt. (Ausnahme von HRESULT: 0x80010001 (RPC_E_CALL_REJECTED))
Methode im MDI-Modus nicht verfügbar. Verwenden Sie die Open-Methode der Dokumentengruppierung.
Überprüfen Sie die ErrorCode-Eigenschaften der Ausnahme...
Leider kann ich mit dieser Meldung nichts anfangen. Wer kann mir hier weiter helfen.
Vielen Dank vorab.
Gruß
Wolfi
Hier das Code-Beispiel:
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Module Module1
Public AcadApp As Object
Public Function StartAutoCADSession() As Object
On Error Resume Next
Dim AcadApp As Object
Dim objDoc As Object
'Überprüfe, ob AutoCAD schon geladen ist
AcadApp = GetObject(, "AutoCAD.Application")
If Err.Number <> 0 Then
Err.Clear()
'AutoCAD wird geladen
AcadApp = CreateObject("AutoCAD.Application")
End If
If Err.Number <> 0 Then
StartAutoCADSession = Nothing
Exit Function
End If
'wenn Laden erfogreich war, mache sichtbar
AcadApp.Visible = 1
'Öffnen ist OK
Return AcadApp
End Function
Sub Main()
Dim objDoc As New Autodesk.AutoCAD.Interop.AcadDocument
AcadApp = StartAutoCADSession()
Try
objDoc.Open("C:\Test\Test.dwg") ' AutoCAD-Zeichnung wird aufgerufen
Catch ex As System.IO.IOException
MsgBox("Ein Fehler ist aufgetreten")
End Try
AcadApp.Visible = True
objDoc = AcadApp.ActiveDocument
End Sub
End Module
[Diese Nachricht wurde von WolfgangSCH am 29. Okt. 2010 editiert.]
[Diese Nachricht wurde von WolfgangSCH am 29. Okt. 2010 editiert.]
[Diese Nachricht wurde von WolfgangSCH am 29. Okt. 2010 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP