[dima27]

Подскажите пожалуйста как создать свой обект в VBA ?
Заранее благодарен.

[C1]

Например так к уже зарегистрированному в реестре:

Код:

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

    Set acadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If

Если именно свой объект в проекте, то вставить класс, например MyClass, потом описать его экземпляр MyObject

Код:

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

Dim MyObject as New MyClass

или

Код:

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

Dim MyObject as MyClass

и далее

Код:

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

Set MyObject = New MyClass

[dima27]

Большое спасибо!!!
А как вставить свойства и методы ?

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

Никак. Эта задача в VBA нерешаема ИМХО. Прямая дорога в ObjectARX

[C1]

Мне кажется все решаемо. Сделал простенький пример.
[ATTACH]1161184302.rar[/ATTACH]

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

Так это создается экземпляр обычного класса, насколько я понимаю. Вроде бы и объект, но, может, не то? Из вопроса непонятно - может быть, человеку надо было вообще повторить поведение Project Studio, которая создает собственные объекты в AutoCAD.

[dima27]

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

Я разобрался !!!!

Создается Class модуль и в нем прописываются свойства и методы.
Дальше обявляется обект класса и под него выделяется динамически память.
Единственная проблема = масивы и константы не могут быть типа Public
Поэтому приходится прописывать процедуры работы с ними.

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

Насчет работы с СОМ-объектами (а в данном случае можно говорить и о таком) посмотри на http://www.firststeps.ru/ - там очень много расписано.

[C1]

Сообщение от dima27 Единственная проблема = масивы и константы не могут быть типа Public Поэтому приходится прописывать процедуры работы с ними.

Могут, если описать их не в модуле класса, а в простом модуле. И из модуля класса их использовать. Это противоречит изоляции объектов, но вообще возможно.