Свежие обсуждения
Идеи

3D принтер

1 9 30

А вот и мой первый макрос.
Оказывается корел может работать как магнитофон. Включаешь запись, выполняешь команды, которые нужно в макросе сохранить, выключаешь запись. Всё, макрос записан. Потом вызываешь его на исполнение и все записанные команды выполняются автоматически. Супер!!!

 

Ну вот, собственно, и всё. Рабочий объем 3D-принтера наверняка будет крайне редко меняться. Нужно только один раз не полениться, пробежаться по всем страницам шаблона, на каждой странице выполнить одну команду "вставить" контур рабочего места и всю эту пробежку записать в макрос. Только размещение контура раб места на самой первой странице в макрос не надо записывать, тогда расположение этого контура на всех страницах можно тоже автоматически менять.
Вариант для чайников, ни какого VBA знать не надо.
Правда, надо хорошо знать матлаб.

 

Головокружение от успехов.
Итак, есть макрос. Запускаем редактор VBA в кореле. Находим записанный макрос. Щелкаем по нему два раза левой мыщью и макрос открывается. И потом лепим из этого макроса всё, что душе угодно. В том числе и непосредственную вставку на каждую страницу шаблона соответствующего файла bmp. И по сотням страниц с командой "вставить" бегать не надо. Там же в редакторе создается цикл по всем страницам.
Блин, я думал сложнее будет.

 

Посмотрел я, как макрос на полном автомате bmp файлы в страницу вставляет и подумал - а зачем, спрашивается, лепить огород и создавать многостраничный файл? Пусть макрос на полном автомате печатает одну и ту же страницу, только bmp вставку меняет каждый раз. А когда очередной файл невозможно открыть - значит все страницы напечатаны.
И не надо будет заботиться о коррекции макроса при изменении количества сечений.

 

Меня всегда восхищали люди, которые могут в отсутствии инструмента, все сделать из подручных материалов.(ведение бухгалтерии на экселе). Немножко отвлекусь от темы и расскажу историю из жизни: Давным-давно, когда персональные компьютеры имели только 4 цвета, а скорость их работы была крайне низка, произошло данное событие. Даже гуру в программировании были сильно удивлены подходом к решению проблемы одним сотрудником. Если кто то думает что Эксель появился не давно, то он ошибается, в то время эта программа называлась SuperCalc и MS еще не был монстром. Она была точно такая же, как Эксель, только черно-белая. Так вот одному отделу поручили разработать расчет ЗП на РС для Жеков(ДЭЗ), а раньше весь этот расчет делался централизовано. Начальник одела конечно поставил своим подчиненным делать эту программу на Dbase IV, но так он подсел на СуперКалк 2 дня назад, он решил параллельно сделать это все на нем. И что вы думаете? Через 3 недели, а программисты на Dbase IV еще ковырялись с поставленной задачей, начальник этого отдела показал людям свое творение. Весь вычислительный центр бросил в это время работу, и как на концерте начальника на БИС просили показать еще. Такого еще не видел никто! Конечно она считала очень долго. Но когда народ наблюдал как вызываются макросы, открываются окна, двигаются и удаляются колонки, пишутся формулы в ячейки, пересчитываются таблицы, бегает курсор по ячейкам, записывались файлы и все это без участия человека, захватывало дух. При этом начальник был не лишен юмора, при расчетах компьютер рассуждал сам с собой, и комментировал свою работу. У всех было ощущение, что компьютер живой. На все это хозяйство даже пришел смотреть директор ВЦ, он был тоже под впечатлением. В итоге поставили этого монстра в один из ДЭЗов пробно. Конечно расчет ЗП целую ночь никого не устроил, но какая была попытка!!!!!

 

Принтер С91 под управлением макроса печатает на полном автомате. Сам видел.
Только печатает как бешенный, используя настройки по умолчанию.
Тут больше всех Юха печатает, он не может не знать.
То Юха
скажите, пожалуйста, как изменить настройки принтера по умолчанию, так чтобы они сохранились? В С91 в глаза бросается только возможность создания настроек пользователя и сохранения их.

 

Михалыч А: Только печатает как бешенный, используя настройки по умолчанию.
Настройки по умолчанию можно выставить любые.
Пуск - Принтеры и факсы - Правой кнопкой мыши на нужном принтере "Свойства" - Общие - Настройка печати.
После всех настроек не забуть нажать кнопку Применить или Ок.

 

Поставил тело макроса внутрь цикла For - Next и принтер начал печатать в цикле.
Остался несделанным генератор имени (и пути) каждого bmp файла. Но поскольку уже скачан учебник по VBA на русском, будет сделан и этот последний шаг.

 

Появилась первая засада.
В макросе есть строка, в которой импортируется bmp файл. Так вот, когда путь и имя файла прописаны открытым текстом - файл импортируется, а когда на место этой прописи я ставлю строковую переменную - ни хрена не импортируется.
Кто-нибудь знает, как этот камень обойти?
Есть зона видимости, но я не пойму, как мне найти General Declarations главного модуля, чтобы сделать мою переменную глобальной.

 

Михалыч А: Так вот, когда путь и имя файла прописаны открытым текстом - файл импортируется, а когда на место этой прописи я ставлю строковую переменную - ни хрена не импортируется.

Должно работать. Фрагмент кода приведите.