kimk

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

91 сообщение в этой теме

Кому интересно, оригинал на:

<noindex>http://ww3.cad.de/foren/ubb/Forum12/HTML/010934.shtml#000022</noindex>

вносим в config.pro:

!================================================

! открыть чертеж

!================================================

mapkey zщ @MAPKEY_NAMEоткрыть чертеж;@MAPKEY_LABELоткрыть чертеж;\

mapkey(continued) ~ Activate `main_dlg_cur` `File.psh_save`;\

mapkey(continued) @SYSTEM\start WScript.exe H:\\Zusatz_Prog\\zo.vbs

!================================================

создаем "zo.vbs":

'Option Explizit

WScript.Sleep 100

Dim Fi, Fso

Set Shell = CreateObject("WScript.Shell")

Set WshShell = WScript.CreateObject("WScript.Shell")

Sub sk(Befehl)

'wscript.echo befehl

WshShell.SendKeys(Befehl)

WScript.Sleep 50

End Sub

sk "^s"

sk "{TAB 6}"

sk "{BS 3}"

sk "drw"

sk "+^{left}"

sk "^c"

sk "^a"

sk "^o"

sk "^v"

sk "~"

WScript.Quit()

--------------------

У народа все прекрасно работает, если названия моделей - цифры.

У меня же - названия "осмысленные", типа "Stenka_levaja.asm"

По-этому в диалог попадает названия файла ВСЕ_БОЛЬШИМИБУКВАМИ и система соответствующий чертеж не находит.

Вопрос: как переписать скрипт так:

......

sk "^s"

sk "{TAB 6}"

sk "{BS 3}"

sk "drw"

sk "+^{left}"

sk "^c"

sk "^a"

sk "^o"

получить из стека последнюю сохраненную строку

применить к ней "LCase()

записать ее назад в стек

sk "^v"

sk "~"

.......

PS: Если вопрос "глупый" прошу ногами не бить

Поделиться сообщением


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


Класный макрос! Только не понятно почему:

`File.psh_save`;\

sk "^s"

повторение?

У меня же - названия "осмысленные", типа "Stenka_levaja.asm"

От этого не должно зависеть. Для Прое что с верхним, что с нижним регистром это одинаковые файлы. И он нормально их открывает.

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

Поделиться сообщением


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

нифига не понял. О чём речь?

Поделиться сообщением


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

Хороший скрипт... У меня работает... Но Я файлы нвзываю цифровым кодом чертежа.

хотя и так работает... Файл SHPONKA_4X4 и находит его чертеж...

У тебя случайно никакой папки с рускими буквами нет??? А может чертеж называется немного по другому...

Изменено пользователем Bear_p

Поделиться сообщением


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

Вот мой итоговый вариант открытия существующего чертежа.:

mapkey hertej @MAPKEY_NAMEОткрыть чертёж;@MAPKEY_LABELЧертёж; \

mapkey(continued) @SYSTEM\start Wscript.exe D:\\User3\\open_file.vbs;

Dim WshShell



set WshShell = WScript.CreateObject("WScript.Shell")



WshShell.SendKeys "^S"



WshShell.SendKeys "{Tab 6}"



WshShell.SendKeys "{bs 4}"



WshShell.SendKeys "+{Home}"



WshShell.SendKeys "^C"



WshShell.SendKeys "^O"



WshShell.SendKeys "{Tab}"



WshShell.SendKeys "{Down 3}"



WshShell.SendKeys "{Tab 14}"



WshShell.SendKeys "^V"



WshShell.SendKeys "{Enter}"



WScript.Quit()

Скрипт создания файла чертежа:

Dim WshShell



set WshShell = WScript.CreateObject("WScript.Shell")



WshShell.SendKeys "^S"



WshShell.SendKeys "{Tab 6}"



WshShell.SendKeys "{bs 4}"



WshShell.SendKeys "+{Home}"



WshShell.SendKeys "^C"



WshShell.SendKeys "^N"



WshShell.SendKeys "{Tab 8}"



WshShell.SendKeys "{Down}"



WshShell.SendKeys "{Tab 8}"



WshShell.SendKeys "{Down}"



WshShell.SendKeys "{Tab 8}"



WshShell.SendKeys "{Down}"



WshShell.SendKeys "^V"



WshShell.SendKeys "{Enter}"



WScript.Sleep 500



WshShell.SendKeys "^V"



WScript.Quit()

Поделиться сообщением


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

хотя и так работает... Файл SHPONKA_4X4 и находит его чертеж...

У тебя случайно никакой папки с рускими буквами нет??? А может чертеж называется немного по другому...

Нет ни Русских ни каких других и файлы чертежей наместе.

Не знаю почему, но регистр влияет. :-(

Ладно переживу, но теперь просто принципиально интересно:

Как, всетаки, получить из "буфера обмена" строку, сделать все буквы маааленькими и передать эту строку обратно :-)))

quote name='GOLF_stream' date='Sep 2 2007, 23:35' post='170060']

нифига не понял. О чём речь?

Чтож непонятного: Я прсто очень ленивый: надо раз 5 мышкой кликнуть, потом ^C-жать, потом ^V, а так 2 кнопочки нажал и чертежик открылся.

К стати таким же способом можно СОЗДАТЬ чертеж, надо только после выбора рамки (формата) не забыть Sleep() вставить, чтобы датьсебе время для выбора формата, отличного от "по умолчанию"

Поделиться сообщением


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

Как, всетаки, получить из "буфера обмена" строку, сделать все буквы маааленькими и передать эту строку обратно :-)))

Не надо ничего делать. Попробуй мой вариант.

Или в своем варианте замени:

sk "drw"

на sk "DRW"

раскладка в ПроЕ английская.

надо только после выбора рамки (формата)

Тут проблема, к получению доступа к форматам.

Поделиться сообщением


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

Тут на днях занялся и нашол решение не зависящее от раскладки и имени файла.

Открытие чертежа:

Это в конфиг. Ссылку на файл исправить на свою. Внимание Макросов с именами 1, 12 в конфиге быть не должно. Первый макрос для кнопки.

mapkey hertej @MAPKEY_NAMEОткрыть чертёж;@MAPKEY_LABELОткрыть чертёж;\

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



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 124 @MAPKEY_NAMEПереименовать;@MAPKEY_LABELПереименовать;\

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

mapkey(continued) ~ Close `main_dlg_cur` `MenuBar1`;\

mapkey(continued) ~ Activate `main_dlg_cur` `File.psh_rename`;

А это файл. Внимание, если не работает попробуйте ключи ^C ^A ^V заменить на ^c ^a ^v. Зависит от машины.

Dim WshShell



set WshShell = WScript.CreateObject("WScript.Shell")



WshShell.SendKeys "124"



WScript.Sleep 100



WshShell.SendKeys "^C"



WshShell.SendKeys "^A"



WScript.Sleep 300



WshShell.SendKeys "123"



WScript.Sleep 300



WshShell.SendKeys "^V"



WshShell.SendKeys "{Enter}"



WScript.Quit()

Создание файла чертежа по модели:

Это в конфиг, включая 124 макрос выше. Первый макрос для кнопки.

mapkey hertej_new1 @MAPKEY_NAMEСоздать чертёж;@MAPKEY_LABELСоздать чертёж;\

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



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 126 @MAPKEY_NAMEФормат;@MAPKEY_LABELВыбрать формат;\

mapkey(continued) ~ FocusIn `dwg_create` `inp_model_name`;\

mapkey(continued) ~ Select `dwg_create` `rad_format`1  `2`;\

mapkey(continued) ~ Activate `dwg_create` `psh_format_browse`;

Это файл.

Dim WshShell



set WshShell = WScript.CreateObject("WScript.Shell")



WshShell.SendKeys "124"



WScript.Sleep 100



WshShell.SendKeys "^C"



WshShell.SendKeys "^A"



WScript.Sleep 300



WshShell.SendKeys "125"



WScript.Sleep 300



WshShell.SendKeys "^V"



WshShell.SendKeys "{Enter}"



WshShell.SendKeys "^V"



WshShell.SendKeys "{Tab}" 



WshShell.SendKeys "126"



WScript.Sleep 4000



WshShell.SendKeys "{Enter}"



WshShell.SendKeys "{Enter}"



WScript.Quit()

WScript.Sleep 4000 время задержки для выбора формата (двойной клик на файле).

Поделиться сообщением


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

Sorry

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

- в строке NEW NAME панели RENAME курсор появляется в режиме вставки,

- в ней запись - 125

- вместо одного знака вводит три, т. е. 125 получается вводом 125

Как это исправить?

:sad:

Поделиться сообщением


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

Про какой макрос разговор? Если про последний, то я уже писал вверху что зависит от машины написание некоторых знаков: ^C ^A ^V заменить на ^c ^a ^v.

Поделиться сообщением


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

Да, исправил --> имя файла дается, но 125 не забивается, только вручную удалять...

Поделиться сообщением


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

Попробуйте увеличить первую задержку. WScript.Sleep 100

Поделиться сообщением


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

У меня чтобы второй скрипт нормально заработал пришлось ввести задержку:

