Совместная работа ACAD и Access

В принципе, открывать AutoCAD нет необходимости.
Можно получить доступ напрямую к базе данных чертежа. Для этого следует подключить библиотеку AXDBLib в виде компонента AutoCAD/ObjectDBX Common 16.0 Type Library.
   Привожу имеющийся под рукой пример для вставки окружности, думаю, что нетрудно его интерпретировать под точки...
   И еще. У меня этот фокус удавался только под AutoCAD2004 и выше... Почему так, не разобрался.

Sub Example_AddCircle()
    ' This example creates a circle in model space.
    Dim fName As String
    Dim MainDoc As AxDbDocument
    Set MainDoc = New AxDbDocument
    fName = "D:\Work\DWG\2section.dwg"
    MainDoc.Open fName
    Dim MS As AcadModelSpace
    Set MS = MainDoc.ModelSpace
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    ' Define the circle
    centerPoint(0) = 9309.2111: centerPoint(1) = 3099.5424: centerPoint(2) = 0#
    radius = 28#
    ' Create the Circle object in model space
    Set circleObj = MS.AddCircle(centerPoint, radius)
    MsgBox circleObj.Layer
    MainDoc.SaveAs (fName)
    Set MainDoc = Nothing
End Sub

Спасибо! Очень интересно!
Если можете, подскажите, пожалуйста, как подключаются данные компоненты (из окна "Установка и удаление программ", или я не правильно понял хелпы?).

Если компонента инсталлирована в системе (а AutoCAD/ObjectDBX Common 16.0 Type Library инсталлируется вместе с AutoCAD 2004...2006), то достаточно внутри AutoCAD запустить VBAIDE и в меню Tools->References выбрать и отметить нужные компоненты.

Спасибо, Александр!
Теперь до меня дошло и вышеназванную библиотеку я подключил. Но теперь на строке

Set MainDoc = New AxDbDocument

выскакивает ошибка:
Run-time error '-2147024770(8007007e)':
Automation error
Не найден указанный модуль.
Межет у меня в Access-е еще какие-нибудь необходимые настройки не выполнены?
Заранее благодарен!

На этот раз получилось! Классно!
Но вот снова проблемма: после того как отработала вышеуказанная программка сам файлик "C:\d.dwg" не открывается двойным кликом мыши. Я обнаружил, что в "Диспетчере задач Windows/Процессы" ACAD.exe остается в списке (видимо в этом причина). Но, в то же время, если сначала открыть ACAD, а из него пытаться открыть "C:\d.dwg", то получается с переменным успехом (то нормально откроется, а то только для чтения).
Неужели придется прощаться с ACAD-ом?! Ну очень мне этого не хочется!!!

Логично, но это дает ошибку
Object doesn't support this property or method
, да и в раскрывающемся списке .Close не предлагается у меня.

Упс! Наверное правильнее будет так.

Sub Example_AddCircle()
    ' This example creates a circle in model space.
    Dim fName As String
    Dim AcadApp As AcadApplication
    Set AcadApp = New AcadApplication
    Dim MainDoc As AxDbDocument
    Set MainDoc = AcadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.16")
    fName = "C:\d.dwg" 'имя открываемого dwg-файла
    MainDoc.Open fName
    Dim MS As AcadModelSpace
    Set MS = MainDoc.ModelSpace
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    ' Define the circle
    centerPoint(0) = 9309.2111: centerPoint(1) = 3099.5424: centerPoint(2) = 0#
    radius = 28#
    ' Create the Circle object in model space
    Set circleObj = MS.AddCircle(centerPoint, radius)
    MsgBox circleObj.Layer
    MainDoc.SaveAs (fName)
    Set MainDoc = Nothing
    AcadApp.Quit ' завершаем AutoCAD
    Set AcadApp = Nothing
End Sub

При этом всегда запускается новый AutoCAD и в нем проводятся необходимые действия. После чего он закрывается. Если AutoCAD был запущен ранее, то он остается "нетронутым".

Александр!
Я в замешательстве!
Пришел на работу, а на работе ACAD-2005. Ни черта не работает!!! Я даже не понимаю, как подключать библиотеки!! Дома на ACAD-2004 все было прекрасно!
HELP!