[Profan]

Сочинил вот такие программки:
Вход и выход из внешней ссылки

Без сохранения

Код:

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

(apply '(lambda ()
(vl-cmdf "_-refedit" pause "" "_Ok" "_all" "_no")
(alert " Нажмите OK")
(vl-cmdf "_refclose" "_disc")
(princ)
)
'()
)

С сохранением

Код:

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

(apply '(lambda ()
(vl-cmdf "_-refedit" pause "" "_Ok" "_all" "_no")
(alert " Нажмите OK")
(vl-cmdf "_refclose" "_sav")
(princ)
)
'()
)

Туговато, но срабатывает.
А вот такой вариант почему-то не работает:

Код:

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

(apply '(lambda ()
(setq xrf (car (entsel "\n Укажите внешнюю ссылку: ")))
(vl-cmdf "_-refedit" xrf "" "_Ok" "_all" "_no")
(alert " Нажмите OK")
(vl-cmdf "_refclose" "_disc")
(setq xrf nil)
(princ)
)
'()
)

Хотелось бы знать - почему?

[skkkk]

Может в этой теме что-то полезное найдется: Ускорить вход/выход из режима редактирования блока

[Profan]

Ха, а я ту тему и не видел.

[skkkk]

Полезное-то что-либо нашлось? Я сам ее еле-еле откопал, на какой-то -надцатой странице подписок. Помню, что была, и я даже участвовал, но ни слов для поиска, ни зацепок вспомнить не смог, когда увидел данную тему, где-то с неделю назад, а сейчас припомнилась она, и я решил, пока не найду - буду читать весь лист подписок.
Там я, не дорешал задачку, вроде есть теперь пару мыслей, но не охота копать, если это никому не нужно.

[Profan]

Меня смущало то, что внешняя ссылка в набор не попадала, но теперь эта проблема отпала, поскольку функция (nentsel) все решила.

[skkkk]

Ну тогда пусть до востребования вопрос останется открытым.