Сквозное выполнение лиспа
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Сквозное выполнение лиспа

Сквозное выполнение лиспа

Ответ
Поиск в этой теме
Непрочитано 28.08.2009, 12:43 #1
Сквозное выполнение лиспа
kha
 
BIM, С#, AutoCAD, LISP
 
Дуброво
Регистрация: 15.03.2006
Сообщений: 657

В программировании я не очень, но вот пришлось заняться малёк.
Черчу в акаде в основном с включённым Polar Tracking, но иногда приходится переклуючаться в Ortho Mode. Обычно на орто переключаюсь по F8. Но когда отключаю орто - Polar Tracking остаётся выключенным.

Нашёл, какие переменные переключают эти режимы и сделал маленькую программку, переключающие эти режимы между собой и повесил на F8:

Код:
[Выделить все]
(defun c:otmoroz_perekluchalka ()
   (if (= (getvar "orthomode") 1) 
       (setvar "AUTOSNAP" 63)
       (setvar "Orthomode" 1)
    )
(princ)
)
Всё замечательно, работает. Но при выполнении какой-либо команды переключение между режимами приводит к отмене выполняемой команды.

Как сделать так, чтобы эта функция выполнялась во время выполнения другой команды?
__________________
"Молодой человек, Вы не представляете всей широты поставленной перед Вами задачи." © Панкратова Г.Е.
Просмотров: 1396
 
Непрочитано 28.08.2009, 12:54
#2
Денис Флюстиков


 
Регистрация: 20.07.2005
СПб
Сообщений: 89


А если на кнопку повесить:
(progn (if (= (getvar "orthomode") 1)(setvar "AUTOSNAP" 63)(setvar "Orthomode" 1))(princ))
Денис Флюстиков вне форума  
 
Непрочитано 29.08.2009, 08:42
#3
Евгений А.

Армспорт
 
Регистрация: 18.07.2006
Ейск
Сообщений: 355


Цитата:
Сообщение от kha Посмотреть сообщение
...Обычно на орто переключаюсь по F8. Но когда отключаю орто - Polar Tracking остаётся выключенным...
Ну так используй аналогично F10
Евгений А. вне форума  
 
Автор темы   Непрочитано 31.08.2009, 12:21
#4
kha

BIM, С#, AutoCAD, LISP
 
Регистрация: 15.03.2006
Дуброво
Сообщений: 657


Цитата:
Сообщение от Денис Флюстиков Посмотреть сообщение
А если на кнопку повесить:
(progn (if (= (getvar "orthomode") 1)(setvar "AUTOSNAP" 63)(setvar "Orthomode" 1))(princ))
Спасибо! Работает как нужно!

Цитата:
Сообщение от Евгений А. Посмотреть сообщение
Ну так используй аналогично F10
Мне так неинтересно. Мне нужно, чтобы эти режимы переключались по одной кнопке между собой, что и было сделано.
__________________
"Молодой человек, Вы не представляете всей широты поставленной перед Вами задачи." © Панкратова Г.Е.
kha вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Сквозное выполнение лиспа



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ГОСТ или справочник на выполнение вырезов в швеллерах для выгиба косоуров Николаев Максим Поиск литературы, чертежей, моделей и прочих материалов 9 29.12.2008 10:29
Отключение перерисовки во время выполнения лиспа Sleekka LISP 18 24.10.2008 17:32
Как из исходного файла передать выполнение в другой файл? elena_k Программирование 6 04.04.2008 16:30
Как работать с дебагером лиспа? Wo1and LISP 15 13.09.2007 12:10
Из лиспа в команду. Pave1 LISP 4 25.07.2005 16:08