liu22737 发表于 2005-12-1 22:29:00

求助:如何取得当前屏幕的左下角和右上角坐标?

<P>哪位高人知道啊!</P>

王咣生 发表于 2005-12-1 23:03:00

reply

(defun *ax:getEyeshot (/ $orr)&nbsp;&nbsp;;eyeshot(视野,视界)<BR>&nbsp; (setq&nbsp;rt&nbsp;&nbsp;&nbsp; '()<BR>&nbsp;ptctr (getvar "viewctr")&nbsp;; 视口中心点<BR>&nbsp;vph&nbsp;&nbsp; (getvar "viewsize")&nbsp;; 视口高度(以画图单位计算)<BR>&nbsp;vps&nbsp;&nbsp; (getvar "screensize")&nbsp;; 视口宽度和高度(以像素为单位)<BR>&nbsp;ratio (/ (car vps) (cadr vps))<BR>&nbsp;vpw&nbsp;&nbsp; (* ratio vph)<BR>&nbsp; )<BR>&nbsp; ; 左下角点<BR>&nbsp; (setq&nbsp;ptlb<BR>&nbsp; (list<BR>&nbsp;&nbsp;&nbsp; (- (car ptctr) (/ vpw 2))<BR>&nbsp;&nbsp;&nbsp; (- (cadr ptctr) (/ vph 2))<BR>&nbsp; )<BR>&nbsp; )<BR>&nbsp; ; 右上角点<BR>&nbsp; (setq&nbsp;ptrt<BR>&nbsp; (list<BR>&nbsp;&nbsp;&nbsp; (+ (car ptctr) (/ vpw 2))<BR>&nbsp;&nbsp;&nbsp; (+ (cadr ptctr) (/ vph 2))<BR>&nbsp; )<BR>&nbsp; )<BR>&nbsp; ; 返回值<BR>&nbsp; (setq rt (list ptlb ptrt))<BR>)

流动的清泉 发表于 2021-4-3 20:42:13

明经多人才
页: [1]
查看完整版本: 求助:如何取得当前屏幕的左下角和右上角坐标?