获取光标位置

cag

如果获取光标所在的像素点，和左下角、右上角的像素点

龙龙仔

SCREENSIZE 系統變數(唯讀)
類型：2D 點
不儲存

儲存目前視埠的尺寸 (X 和 Y)，以像素為單位。

VIEWCTR系統變數(唯讀)

類型：3D 點
儲存於：圖面

儲存目前視埠內的視景中心點。以 UCS 座標表示。

再比較光标位置,再計算

cag

中心点的UCS能获取，却又不知像素点的坐标啊，


它们的单位不一样，怎么比较？

龙龙仔

看看这个例子

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=7081&replyID=26614

cag

这样也不行啊，返回的都只是UCS坐标，如果能知道一点的UCS坐标和像素点坐标就行了，不知能否调用API函数GetCursorPos来返回该像素点坐标？

龙龙仔

像素点坐标的真正意义是甚么? 自己算一下即可!

龙龙仔

(defun C:TT (/ PT1)
(command "_.UCS" "V")
(while (/= 3 (car (setq PT1 (grread 5 1))))
(print (GETCURSORPOS (cadr PT1)))
)
(command "_.UCS" "p")
) (defun GETCURSORPOS (PT1 / CTR YSIZE SCREEN SCALE XSIZE LB XX YY)
(setq CTR (getvar "VIEWCTR"))
(setq YSIZE (getvar "VIEWSIZE"))
(setq SCREEN (getvar "SCREENSIZE"))
(setq SCALE (/ (car SCREEN) (cadr SCREEN)))
(setq XSIZE (* SCALE YSIZE))
(setq LB (list (- (car CTR) (/ XSIZE 2)) (- (cadr CTR) (/ YSIZE 2))))
(setq XX (- (car PT1) (car LB)))
(setq YY (- (cadr PT1) (cadr LB)))
(list (* (/ XX XSIZE) (car SCREEN))
(* (/ YY YSIZE) (cadr SCREEN))
)
)

cag

感谢