Delphi & AutoCAD: порядок "листов".

[Ship_1]

Здравствуйте, уважаемые. Надеюсь, найдётся тот, кто сможет мне ответить на вопрос: как узнать порядок расположения вкладок листов? В имеющемся в "документе" Layouts нумерация в порядке появления (создавания) слоёв. А интересует именно последовательность их вкладок.

[Ship_1]

Да что ж такое? Опять никто не ответит? Не ужели на форуме нет ни одного человека, который знает АвтоКАД? Чего только тут люди ни знают, а АвтоКАД не знает никто?..
Или никто не отвечает по какой-то другой причине?

[Stilet]

Я знал его раньше, но уже около 5 лет не работаю с ним. А учитывая что после MDT 6 куча версий сменилось мне сказать нечего. Смотреть хелп по VBA надо чтоб на твой вопрос ответить.

[Ship_1]

Спасибо за ответ, Stilet. Вы и в прошлый раз единственный мне ответили по АвтоКАДу. Поэтому и написал "знает" в настоящем времени, т.к. помню про то, что раньше с ним работали Вы.
Наткнулся таки на одном форуме на то, что за номер листа в расположении вкладок отвечает Layouts.Item(i).TabOrder
И тут возникает следующая проблема: при любой попытке обратиться к этому свойству (во всяком случае я испробовал четыре варианта: в одну строку вывод номера в нужный Edit; попытка сначала присвоить номер переменной; взять сначала переменную для листа, а потом уже от этой переменной взять номер расположения этого листа и даже попробовал через Variant - результат один) возникает ошибка

"Acces violation at adress 762d5149 in module 'RPCRT.dll'. Read of adress 00000000"

Там, где я нашёл про это свойство, вопрос был связан тоже как раз с тем как избавиться от ошибки.
Может, хоть с этим кто-то поможет?

[Stilet]

А можно увидеть код?
Я надеюсь, что ты не пишешь прям одной строкой, как показал. Или так и пишешь?
Если да, то рекомендую:

var LayItem,Layouts:OleVariant;
...
Layouts:=АвтокалБлаБла.Layouts;
if not VarIsClear(Layouts) then begin
 if (i>=0)and(i<Layouts.Count) then begin
  LayItem:=Layouts.Item(i);
  if not VarIsClear(Layouts) then begin
   LayItem.TabOrder - работаем.
  end else begin
   Ошибка получения вкладки
  end;
 end else begin
  Такой вкладки нет
 end;
end else begin
 объект лайоутов недоступен
end;

Т.е. нужно так писать, чтоб ошибки обрабатывать, а не напролом на авось.

[Ship_1]

Йоххо!!! Получилось!!! Мой код на работе, поэтому поэкспериментировал с "рекомендацией"
Сначала попробовал через автокадовские типы: IAcadLayouts; IAcadLayout, но опять вылетела ошибка на строке

ShowMessage(IntToStr(LayItem.TabOrder));

Правда, уже другая, но похожая.

"Acces violation at adress 77EF307C in module 'RPCRT4.dll'. Read of adress 00000000"

Но после замены на OleVariant сработало!!!
Спасибо большое!
Интересно, в чём тут фишка?..
Код уже не нужен, или таки завтра выложить фрагмент?

И...
Ну да... Так прямо и пишу... Если возникает необходимость отлова ошибок - помещаю в try...except...end. С VarIsClear сталкиваюсь первый раз. Попробовал пояндексить, но ничего путного про неё не нашёл. Приму во внимание, спасибо! Если не сложно - поясните понятными словами что она делает?

[Stilet]

Интересно, в чём тут фишка?..

Всмысле? OleVariant это универсальный тип, а IAcadLayouts; IAcadLayout - это интерфейсы. Как бы тебе, раз уж с VB акада работаешь, придется изучать основы СОМ и OLE технологии и как работать с IDispatch.
Тексейра и Пачеко - вот книга, которая тебе пригодится )

Код уже не нужен, или таки завтра выложить фрагмент?

Если все срослось, то не нужен.

Ну да... Так прямо и пишу...

Ну тогда да... Прямо так на ошибки и будешь попадаться )))
Если вдруг какое-то свойство оказывается недоступным, или в силу версий акада тупо не поддерживается, то твое ПО покатится колбаской по малой спасской )
Раз уж работаешь с СОМ, то ставь проверки везде где надо и не очень. Это тебе совет из 6-ти летнего опыта работы с Авткадом, Компасом и Солидом.

[Ship_1]

Эта книга?
Или у них есть что-то более близкое к теме? Потому что эта похожа на стандартную книгу "начального" уровня: основные принципы работы с Дельфи и создание баз данных. Без углубления, например, в работу с OleVariant и обычных Variant; без VarIsClear и т.п.

раз уж с VB акада работаешь

VB у меня ассоциируется с ВизуалБэйсиком... А тут что имелось ввиду?

[Stilet]

Эта книга?

Да.

Потому что эта похожа на стандартную книгу "начального" уровня

Вигасе начального О_о...
Ты хотя бы содержание прочти.
Там такие штуки описаны, которые ни один препод не даст никогда. Это Библия Делфи. Лучшая из книг.

Без углубления, например, в работу с OleVariant и обычных Variant; без VarIsClear и т.п.

Вот тот, кто прочтет ее, тот поймет о чем я говорю, а если ты не сделаешь этого, то можем дальше не обсуждать работу с OLE и т.д.

VB у меня ассоциируется с ВизуалБэйсиком... А тут что имелось ввиду?

Визуал Бейсик. Ты что не в курсе что в Акаде на VB можно писать ПО? По крайней мере в старых версиях можно было, и именно там в VB можно подсмотреть путь вызова всех свойств обьектной модели СОМ Автокада, чтоб потом перенести на Делфи или Си.

[Ship_1]

А, вот о чём речь про VB...

Это Библия Делфи. Лучшая из книг.

Ну я её, собственно, с "Библией Дельфи" и сравнил Флёнова. Я её иногда почитываю от случая к случаю, если понимаю что где можно вычитать для моей необходимости.

ОК, почитаю и эту.
Спасибо за советы!