[gool]

Как создать подсказку для блока, например, которая будет выводиться при наведении на этот блок? Подобная тема поднималась раньше, но там упоминаются команды note и T2N, а ссылки, где их взять - недоступны. Может, у кого есть?
Спасибо

[skkkk]

У меня тоже голый, SP2. Никаких дополнений и довесков, только лиспы и те из автозагрузки удалил.

[Do$]

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

[skkkk]

Сообщение от Do$ у меня фокус с ROLLOVERTIPS не воспроизводится

Чудеса. Всё одинаково, но все по-разному... Ну, я позже смогу проверить на том ноуте, на котором изначально все работало, отпишусь. Может, там еще какая переменная. Или ленточный интерфейс как-то влияет, хотя прямой зависимости я не обнаружил, включив ленту. Сам пользуюсь до сих пор классикой.

Сообщение от Do$ Вроде бы получилось гасить подсказку по нажатию кнопок мыши и клавиш

Проверил. Гасится. Но... Нажатие, например, левой кнопки мыши гасит подсказку и всё. Рациональней было бы, чтоб по нажатию левой кнопки начиналась рамка выбора, а по нажатию кнопки с буквой эта буква сразу появлялась в командной строке. В этом смысле для меня предпочтительней предыдущий вариант, поскольку там наше окошко можно спрятать за окном динввода. Как-то неправильным это кажется, но работает чётко, особенно если подобрать правильные координаты окошка и размер окошка динввода.
Уже сколько программ сам понаписал, а до сих пор наивно полагал, что такая простая на первый взгляд функция не должна была вызвать столько проблем, и что в ней будет столько нюансов. Однако.... Виноват. Каюсь. ТЗ было мною составлено плохо . Но я повторюсь, что идеальным мне кажется поведение окошка, возникающего при вводе неверной команды. Только восклицательный знак не обязателен, хотя признаюсь, и его хотелось бы иметь в качестве аргумента и при надобности вызывать окно с ним. Или другим цветом. Красным, например, в случае ошибки. Но это уже, конечно, блажь - удобно, но можно обойтись. Уже вот несколько дней пользуюсь твоим предыдущим вариантом, балдею и вспоминаю тебя добрым словом. Еще раз большое тебе спасибо, Do$!

[Do$]

Сообщение от skkkk Проверил. Гасится. Но... Нажатие, например, левой кнопки мыши гасит подсказку и всё. Рациональней было бы, чтоб по нажатию левой кнопки начиналась рамка выбора, а по нажатию кнопки с буквой эта буква сразу появлялась в командной строке.

Ну это легко настраивается. Я почему-то подумал, что так будет удобнее

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

Подумаю над этим.

[Do$]

Новый вариант функции:
(do$-show-cursor-message message distance imgType offsetX offsetY fontSize fontColorIndex)
message - текст подсказки (обязательный аргумент), строка
distance - длина пробега курсора в единицах чертежа, пока не пропадет подсказка (обязательный аргумент), положительное вещественное число
imgType - тип изображения (необязательный аргумент), целое число:
0 - без изображения (по умолчанию),
1 - "внимание"
2 - "ошибка"
3 - "информация"
offsetX, offsetY - отступы подсказки от курсора по X вправо и по Y вниз соответственно в пикселях (необязательные аргументы), вещественное число. Знаком числа можно управлять положением подсказки относительно курсора. По умолчанию равны 20.
fontSize - высота текста подсказки (необязательный аргумент), вещественное положительное число. Если равно 0,0 - высота текста принимается по умолчанию (из настроек системы наверное).
fontColorIndex - индекс цвета текста подсказки (необязательный аргумент), целое число от 0 до 255 - соответствуют индексированным цветам AutoCAD. Если равно 0 - цвет текста принимается по умолчанию (из настроек системы наверное).

Сильно не тестировал, но, по идее, должно хорошо работать Проверяй.

Лисп для тестов:

Код:

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

  (defun c:cursortest ()
  (setq pt1 (getpoint "\nУкажите первую точку: "))
  (setq pt2 (getpoint pt1 "\nУкажите вторую точку: "))
  (entmakex (list (cons 0 "Line")
		  (cons 10 pt1)
		  (cons 11 pt2)
	    )
  )
  (do$-show-cursor-message "Построена линия" (/ (getvar "viewsize") 2) 0 25.0 -25.0 15.0 178)
)

[skkkk]

Do$, просто супер!!! Основательно потестировал - багов не обнаружил. Кроме одного. Если задать вместо строки, например, переменную, которая не определена, Автокад вылетает с фатальной ошибкой. Этого можно избежать, не допуская попадания в аргументы "не строки", меня не парит, это я так, для порядку. А в остальном - все, как я и хотел. Даже больше, чем я ожидал! Отличная идея насчет нескольких вариантов изображений - точно приживется.
Спасибо тебе огромное!!! Долго думал, чего в программе может не хватать - придумал только одно: вывести в аргумент цвет фона подсказки. Это возможно? Больше, по-моему, туда уже ничего не впихнуть
Получилось своеобразное дополнение princ с функцией вывода под курсор. Уже в пяти моих функциях успешно вещает мне результаты проделанной работы

[Do$]

Пожалуйста!

Сообщение от skkkk Отличная идея насчет нескольких вариантов изображений - точно приживется.

Ну это не моя идея, то же самое реализовано в стандартных методах вывода сообщений в Windows. Я просто сделал по аналогии.

Сообщение от skkkk Если задать вместо строки, например, переменную, которая не определена, Автокад вылетает с фатальной ошибкой.

Сообщение от skkkk Долго думал, чего в программе может не хватать - придумал только одно: вывести в аргумент цвет фона подсказки. Это возможно?

Попробую разобраться на досуге.

[skkkk]

Сообщение от Do$ Ну это не моя идея, то же самое реализовано в стандартных методах вывода сообщений в Windows

Но это же ты придумал внедрить это в программу, а не дядюшка Билл. Стало быть, тебе хвала и почет!

[gomer]

Сообщение от skkkk Стало быть, тебе хвала и почет!

Славу в карман не положишь...

[skkkk]

Offtop:

Сообщение от gomer Славу в карман не положишь...

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