[Nihilant]

В Autocad есть функция *error*, для которой можно написать свой обработчик ошибок. Именно она пишет сообщения типа "; error: too few arguments". А какая функция пишет "Unknown command" и можно ли её переопределить? Хотел сделать простой англификатор для команд, который переводил бы Автокаду, например "дшту" в "line".

[Profan]

Идея фикс, IMHO.

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

(defun c:дшту()
(command "_.line")
)

Так, что ли?

[Nihilant]

2 Kpblc:
Неа, не так. А чтобы ВСЕ слова с клавиатуры перехватывала. Типа PuntoSwither'a. Но в Автокаде. Алгоритм работы такой:
1. Перехватить исключение (?) "Unknown command".
2. Попытаться сказать Автокаду то же, что ему ввел пользователь, но по-английски.
3. Если снова "Unknown command", то ничего не делать.
4. Если он понял - пусть исполняет.

Хотя, может и автопереключалка типа PuntoSwither'a сработает неплохо.

[Profan]

Можно воспользоваться файлом acad.pgp. Однако, ты упустил из виду, что в большинстве команд присутствуют опции. Их тоже будешь модифицировать по типу "дшту" в "line"?

[Александр Ривилис]

Такое реально сделать только на ObjectARX. Но смысла в этом я не вижу.

[Profan]

Вот как будет выглядить в acad.pgp вышеупомянутая модификация:

Код:

[Выделить все]

 
ДШТУ, *ОТРЕЗОК

[Елпанов Евгений]

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

[Vov.Ka]

для русской раскладки клавиатуры

Код:

[Выделить все]

(vl-load-com)
(vlr-command-reactor "StartCommand" (list (cons :vlr-commandWillStart 'StartCommand)))
(vlr-command-reactor "TranslateCommand"
		     (list (cons :vlr-unknownCommand 'TranslateCommand))
)
(defun StartCommand (reactor_object obj) (setq *UnknownCommand* nil))
(defun TranslateCommand	(reactor_object obj)
  (if (and (car obj) (not *UnknownCommand*))
    (progn
      (setq *UnknownCommand* t)
      (vla-SendCommand (vla-get-ActiveDocument (vlax-get-acad-object))
		       (strcat "._"
			       (vl-string-translate "ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ"
						    "QWERTYUIOP[]ASDFGHJKL;'ZXCVBNM,./"
						    (strcase (car obj))
			       )
			       " "
		       )
      )
    )
  )
)

[Nihilant]

Спасибо всем. Код Vov.Ka работает. Однако хотелось бы, чтобы Автокад и дальше понимал строки типа "3б40 (вместо @3,40), т.е. нужен реактор на сообщение "Point or option keyword required." Наверное, нужен ":vlr-commandFailed".

[Vov.Ka]

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

[Александр Ривилис]

Сообщение от Nihilant т.е. нужен реактор на сообщение "Point or option keyword required." Наверное, нужен ":vlr-commandFailed".

Реактора на это сообщение не существует, а ":vlr-commandFailed" - это совсем из другой оперы.