[Jonas]

Можно ли в стандартной команде заменить запрос (например "Выберите объект") на другой (например "Укажите деталь)?

[Profan]

Нет. (Хотя, если ты рискнёшь редактировать файл acadres.dll, то можно попробовать. Но тогда при выборе любого объекта всегда будет предлагаться выбрать "деталь".)

[Krieger]

Нужно писать свою команду, даже если ты используешь стандартную. При этом отключить эховывод и выводить в нужном месте свое сообщение.

[ShaggyDoc]

Вопрос в программировании, а значит заменять штатные запросы можно и нужно (за некоторыми исключениями в ssget).

Общая методика:
1. Штатная команда вызывается функцией command. Надо очень хорошо знать соответствующую команду и, в нужный момент, подставлять свои вопросы. Например, если рисовать отрезки, то нужен ввод двух точек. Можно сделать так (без проверок и защит):

Код:

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

(setq pt1 (getpoint "\nВведи первую точку")
        pt2 (getpoint pt1 "\nВведи Вторую точку")
)
(command "_.LINE" pt1 pt2)

Вот и свои вопросы в штатной команде.

2. Что касается "Выберите" или "Укажите", то здесь используется функция (а не команда) entsel, а у неё есть аргумент приглашения

(setq ent (entsel "Укажите деталь:"))

[ытя]

Пример: ^C^C(setq e(entsel "Укажите деталь "));\_copy;!e;;

[Profan]

Все вы выдумываете. В данном случае стандартная команда - это "_select" ("выбрать"). А самому напрограммировать можно что угодно.

[Олег (jr.)]

Сообщение от Jonas Можно ли в стандартной команде заменить запрос (например "Выберите объект") на другой (например "Укажите деталь)?

Если имеется в виду изменить запрос для фукции SSGET
тогда используй перед ней переменную NOMUTT=1
а после в устанавливай обратно в ноль

~'J'~

[Sleekka]

Я уже показывал как англифицировать команду mirror для русского акада.
Если нужно прям взамен mirror то юзается undefine \ redefine

(defun C:sl_mirror(/ sl_ask ss lstLen sl_p1 sl_p2) (vl-load-com) (setq ss (ssget)); (setq lstLen (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (setq sl_p1 (getpoint "Specify first point of mirror line: ")) (setq sl_p2 (getpoint sl_p1 "Specify second point of mirror line:")) (princ "\n") (initget "Yes Да Н No Нет Т _Yes Yes Yes No No No") (setq sl_ask (getkword "Erase source objects? [Yes/No] <N>: ")) (if (progn (or (= sl_ask "Yes")(not (= sl_ask nil)))) (progn (vl-cmdf "_mirror") (foreach ent lstLen (vl-cmdf ent) ) (vl-cmdf "") (vl-cmdf sl_p1) (vl-cmdf sl_p2) (vl-cmdf "_y") ) (progn (vl-cmdf "_mirror") (foreach ent lstLen (vl-cmdf ent) ) (vl-cmdf "") (vl-cmdf sl_p1) (vl-cmdf sl_p2) (vl-cmdf "_n") ) ) (princ) )