Schöck
Показать сообщение отдельно
Непрочитано 25.02.2010, 18:58 #1
Работает ли VBA из MS Access (или VB6) application на 64-бит?
Alex5556
 
Регистрация: 25.02.2010
Сообщений: 2

Как подключить 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
__________________
Alex
Просмотров: 4625
 
Размещение рекламы