Создать объект в AutoCad

[NicSoft]

Имею такую беду: создаю из своей VB программы объект AutoCad, создаю в нём линии, тексты и т.д.
Далее появилась надобность изменить в AutoCad настройку "Oтoбpaжaть диaлoг OLE cвoйcтв" на False. Нашёл класс AcadPreferencesSystem и в нём свойство DisplayOLEScale, подозреваю, что это то, что мне нужно, но не могу инициализировать класс. На строку
Set objAPS = New AutoCAD.AcadPreferencesSystem
компилятор ругается что нет такого класса, тогда как
Dim objAPS As AutoCAD.AcadPreferencesSystem
принимает без проблем.
Может кто знает способ добратся до этого класса?

[hCORe]

Сначала создавай переменную, а потом экземпляр:

Код: Выделить всё

'объявим переменную
Dim objAPS As AutoCAD.AcadPreferencesSystem
'создадим экземпляр класса
Set objAPS = New AutoCAD.AcadPreferencesSystem

[NicSoft]

Именно так я и начал, но на строку:

Set objAPS = New AutoCAD.AcadPreferencesSystem

Ответ компилятора:
Invalid use of New keyword

[hCORe]

Тогда:

Код: Выделить всё

Dim <имя переменной> as New <объект>

или:

Код: Выделить всё

Dim <имя переменной> as Object
Set <имя переменной>= New <объект>

[NicSoft]

Дело в том, что после применения ключевого слова NEW класс AcadPreferencesSystem исчезает как призрак , впрочем как и многие другие из AutoCad, поэтому линии и тексты я создавал как
Set objLine = objSpace.AddLine(varStart, varEnd)
Set objText = objSpace.AddText(strName, varStart, intFontSize)
но с AcadPreferencesSystem таким способом тоже не выходит.

[hCORe]

Высказываю предположение: может быть он с VB несовместим (ну, типы данных несовместимые) или просто защищен. Бывает и такое. Как-то наткнулся на прикольный класс, а на попытку использовать одно из событий VB писал: "Function or interface marked as restricted, or it uses an automation type not supported by Visual Basic". Пришлось использовать другие пути

[NicSoft]

Ну и ладно. Он мне конечно не позарез нужен, просто хотелось придать программе элемент завершенности и неглюкавости.
Спасибо за поддержку.

[hCORe]

Всегда пожалуйста

[GSerg]

Господа, не страдайте фигнёй
Отсутствие класса в списке после New означает, что он Public non createable, то есть нужно сначала создать некий главный объект (который как раз Public creatable), а потом с помощью методов сего объекта получить экземпляр желаемого объекта.
Посмотрите там, какие методы каких объектов имеют тип возвращаемого значения AcadPreferencesSystem?

[NicSoft]

Класс AcadPreferencesSystem не возвращает никакого значения, он содержит опции вкладки окна диалога (всего девять свойств, одно из которых - DisplayOLEScale). Я просмотрел все методы всех классов AutoCAD но не нашёл такого, который может создать экземпляр AcadPreferencesSystem. Может, конечно, по неопытности.

[GSerg]

Есть вероятность, что возвращаемое значение имеет тип Object. Тогда только чтением мануала

[SVL]

Попробуй так:

Код: Выделить всё

Dim AcadPref as object
dim acadapp15 as object
Set acadapp15 = CreateObject("AUTOCAD.APPLICATION.15")
Set ACADPref = acadapp15.ActiveDocument.Application.preferences.System
ACADPref.DisplayOLEScale=False


А вообще в AutoCad есть прекрасная справочная система, в том числе по VBA. Там все подробно объяснено.

[NicSoft]

Попробуй так:
Код:
Dim AcadPref as object
dim acadapp15 as object
Set acadapp15 = CreateObject("AUTOCAD.APPLICATION.15")
Set ACADPref = acadapp15.ActiveDocument.Application.preferences.System
ACADPref.DisplayOLEScale=False

Всё прокатило. Без шума и пыли.
Огромное спасибо!!!