[sergey_mm_1993]

Привет.

Есть такие условия: autocad 2012 без установленного VBA на нем, есть microsoft access 2010 c VBA на нем.
Нужно написать некоторые программы для autocad. Писать их приходится в редакторе VBA, запускаемым с access.
Что мне нужно сделать чтобы компилятор не ругался на отсутствие описания AcGe... AcDb.... классов?

[hwd]

...без установленного VBA... ...Что мне нужно сделать чтобы компилятор не ругался на отсутствие описания AcGe... AcDb.... классов?

а питание в розетке, монитор и клавиатура присутствуют, или их тоже нет? Хочешь писать на VBA под AutoCAD - установи его, не кипяти себе мозг.

[swell{d}]

Покажите пример кода, на который vba ругается

[sergey_mm_1993]

Код:

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

Dim point as AcGePoint3d

выдает ошибку: user-defined type not defined

[Кулик Алексей aka kpblc]

sergey_mm_1993, ты сам разберись - на чем ты пишешь: на .NET или на VBA. Если VBA для AutoCAD с подключенными библиотеками - то строка будет вида

Код:

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

Dim pt As AcadPoint

Если используешь позднее связывание, то

Код:

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

Dim pt as Object

[swell{d}]

просто "Dim pt" прекрасно работает =)
сейчас тру программисты закидают меня тухлыми тряпками =)

[Кулик Алексей aka kpblc]

swell{d}, не всегда.

[sergey_mm_1993]

Спасибо, Кэп. Если бы мог так бы и сделал, но не могу.

[Кулик Алексей aka kpblc]

sergey_mm_1993, во-первых, ты к кому обращаешься? Во-вторых, ты определился до конца с языком и методом обращения к AutoCAD из-под MS Access?

[Александр Ривилис]

Про AcDb..., AcGe... и т.д. забудь. Это классы ObjectARX и их в VBA ты никак использовать не сможешь.

[hwd]

Писать их приходится в редакторе VBA, запускаемым с access.

Тогда только через COM. По другому из внешнего приложения обращаться к AutoCAD не получится, насколько мне известно.

[sergey_mm_1993]

Сообщение от Кулик Алексей aka kpblc sergey_mm_1993, ты сам разберись - на чем ты пишешь: на .NET или на VBA. Если VBA для AutoCAD с подключенными библиотеками - то строка будет вида Код: [Выделить все] Dim pt As AcadPoint Если используешь позднее связывание, то Код: [Выделить все] Dim pt as Object

Большое тебе спасибо за ответ!

Но почему то код не работает с этой штукой(

Код:

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

Dim point as Object
Dim obj as AcadObject

If obj.Objectname = "AcDbMText" Then
 Set point = obj.Location()
 Print #1, "TEXT"
 Print #1, point.xx ,point.yy, point.zz
End If

надпись TEXT выводит и больше ничего

[Кулик Алексей aka kpblc]

Вопрос сразу - а куда выводит-то? Где инициализация параметров point?
Советую поднять и почитать справку по ActiveX-модели AutoCAD. Там описана технология создания и настройки примитивов.
А еще лучше - установить все же VBA Enabler для AutoCAD 2012 и поиграться уже с ним. А потом, на основе созданного и оттестированного кода, создавать VBA-модули для Access.

[sergey_mm_1993]

Сообщение от Кулик Алексей aka kpblc Вопрос сразу - а куда выводит-то? Где инициализация параметров point? Советую поднять и почитать справку по ActiveX-модели AutoCAD. Там описана технология создания и настройки примитивов. А еще лучше - установить все же VBA Enabler для AutoCAD 2012 и поиграться уже с ним. А потом, на основе созданного и оттестированного кода, создавать VBA-модули для Access.

выводит в файл.
разве это

Код:

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

Set point = obj.Location()

не инициализация? Извини если я очень туплю)

[Кулик Алексей aka kpblc]

Я совсем перестал понимать конечную задачу. Тебе надо по результатам запроса создать чертеж или что-то другое сделать?

[swell{d}]

Соседняя тема как раз то, что вам надо http://forum.dwg.ru/showthread.php?t=101138

[Кулик Алексей aka kpblc]

Ага, то, что надо. Только с точностью до наоборот, по-моему

[sergey_mm_1993]

Сообщение от Кулик Алексей aka kpblc Я совсем перестал понимать конечную задачу. Тебе надо по результатам запроса создать чертеж или что-то другое сделать?

Нужно из чертежа выкачать как можно больше информации о элементах чертежа в текстовый файл.

[swell{d}]

То, что надо =)

[Кулик Алексей aka kpblc]

Сохрани как DXF и разбирай. Будет сохранено вообще все (в том числе и ненужное )