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

[Ruslan 375]

но проставляет в одну строку

Смотрел, так и непонял почему. Поставил небольшую задержку.

Перезалил. Добавлены размеры.

[Pro_KU 10]

Ruslan!

Попробовал программулину podpis_razmera.exe .

Очень не плохо. Но есть небольшие замечания.

1. Не работает на угловых размерах (повесился компьютер напрочь).

2. Пишет в одну строчку без пробела типа: R22 места.

И вообще Руслану надо памятник ставить!!!

ЗЫ. Интересно! А теперь и на угловом размере сработало!?

[Ruslan 375]

Ы. Интересно! А теперь и на угловом размере сработало!?

Просто из за особенностей организации окон ПроЕ (и их внутренних идентификаторов), отличающийся от стандартных Windows приложений, внешнее управление посредством скриптов не всегда нормально работает.

Нужно Toolkit использовать.

[Pro_KU 10]

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

?

[Ruslan 375]

Макрос, который создает новый чертеж

Да все таже проблема. Из внешнего управления на разных машинах работает по разному. Это ведь по сути последовательность клавиатурных нажатий.

[Pro_KU 10]

Значит, по идее, мне нужно задержки уменьшать. Оно, типа, за заданное время успевает два раза "вставить"?

[Ruslan 375]

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

[Pro_KU 10]

Запуск макроса 124 выделяет новое имя.

[Ruslan 375]

Макросы 123-141 используются для вызова из внешнего скрипта. Отдельно не используются.

[Pro_KU 10]

Я это все понимаю, просто хочу разобраться и подстроить это дело под себя.

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

ЗЫ: Все сделал. Руслану еще раз Спасибо!!!

[Ruslan 375]

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

Так, что Вы хотите что бы останов был на странице задания шаблона?

[Pro_KU 10]

Да я уже все сделал. Убрал лишнее и все заработало.

Спасибо за помощь!

Руслан, а програму правки размеров будете развивать дальше?

[Ruslan 375]

Руслан, а програму правки размеров будете развивать дальше?

Есть идеи?

Просто я все таки хочу как нибудь освоить Toolkit.

[Pro_KU 10]

Это, увы, я совершенно далек от программирования. А у Вас, я так думаю, получиться и с огромным успехом.

[Ruslan 375]

1. Не работает на угловых размерах (повесился компьютер напрочь).

На счет этого. Компьютер не вешается.

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

Если программа остановилась и ждет определенного события, а оно не наступает, то и создается данное впечатление.

В таких случаях нужно нажать Ctrl+ Alt +Del и в трее на иконке программы, выйти.

[Pro_KU 10]

В таких случаях нужно нажать Ctrl+ Alt +Del и в трее на иконке программы, выйти

Совершенно верно. Именно так я и поступил.

[Ruslan 375]

Насчет открытия одноименного чертежа, то вот еще один варант. Сам использую. WF3

В конфиге должны быть макросы:

mapkey 123 @MAPKEY_NAMEЧертеж;@MAPKEY_LABELЧертеж;\

mapkey(continued) ~ Activate `main_dlg_cur` `ProCmdModelOpen.file`;~ Open `file_open` `Type`;\

mapkey(continued) ~ Close `file_open` `Type`;~ Select `file_open` `Type`1 `db_4`;\

mapkey(continued) ~ Input `file_open` `Inputname` `1`;~ Input `file_open` `Inputname` ``;\

mapkey(continued) ~ Update `file_open` `Inputname` ``;

mapkey 125 @MAPKEY_NAMEЧертеж новый;@MAPKEY_LABELЧертеж новый;\

mapkey(continued) ~ Select `main_dlg_cur` `MenuBar1`1 `File`;\

mapkey(continued) ~ Close `main_dlg_cur` `MenuBar1`;~ Activate `main_dlg_cur` `File.psh_new`;\

mapkey(continued) ~ Select `new` `Type`1 `Drawing`;~ Input `new` `InputPanel1` ``;\

mapkey(continued) ~ Update `new` `InputPanel1` ``;

Макрос запуска:

mapkey drw @MAPKEY_NAMEЧертеж;@MAPKEY_LABEЧертеж;@MAPKEY_LABELЧертеж;\

mapkey(continued) @SYSTEM\start D:\\User3\\Макросы\\Скрипты\\drawing.exe;

Где D:\\User3\\Макросы\\Скрипты\\ - директория расположения скрипта.

drawing.rar

[darc 0]

Насчет открытия одноименного чертежа, то вот еще один варант. Сам использую. WF3

это по теме http://fsapr2000.ru/index.php?showtopic=28101??

а как с WF4, работает?7

[Ruslan 375]

Да. Перезалил. Исправил работу на английской локализации.

Насчет WF4, то у меня F000 у него проблема с путями на русском (D:\\User3\\Макросы\\Скрипты\\), а так работает.

п.к. Макрос для начала проверяет наличие чертежа. Если есть, то открывает. Если нет, то переходит к созданию и останавливается в окне выбора формата, после выбора (ОК), автоматически заканчивает создание.

[Sulla 17]

Руслан, у меня при запуске выдает сообщение, что не может найти файл Autolt3.exe. Как с этим бороться ?