[Alex5556]

Как подключить AutoCAD (Windows7 или Vista 64-bit) из MS Access или отдельно написанного на VB6 приложения?
Простая процедура -см. ниже не работает (то же с ACADDOC.SendCommand...) - error “Type mismatch”
Public ACADAPP As AcadApplication
Public ACADDOC As AcadDocument
Private Sub GetLength()
Set ACADAPP = GetObject(, "Autocad.Application")
Set ACADDOC = ACADAPP.ActiveDocument
AppActivate ACADAPP.Caption
MsgBox (ACADDOC.Utility.GetDistance(, vbCrLf & "Get Length:"))
End Sub
Какую reference выбрать (для 2010)? AutoCAD 2010 Type Library?
Location
C:\Program Files\Common Files\Autodesk Shared\acadx18enu.tlb
Буду благодарен если кто-нибудь попробует код из МКак подключить AutoCAD (Windows7 или Vista 64-bit) из MS Access или отдельно написанного на VB6 приложения?

Простая процедура -см. ниже не работает (то же с ACADDOC.SendCommand...) - error “Type mismatch”

Код:

[Выделить все]

Public ACADAPP As AcadApplication
 Public ACADDOC As AcadDocument
    Private Sub GetLength()
Set ACADAPP = GetObject(, "Autocad.Application")
Set ACADDOC = ACADAPP.ActiveDocument
AppActivate ACADAPP.Caption
  MsgBox (ACADDOC.Utility.GetDistance(, vbCrLf & "Get Length:"))
  End Sub

Какую reference выбрать (для 2010)? AutoCAD 2010 Type Library?
Location
C:\Program Files\Common Files\Autodesk Shared\acadx18enu.tlb?
Буду благодарен если кто-нибудь попробует код из MS Access или отдельно написанного на VB6 приложения на Windows7 или Vista 64-bit.
32-бит работает ОК

Alex

[hwd]

Работает ли VBA из MS Access (или VB6) application на 64-бит?

VBA из MS Access 2007 точно работает. Насчёт VB6 - не знаю.

п.с. VBA в AutoCAD загнулся. VB6 - мамонт ещё тот... Брались бы уже тогда за VB.Net что ли... Для работы с СУБД заюзаете ADO.NET и будет вам счастье. А если ещё при этом использовать DbProviderFactories - то сможете без проблем менять СУБД как перчатки, при этом не переписывая код... имхо.

[Марат Миргалеев]

Привет!
Сейчас попробовал из Word, работает после небольших изменений (у меня Vista 64, AutoCAD 2010 64bit):

Код:

[Выделить все]

Public ACADAPP As AcadApplication
Public ACADDOC As AcadDocument

Private Sub GetLength()
  On Error Resume Next
  Set ACADAPP = GetObject(, "Autocad.Application")
  If Err <> 0 Then
    Set ACADAPP = CreateObject("AutoCAD.Application")
  End If
  ACADAPP.Visible = True

  Set ACADDOC = ACADAPP.ActiveDocument
  MsgBox (ACADDOC.Utility.GetDistance(, vbCrLf & "Get Length:"))
End Sub

Фокус в том, что AutoCAD должен быть запущен, чтобы обращаться к нему через GetObject. В противном случае, его надо Create