AutoCAD

[Niko]

Не получается подключить автокад.
Был 2002 все работало, поставил 2004 не работает.
--
Dim Acad As New AcadApplication
Dim objDoc As Object
Dim sysVarName As String
Dim sysVarData As Variant
Dim osMode As Integer
Dim sdiMode As Integer
On Error Resume Next

PathACAD = "C:\Program Files\Autodesk Civil 3D 2006\acad.exe"
J = Shell(PathACAD, 1)

sStr = "C:\projects\niko\ãåîäåçèÿ\Ðèñóíîê1.dwg"

Set Acad1 = CreateObject("AutoCAD.Application")

If Err Then
Err.Clear
Set Acad1 = CreateObject("AutoCAD.Application")
If Err Then
MsgBox "Unable to connect to AutoCAD"
Exit Sub
End If
End If
Set objDoc = Acad1.ActiveDocument
If objDoc.FullName <> sStr Then
objDoc.Open sStr
End If
Acad1.Visible = True
--
Код взял давно и не помню где
--
акад запускается но выдает ошибку:
"Unhandled Exception C00000005 (.....) ........"
программа болго думает и в итоге выдает MsgBox "Unable to connect to AutoCAD"
--
В чем может быть ошибка?

[VB-constructor]

1)

PathACAD = "C:\Program Files\Autodesk Civil 3D 2006\acad.exe"
J = Shell(PathACAD, 1)

sStr = "C:\projects\niko\ãåîäåçèÿ\Ðèñóíîê1.dwg"

Set Acad1 = CreateObject("AutoCAD.Application")

зачем автокад запускать два раза?

(ошибка скоре всего в этом)

2)

Set Acad1 = CreateObject("AutoCAD.Application")

If Err Then
Err.Clear
Set Acad1 = CreateObject("AutoCAD.Application")

это называется если ошибка - попробуем еще раз?

3)

sStr = "C:\projects\niko\ãåîäåçèÿ\Ðèñóíîê1.dwg"

это к чему?

P.S. У меня автокад запускается тремя строчками:
(а больше и не нужно)

Dim AppCAD As Object
Private Sub CommandButton1_Click()
Set AppCAD = CreateObject("AutoCAD.Application")
AppCAD.Visible = True

Set AppCAD = Nothing

End Sub

Успехов!

[Niko]

Действительно заработало
Спасибо.

[Niko]

Подскажите плиз.
Как работать с уже открытым Автокадом, т.к. он грузится долго?

[Vi]

Код: Выделить всё

Set Acad1 = GetObject(,"AutoCAD.Application")
If Acad1 Is Nothing Then
     Set Acad1 = CreateObject("AutoCAD.Application")
End If

Или

Код: Выделить всё

Set Acad1 = GetObject("C:\niko\some.dwg", "AutoCAD.Application")