[Sergei_Nikolaev]

Дано:
Куча файлов .dwg

Надо:
Сделать кучу .bmp на основе этих DWG для использования в качестве иконки в меню автокда.

Как бы это сделать в VBA? .
Ну или же любым другим способом получить менюшку с рисунком на основе .dwg файла

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

А ты в курсе, что "иконки" для кнопок размером 16х16 и могут содержать только 256 цветов?
Может, лучше использовать палитры инструментов?

[Sergei_Nikolaev]

Да в принципе совершенно неважно что использовать. Надо программно создать меню на основе большого количества DWG файлов, причем файлы могут меняться. Важно чтоб при загрузке автокада выпоолнялся макрос в котором к пунктам меню прикручиваются рисунки, которые наlо сделать на основе тех самых DWG.

[Profan]

которые наlо сделать на основе тех самых DWG.

Что значит "на основе"? Сделать экспорт в BMP? Или извлечь каким-то образом образец из DWG?

[Sergei_Nikolaev]

Я не специалист Обьясню так - есть некий файл primer.dwg я программно делаю меню в автокаде где есть пункт primer, и хочется чтобы пункт имел рисунок на основе primer.dwg. Делать вручную BMP для каждого файла невозможно (их слишком много). Надо каким -то образом сделать это программно.

[Profan]

Т.е. хочу и всё. Но ведь Алексей Кулик объяснил уже, что размер пиктограммы для меню составляет 16х16 пикселей. На такой пиктограмме невозможно разместить содержимое чертежа DWG.

[Sergei_Nikolaev]

Это неверно. все зависит от содержимого чертежа. Я думаю круг от квадрата отличить можно и в 16х16. Важно лишь одно - как реализовать задумку

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

DesignCenter - вот и вся задумка Шутка только наполовину

[Profan]

Да, круг или квадрат разместить можно. В таком случае вам и нужно всего 2 пиктограммы - круг и квадрат. Овчинка выделки не стоит.

[Sergei_Nikolaev]

DesignCenter неудобно и медленно. Я специально сделал себе макрос, который при загрузке автокада делает нужное мне меню. В принципе, по названиям файлов я и так нормально ориенитруюсь, но хотелось бы наглядности.
Кстати dwg файл не содержит ли каких нибудь миниатюр для предпросмотра?

To Profan
Я думаю здесь не место спорить о том стоит или не стоит Для Вас может быть не стоит, для меня стоит. Вопрос в том КАК а не ЗАЧЕМ ЭТО НАДО.

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

dwg-файл в себе (при настройках по умолчанию) хранит растровое изображение последнего состояния экрана на момент закрытия файла. Но добраться до этого элемента, по-моему, можно только через ObjectARX.

[Profan]

Да, я уже попробовал разные способы. Не получается извлечь образец.
Сам я в свое время использовал графическое меню со слайдами.

[Sergei_Nikolaev]

Кстати метод SetBitmap принимает два параметра SmallIconName (bmp-файл 15х16) и LargeIconName (bmp-файл 24х22). Значит можно делать и 24х22 %)

[Profan]

А вот сюда вы не заглядывали?
http://www.caduser.ru/forum/index.ph...D=44&TID=19974

[Sergei_Nikolaev]

Ну примерно тоже самое я и сделал только на VBA и с некоторыми ограничениями.
1. В указаном каталоге обрабатываются только подкаталоги, которые становятся подменю, а файлы в подкаталогах становятся пунктами. Сделано так специально чтобы не перегружаться всяческими под и подпод меню...
2. Созданные меню не сохраняются и каждый раз при загрузке сохдаются заново.
3. Задумывалось что где то в acad.lsp пользователь прописывает команду где указан путь к файлу с описанием меню (т.е. файл он тоже делает сам выбирая из базы нужные ему каталоги, на основе которых делаются меню)


Осталось мне доделать только иконки и автозагрузку с указанием текстового файла, где написаны пути к нужным каталогам и указано как будет называться пункт меню на основе каталога.

Так как это не моя основная работа, то хочется, конечно же сделать все с минимальными затратами и минимальной мозговой деятельностью