lisp code to Get Cursor Position

[GeryKnee]

Ηello everyone.

the following returns the currnt Cursor position

(defun fnCursorPoint ( / result)
(while(not(setq result (cadr (grread T 0 0))))
(setq result nil))
result
)

But if there is no mouse movement. it does not return, running inside the while loop, as grread waits for an event to be released from llop and return the cursor position.
I need if possible (if autolisp supports it), using autolisp another code that will return the current cursor position.

Thanks,

Gery.

[paullimapa]

Not sure it can be done in lisp without cursor movement but check out Lee Macs version

https://www.lee-mac.com/grtext.html

[komondormrex]

@GeryKnee 

hey,

check the following

(while t (print (cadr (grread t 1 0))))

move cursor or not, left click to get cursor coordinates.

(defun fncursorpoint (/ grread_data)
	(while (not (= 3 (car (setq grread_data (grread t 1 0))))))
  	(cadr grread_data)
)