[480725]

Попытался создать прозрачную команду на Лисп с помощью (vlax-add-cmd)
Все получилось, только полученный программой, преобразованной в прозрачную крманду, результат не передается ни в команду автокада ни в лисп, хотя прозрачная команда полностью проработала.

Для иллюстрации привожу специально написанную короткую программу получения ссылки:

(deFun rxy()
(setQ osm(getVar "osmode" ))
(setVar "osmode"55)
(setQ p1(getpoint "\n┴рчютр* Єюўър: "))
(setQ dx(getDist "\n╨рёёЄю*эшх яю ╒:<0> "))
(If (not dx)(setQ dx 0));if
(setQ dy(getDist "\n╨рёёЄю*эшх яю ╒:<0> "))
(If (not dy)(setQ dy 0));if
(setVar "osmode"osm )
(If (caddr p1)
(list (+ (car p1)dx)(+ (cadr p1)dy)(caddr p1))
(list (+ (car p1)dx)(+ (cadr p1)dy))
);if
);defun


Сама программа работает без проблем:

Команда: _line Первая точка: (rxy)
Базовая точка:
Расстояние по Х:<0> 4000
Расстояние по Х:<0>
Следующая точка или [Отменить]:

Преобразовываю программу в прозрачную команду
Команда: (vl-load-com)
Команда: (vlax-add-cmd "rxy"'rxy"rxy" 1)
"rxy"

И повторяю действие с прозрачной командой
Команда: _line Первая точка:'rxy
>>Базовая точка:
>>Расстояние по Х:<0> 4000
>>Расстояние по Х:<0>
Возобновляется команда ОТРЕЗОК.
Первая точка:
Т.е. результат не воспринят как ответ на запрос и проигнорирован (снова спрашивает первую точку).

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

[Эдуард]

Здравствуйте.
При вызове прозрачной команды , основная команда блокируется и возобновляется только после того , как прозрачная команда завершиться и выдаст свой результат. (т.е. результат не попадает в командную строку на запрос "Первая точка").

[Vov.Ka]

вместо

Код:

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

 (vlax-add-cmd "rxy"'rxy"rxy" 1)

используй

Код:

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

 (defun c:rxy () (rxy))

[480725]

Сообщение от Vov.Ka используй Код: [Выделить все] (defun c:rxy () (rxy))

Я именно так изначально и написал. В этом случае получается прозрачность на фоне команд Автокада, но не на фоне программ на ЛИСП. Та конструкция, которую я использую сейчас - абсолютно законная и по описанию Автодеск должна дать тот результат, на который я расчитываю. Но не дает.

----- добавлено через ~14 мин. -----

Сообщение от Эдуард При вызове прозрачной команды , основная команда блокируется и возобновляется только после того , как прозрачная команда завершиться и выдаст свой результат. (т.е. результат не попадает в командную строку на запрос "Первая точка").

Я не очень понял.. Вы намекаете, что прозрачность не предполагает передачи результата фоновой команде? Увы, похоже правда на вашей стороне. Автокадские привязки и ссылка - прямой аналог моей программы - не являются прозрачными командами (вызываются без '). А прозрачные не возвращают значение, а только производят действие... Получается сделать программу - аналог привязки и ссылки, работающую на фоне как команд Автокада, так и программ ЛИСП невозможно?

[Эдуард]

Вы намекаете, что прозрачность не предполагает передачи результата фоновой команде?

Именно так.
Команда по сути своей и не должна возвращать значения. Для этого существуют функции. Ну и используйте свою функцию (rxy) подставив ее в команду на запрос первой точки как у Вас показано выше. Чем этот вариант плох?

[skkkk]

А если попробовать так:

Код:

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

 (vla-SendCommand (vla-get-ActiveDocument (vlax-get-acad-object)) "_line (rxy) ")

[Vov.Ka]

Сообщение от 480725 Получается сделать программу - аналог привязки и ссылки, работающую на фоне как команд Автокада, так и программ ЛИСП невозможно?

даже автокадовский 'cal, по сути, не возвращает результат напрямую текущей команде
он просто "впечатывает" результат в командную строку
мы тоже так можем

вот так будет работать для твоего примера

Код:

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

 (vla-SendCommand
    (vla-get-ActiveDocument (vlax-get-acad-object))
    (strcat (substr (apply 'strcat
			   (mapcar (function (lambda (e) (strcat "," (rtos e 2 16))))
				   (If (caddr p1)
				     (list (+ (car p1) dx) (+ (cadr p1) dy) (caddr p1))
				     (list (+ (car p1) dx) (+ (cadr p1) dy))
				   )
			   )
		    )
		    2
	    )
	    " "
    )
  )

[ShaggyDoc]

Надо было сразу прочитать справку по функции vlax-add-cmd. Никакого "полезного" значения она не вернет - только свое же имя.

Return Values The global-name argument, if successful. The function returns nil if acedRegCmds->addCommand(...) returns an error condition.

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

[480725]

Сообщение от Эдуард Чем этот вариант плох?

Есть программы. Хотелось бы не внося в них изменения расширить возможность указания точки. Такая функция применялась бы и для программ (моих и чужих) и для команд Автокада. Аналог ссылки в Автокаде, только более продвинутый. Я привел только небольшой фрагмент.

----- добавлено через ~2 мин. -----

Сообщение от Vov.Ka вот так будет работать для твоего примера

Спасибо: Попробую и отпишусь!

----- добавлено через ~8 мин. -----

Сообщение от ShaggyDoc А указание точек надо делать другими способами - проверенными и надежными.

Если не трудно, подскажите этот проверенный и надежный способ. Для откомпилированной программы стороннего разработчика.

[ShaggyDoc]

Если не трудно, подскажите этот проверенный и надежный способ. Для откомпилированной программы стороннего разработчика.

Проверенный и надежный способ - писать свои правильные программы. Т.е. надежно работающие, в том числе и с расширенными возможностями указания.
В чужую откомпилированную программу все равно не воткнуть "расширение указания точки". Тем более не надо мечтать о отм, что какая-то (пусть своя) дополнительная "прозрачная" команда что-то вернет в чужую программу. Достаточно просто почитать документацию. И штатные прозрачные команды Автокада ничего не возвращают - они просто позволяют выполнить какое-то действие, например во время ожидания ввода.

[480725]

Сообщение от ShaggyDoc Проверенный и надежный способ - писать свои правильные программы. Т.е. надежно работающие, в том числе и с расширенными возможностями указания.

Каюсь, программы писал чужие, ненадежно работающие, с суженными возможностями указания..
Если серьезно, то расширенные возможности предусматривались там, где были признаны необходимыми, однако программ много, а сейчас появился соблазн увеличения этих расширенных возможностей, и появился новый очень привлекательный механизм их реализации. Но внедрять это все через редактирование программ ( они писались еще с конца прошлого века и реализация механизма не повсюду решена через подпрограммы) очень трудоемко, тестирование тоже потребует много сил.. А все и так работает и жалоб от пользователей нет.. И остается мечта о прозрачной программе, мечта увы, похоже призрачная, т.к. реализация по принципу автокадовского 'cal предложеная уважаемым Vov.Ka) неудобна для пользователя, ибо требует неочевидного нажатия на Enter, которое нет необходимости делать при решении внутри программ. В общем, такая призрачная прозрачность, или прозрачная призрачность.