Dim WshShell

set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "124"

WScript.Sleep 300

WshShell.SendKeys "^c"

WshShell.SendKeys "^a"

WScript.Sleep 300

WshShell.SendKeys "125"

WScript.Sleep 300

WshShell.SendKeys "^v"

WshShell.SendKeys "{Enter}"

WScript.Sleep 300

WshShell.SendKeys "^v"

WshShell.SendKeys "{Tab}"

WshShell.SendKeys "126"

WScript.Sleep 4000

WshShell.SendKeys "{Enter}"

WshShell.SendKeys "{Enter}"

WScript.Quit()

Поделиться сообщением


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

Sorry. Мы в 2001, потому и не катит.

на Java может и прокатило бы, если заменить <^A> на <Alt F4>

а WF это со свистом конечно.

Поделиться сообщением


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

Sorry. Мы в 2001, потому и не катит.

на Java может и прокатило бы, если заменить <^A> на <Alt F4>

В 2001 тоже работает.

Dim WshShell

set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "124"

WScript.Sleep 100

WshShell.SendKeys "^c"

WScript.Sleep 100

WshShell.SendKeys "%{F4}"

WScript.Sleep 300

WshShell.SendKeys "125"

WScript.Sleep 300

WshShell.SendKeys "^v"

WshShell.SendKeys "{Enter}"

WshShell.SendKeys "^v"

WshShell.SendKeys "{Tab}"

WshShell.SendKeys "126"

WScript.Sleep 4000

WshShell.SendKeys "{Enter}"

WshShell.SendKeys "{Enter}"

WScript.Quit()

Поделиться сообщением


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

Это делал уже, не выходит из меню RENAME.

Может собака зарыта в мапкее?

Извиняюсь, не там поправил.

Спасибо работает.

Поделиться сообщением


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

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

Поделиться сообщением


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

Ну любим мы автоматизацию рутины.

А если в папке чертежей двести? или вообще в другой директории?

Поделиться сообщением


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

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

Это в конфиг, Директорию изменить на свою:

mapkey Pod @MAPKEY_NAMEПрописать дополнительную информацию под размером;\

mapkey(continued) @MAPKEY_LABELПодписать размер;\

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

Принцип:

В чертеже выделяете размер (Радиус, Диаметр отв., фаску(45), Диаметр резьбы (M@D), остальные размеры), запустите макрос.

Дожно получится в итоге: # радиусов, # отв., #фасок, # отв., # мест.

Поделиться сообщением


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

В результате работы макроса создается сборочная единица с именем "100" - в размер ничего не добавляется.

Поделиться сообщением


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

Поставил, выделил размер, запустилась прога. А дальше и после пробела, после 1 , после 4 помелькали окна и усё. Ничего не появилось.

Поделиться сообщением


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

ОКно свойст размера, закладка текст мелькала?

Поделиться сообщением


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

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

Поделиться сообщением


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

Karlik Перазалил. Мышку во время работы лучше не двигать. Какое разрешение монитора?

ЕСли надо выложу исходник и компилятор.

Поделиться сообщением


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

Ruslan, перезалил, сработало.

Поделиться сообщением


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

На всех вариантах?

Радиусы, Фаски, Диаметры Отв., Резьбовые отв (M@D-). Остальные размеры. (по контуру только на первых двух).

Поделиться сообщением


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

Радиусы - нормально, фаски - вместо фразы типа 5 фасок пишет 5 мест,

отверстия - нормально, резьбовые не проходят.

Поделиться сообщением


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

AlexanderM

В тексте фасок что написано? {0:@D}x ?

В резьбовых отв. Что? M@D- ? Буква M Русская или английская?

Поделиться сообщением


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

@D}x45$

5 мест

Откуда-то появилась фигурная скобка, убрал и все ОК.

М@D пробовал М и русскую и английскую

Поделиться сообщением


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

До применения макроса что написано?

Скопируй в сообщение.

Применяешь просто M6, а не М6-6H?

Поделиться сообщением


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

Если с допуском - проходит. С русской М не проходит.

Поделиться сообщением


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

Вроде исправил.

Поделиться сообщением


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

Разрешение 1920 х 1200. Исправленный скрипт тоже не работает - подвисает комп. Мышка замирает на меню файл и... все. Через ctrl+alt+del только выход.

Поделиться сообщением


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

Компьютер не подвисает. Просто в скрипте применена блокировка клавиатуры и мыши до окончания его выполнения.

Еще вопрос, Прое Ррусифицированный? После ввода количества, что происходит? Открывается ли меню Edit? Свойства размера?

