Перейти к публикации

Vba + Mapkey - Открытие Одноименного Чертежа


kimk

Рекомендованные сообщения

открывать уже готовый чертеж не хочет, пытается создать новый, говорит такой уже есть.

при создании нового останавливается на принятии форматки, помогает только ctrl+alt+del

если есть возможность может сделать запрос открывать имеющийся или создавать новый чертеж, а так же может убрать "защиту от дурака"

wf4 m040

Ссылка на сообщение
Поделиться на других сайтах
  • 3 месяца спустя...


решил ещё раз проверить програмку:

1) существующий чертеж открывает на ура

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

если чертежа нет и производится не первый запуск "создать новый чертеж", то в принципе работает как надо, выбран формат листа (который предыдущий раз создавался вручную) и скрипт умирает, жму ctrl+alt+del, меняю формат если надо, жму ОК, скрипт завершает работу.

Ссылка на сообщение
Поделиться на других сайтах
  • 1 месяц спустя...
  • 2 месяца спустя...

Для написания макросов для прое уже как пол года использую программу xStarter.

В ней намного удобней и понятней работать, не надо особо вникать ни в какие языки программирования.

Просто создаем макрос, компилируем его в исполняемый файл и запускаем по типу:

mapkey(continued) @SYSTEM\start макрос.exe

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

Легко вставить свою функцию обработки чего-либо, написанную например на Дельфи.

Сам делаю так автоматическую групповую спецификацию.

Ссылка на сообщение
Поделиться на других сайтах

Сергей можно по подробнее рассказать как это Вы делаете такую замечательную вещь как открытие одюноименного чертежа и групповую спецификацию

Ссылка на сообщение
Поделиться на других сайтах

Про открытие одноименного чертежа тут, по моему, все уже подробно расписано, просто программой xStarter удобно делать внешний макрос, скомпилировать его в ехе файл и прописать запуск его в проешный конфиг.

Программа позволяет заблокировать действия клавиатуры и мыши другими программами пока выполняется макрос, что так же удобно. Можно задать нажитие клавиш или щелчка мыши в конкретное окно, по указанным координатам и т.д.

Программа на русском языке, имеет подробное описание.

Насчет групповой спецификации. Прое итак позволяет ее выводить, просто выводит ее не по ЕСКД. Мой макрос сохраняет таблицу в файл с расширением csv, затем программа на дельфи ее обрабатывает в автоматическом режиме и генерирует параметры для другой, уже рабочей таблицы, которая и будет распечатыватся. Эти параметры сохраняются во вспомогательный инфообъект, который подгружается к основной сборке. Примерно так. Может у кого-то есть более простое (не кривое) решение для формирования групповой спецификации по форме 1b вроде так она называется эта форма.

Чо то на данном форуме я ничего путного по этому поводу не нашел. Кругом надо прописывать кучу уравнений и формат получается не универсальным для разных сборок.

Ссылка на сообщение
Поделиться на других сайтах

Возникла проблемка в WINDOWS 7 не работают ни VBA ни AutoIt скрипты которые так замечательно фурычили на XP, ни кто с таким не сталкивался?

Ссылка на сообщение
Поделиться на других сайтах

Совсем не работают или неправильно?

Я толком не разобрался но по моему не отправляются нажатия клавиш с Ctrl-ом, и именно в proe, потомучто отдельно запускаемые из тотала скрипты выполняются успешно :) Да и в прое нажатия клавиш видимо передаются кроме как с Ctrl-ом, так как заметны какието мелькания видимо от нажатия Tab.
Ссылка на сообщение
Поделиться на других сайтах

Да и в прое нажатия клавиш видимо передаются кроме как с Ctrl-ом

Раскладку в скрипте учитываете?

Func _Open_file($value);Открыть файл

If @KBLayout = 0419 Then

Send("^щ")

Else

Send("^o")

EndIf

У меня похоже работает только Send("^щ")

Ссылка на сообщение
Поделиться на других сайтах

У меня похоже работает только Send("^щ")

:worthy: Спасибо большое, хоть какоето продвижение а то хотел уже семерку хоронить
Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...