[+Alex+]

Возможно ли получить экранные координаты курсора средствами Lisp?
Спасибо всем, кто откликнется?

[Do$]

Можно к примеру так: (cadr (grread T 9))
P.S. Это координаты в UCS, при помощи trans можно перевести в другие

[+Alex+]

Мне нужно получить не координаты точки под курсором, а экранные координаты курсора, аналогичные или близкие по значениям получаемым через Windows API функцией GetCursorPos.
Ну или можно как-то конвертировать 3D Point (WCS) в экранные координаты (2D Point)

[Do$]

(trans (cadr (grread T 9)) 1 2)
оно?

[+Alex+]

Do$
Нет, не оно, к сожалению...
(trans (cadr (grread T 9)) 1 3) и (trans (cadr (grread T 9)) 1 2) - возвращает 3D Point,
а нужны ее экранные координаты, например '(532 543 0) в пикселях.

[Do$]

Для чего такое в лиспе? Диалог под курсором расположить?

[+Alex+]

Это нужно для вывода временной панели инструментов.

[hwd]

Сообщение от +Alex+ Это нужно для вывода временной панели инструментов.

Почему не воспользоваться свойствами Location и Size объекта Window, являющегося свойством Document?

[+Alex+]

hwd
Не понимаю как.
Width и Height можно получить запросто. Но как это приплести к курсору?

[hwd]

Сообщение от +Alex+ hwd Не понимаю как. Width и Height можно получить запросто. Но как это приплести к курсору?

К курсору - никак. Это я написал к тому, что зная позиционинование окна чертежа (или окна приложения) + его размеры, можно указать позицию размещения твоей временной панели так, чтобы она размещалась внутри окна. Могу показать, как получить координаты курсора средствами .Net, но боюсь, что тебе это не сильно поможет (на Лиспе не смогу помочь).

[nikе]

Напишите на ARX +WinAPI и будет вам счастье. LISP может обратиться только к COM DLL.

[Do$]

Вопрос интересный
Есть в акаде переменные: viewsize, screensize и viewctr, с помощью grread и этих переменных можно определить положение курсора относительно границ окна активного чертежа. А координаты, которые используются для положения диалога, задаются относительно размеров всего экрана.. Приложил рисунок для наглядности.
Как определить положение окна чертежа относительно всего экрана - ничего не смог придумать .
lisp:

Код:

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

(defun cursor-position (/ px_size)
  (setq px_size (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE"))))
  ((lambda (lst1 lst2)
     (list (+ (car lst1) (car lst2)) (- (cadr lst2) (cadr lst1)))
   ) ;_ end of lambda
    (reverse
      (cdr (reverse
	     (mapcar '(lambda (c1 c2) (fix (/ (- c1 c2) px_size)))
		     (trans (cadr (grread T 9)) 1 2)
		     (trans (getvar "VIEWCTR") 1 2)
	     ) ;_ end of mapcar
	   ) ;_ end of reverse
      ) ;_ end of cdr
    ) ;_ end of reverse
    (mapcar '(lambda (c) (fix (/ c 2))) (getvar "SCREENSIZE"))
  )
) ;_ end of defun

(defun c:test (/ dialog_number done_dialog_number)
  (if (> (setq dialog_number (load_dialog "cursor_test.dcl")) 0)
    (while (not (member done_dialog_number (list 0 1)))
      (if (new_dialog
	    "position_test"
	    dialog_number
	    ""
	    (cursor-position)
	  ) ;_ end of new_dialog
	(progn
	  (setq done_dialog_number (start_dialog))
	) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of while
    (unload_dialog dialog_number)
  ) ;_ end of if
) ;_ end of defun

DCL (файл сохранить с названием cursor_test.dcl):

Код:

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

position_test:dialog {label="Над курсором!";
ok_cancel;
}

[+Alex+]

Do$, большое спасибо, уже что-то ...
есть над чем подумать.