Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → Настройка меню и DIESEL → Макрос на кнопке "Ctr+C + Save As" для AutoCAD 2006
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Можно ли и как написать макрос на кнопку для небольшой автоматизации :
1. Взять в буфер обмена однострочный техт
2. Открыть в меню подменю "Save As"
3. И поменять имя открытого файла на текст из буфера обмена ?
Спасибо.
Можно, если текст в буфере обмена будет типа:
text.DWG, только без всякой кнопки и без всякого макроса, а только одной мышью.
> Владимир Громов
Понял. Спасибо.
> Владимир Громов
А, на LISP можно написать? Я эту операцию делаю по меньшей мере по 50 раз на дню. Хотя бы немного облегчить жизнь.
> Forma
С клавой дружим? Если да, то (выполняется один раз на одной машине, на других надо будет повторять):
Правый щелчок на любой кнопке -> Cutomize -> закладка Keyboard. Дальше указано Список :: значение:
Menu Group :: ACAD
Categorized :: File menu
Command :: SaveAs
В поле Current Keys - текущие установки горячих клавиш на вызов этой команды.
Активировать "Press new shorcut key" - можно вколотить то, что нравится (мне обычно нравится [Ctrl]+[Shift]+[S]
Жмем ОК до посинения.
Теперь: скопировали в буфер будущее имя (как - дело десятое), жмем настроенную комбинацию клавиш, вставляем имя (например, [Ctrl]+[V]). Все. Никаких извращений с макросами / лиспом / arx
---
ИМХО
Вдогонку: можно и не повторять, надо скопировать файлы acad.mns на новую машину. А еще лучше - оперировать с профилями када (но это уже другая тема)
> kpblc
Потерян смысл темы. Словоблудие какое то. Извините.
> Forma
Да не совсем. Одного и того же результата можно добиваться сотней способов. И писать лиспы / макросы для решения такой задачи - ИМХО "из гаубицы по комарам". Решение описано, оно работает (по крайней мере у меня), никаких дополнительных телодвижений нет. Быстро и просто. Вдобавок еще и рассказано, как переносить такие настройки с машины на машину. Опять нехорошо? Ну тогда извините, но меня уже нет.
Сохраняй на здоровье, только настрой место по умолчанию и будет тебе счастье...
(defun my_save (/ TXT)
(if (and
(setq txt (car (entsel "Укажите текст с названием для файла ")))
(equal (assoc 0 (entget txt)) '(0 . "TEXT"))
(setq txt (cdr (assoc 1 (entget txt))))
(progn
(while (or
(vl-string-search "*" txt)
(vl-string-search "?" txt)
(vl-string-search "\\" txt)
(vl-string-search "/" txt)
(vl-string-search "|" txt)
(vl-string-search "\"" txt)
(vl-string-search ":" txt)
(vl-string-search "<" txt)
(vl-string-search ">" txt)
) ;_ or
(setq txt (vl-string-trim "*?\\/|:*<>" txt))
) ;_ while
txt
) ;_ progn
(setq txt (substr txt 1 250))
(> (strlen txt) 0)
) ;_ and
(progn
(setvar "FILEDIA" 0)
(vl-cmdf "_.saveas" "2004" (strcat txt ".dwg"))
(setvar "FILEDIA" 1)
) ;_ progn
) ;_ if
)> Евгений Елпанов
Спасибо. Сейчас начну пробовать.
> Евгений Елпанов
Эту программу нужно запускать по команде
my_save
Правильно?
Не хочет запускаться :(
Пишет:
Unknown command "MY_SAVE". Press F1 for help.
> Forma
В командной строке (my_save)
> Евгений Елпанов
> ABoltrushko
Заработала. Отлично. Вот еще одна хорошая и нужная программа. Большое спасибо.
Ух ты! Как быстро. Параллельно решил еще одну задачу с версией DWG. Иногда ошибаюсь. А потом получаю замечания. Недолго думая повесил две кнопки 2000 и 2004. Надо будет заняться серьезно хотя бы с этой областью программирования на LISP.
> Forma
Рад, что смог помочь...
...эээ, а можно? Еще добавить путь для сохранения? Чтобы с разных компов в сети, сбрасывать в одно место(хранилище)...
Евгений Елпанов,
---------------------------
...эээ, а можно? Еще добавить путь для сохранения? Чтобы с разных компов в сети, сбрасывать в одно место(хранилище)...
Действительно, как- бы добавить путь для сохранения. Например, в c:\0-tempo
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → Настройка меню и DIESEL → Макрос на кнопке "Ctr+C + Save As" для AutoCAD 2006
Форум работает на PunBB, при поддержке Informer Technologies, Inc