Поделиться сообщением


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

Прое русифицированный - WF3M080. После ввода количества мышка замирает над пунктом "Файл".

Поделиться сообщением


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

Karlik

Приведи название заголовка главного окна и окна Свойст размера.

Поделиться сообщением


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

Компьютер не подвисает. Просто в скрипте применена блокировка клавиатуры и мыши до окончания его выполнения.

А если нет решения вопроса, комп виснет.

Поделиться сообщением


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

Karlik

Приведи название заголовка главного окна и окна Свойст размера.

Главное окно "Имя файла(с полным путем) - Pro/ENGINEER Wildfire 3.0", а окно свойств размера так и называется "Свойства размера".

И еще обнаружил, что все-таки после зависания, а затем нажатия Ctrl+Alt+Del зайти в свойства размера, то добавляется количество.

Поделиться сообщением


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

Можно попробовать так, раз зависает на меню файл:

Запускать свойства макросом из конфмга (макросов с именами 1 и 14 в конфиге быть не должно):

mapkey pod @MAPKEY_NAMEПодпись размера;@MAPKEY_LABELПодписать размер;\

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



mapkey 140 @MAPKEY_LABELСвойства;\

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

mapkey(continued) ~ Close `main_dlg_cur` `MenuBar1`;\

mapkey(continued) ~ Activate `main_dlg_cur` `Edit.psh_dwg_props`;

podpis_razmera.rar

Поделиться сообщением


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

Можно попробовать так, раз зависает на меню файл:

Запускать свойства макросом из конфмга (макросов с именами 1 и 14 в конфиге быть не должно):

mapkey pod @MAPKEY_NAMEПодпись размера;@MAPKEY_LABELПодписать размер;\

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



mapkey 140 @MAPKEY_LABELСвойства;\

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

mapkey(continued) ~ Close `main_dlg_cur` `MenuBar1`;\

mapkey(continued) ~ Activate `main_dlg_cur` `Edit.psh_dwg_props`;

Но это вариант не окончательный, подумываю добавить простановку допуска.

Работает как в чертеже, так и в модели.

Спасибо. Теперь работает, но проставляет в одну строку, т.е. например "2 отв." пишется сразу за размером, а не под ним.

Поделиться сообщением


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

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

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

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



  • Реклама

  • Сообщения

    • VicktorVR
      Продолжаю "ворчать" :)   Просто убивает "ассоциативность" с моделями. Хорошо, сделали "наследственность", т.е. стоит изменить файлы моделей, импортированные в Спрут, как Спрут спрашивает, надо ли вносить изменения. Вносит, но почему при этом ориентацию и расположения импортированной модели возвращает в исходное при импортировании состояние?!!! Полчаса с богом и такой-то матерью располагаешь и ориентируешь заготовку, но стоит поменять модель детали и согласиться на обновление в Спруте и все по-новой!!!
    • averome
      "раз" так вы расист товарищ! "фашизм"
    • fast1kkk
      есть уроки Петра Марценюка, по ним.
      Видео к сожалению нет, но тут обычный ЧПУ вырезает, а потом вручную резчики по дереву. 
    • len
    • SHARit
      Сделать копию поверхности твердого тела. Создать разделяющую кривую. Выделить поверхность. Выбрать "отсечь". Выбрать "в обе стороны".   Визуальный ряд в помощь.        
    • Metal_Cutter
      Да не особо, есть сверлильные станки на магнитном основании. За то минус зачистка, сварки и подкраска.
    • Viktor2004
      Единица дает разрешение на работу оси. Сигналы G130 используют, устанавливают в 0 когда требуется заблокировать не все оси, а какие-то выборочно. А если это не требуется, то используют сигнал G8.0 который блокирует нулем все оси сразу.
    • catiauser
      Можно детали, которые нужно отзеркалить, поместить в одну подсборку, и отзеркалить ее. Скорее всего, это относится уже к модулю проектирования механизмов или кинематики, но утверждать 100% не буду. Я как то модель станка простую делал, так там вроде бы ограничения по ходам механизма вводились.
    • Клиент
      Много сообщений в личку с вопросом стоимости тех, что по ссылке. Странные вопросы в условиях конкурентной борьбы, но раскрою цену: 15000/шт при партии 20 комплектов.
    • ДОБРЯК
      Солид это правильно замкнутые в объем грани.  А грань это только одна из 6 граней кубика, солидного кубика. Грань - это замкнутый контур на поверхности. В грани могут быть не только внешний контур, но и внутренние контуры (вырезы).   У поверхности нет объема. :) Нельзя делать булевые операции с поверхностями.  Просто поверьте.