[mmax]

Код:

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

(vlax-add-cmd "dispp" 'disppoint "dispxy" 1)

Функция disppoint делает несколько запросов и Возвращает список из двух чисел, тоесть точку.

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

Например:

Код:

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

Команда:
Команда: _circle Центр круга или [3Т/2Т/ККР (кас кас радиус)]: dispp

Требуется точка или ключевое слово.
Центр круга или [3Т/2Т/ККР (кас кас радиус)]: *Прервано*

А вот если на запрос уазания центра окружности ввести (disppoint) со скобками, то все работает как надо и запросы функции и возвращаемая точка является центром окружности. Вобщем все работает как надо.

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

Повесить команду-функцию (disppoint) на кнопку панели не предлагать.

Всем заранее спасибо.

[VVA]

Словарь терминов — прозрачная команда (transparent command)

Команда, которую можно вызывать в ходе выполнения другой команды. Для использования команды в прозрачном режиме
перед ее именем следует ввести апостроф.

Код:

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

Команда: _circle Центр круга или [3Т/2Т/ККР (кас кас радиус)]: 'dispp

>>Вождь пролетариата:Ленин

Возобновляется команда КРУГ.
Центр круга или [3Т/2Т/ККР (кас кас радиус)]:
Радиус круга или [Диаметр] <23.9414>:

[mmax]

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

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

Мне просто любопытно - а на код функции можно глянуть?

[VVA]

Код:

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

(defun C:DISPP ( /  t1 t2)
  (initget 1)
  (setq t1 (getpoint "\nТочка с коорд Х круга"))
  (initget 2)
  (setq t2 (getpoint "\nТочка с коорд Y круга"))
  (list (car t1)(cadr t2))
  )

Код:

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

Команда: _circle Центр круга или [3Т/2Т/ККР (кас кас радиус)]: 'dispp

Точка с коорд Х круга
Точка с коорд Y круга(-93130.3 124771.0)

Радиус круга или [Диаметр] <53400.4771>:

[mmax]

Так чтоли получается (vlax-add-cmd) и не нужна вовсе? :shock: